欢迎关注公众号查看原文

Part 1 ：棒棒糖图

棒棒糖图因其形状和棒棒糖相似而得名，具体来看实际上是一个散点和一条线段的组合。棒棒糖图是散点图的一种变体，又与柱状图非常相似，但其在清晰展示数据的同时，减少了图形量，使得读者能够更加关注于数据本身而非图形。棒棒糖图能够帮助将数值与类别对齐，非常适合比较多个类别的值之间的差异。本期介绍棒棒糖图的基本作图方法和优化

**示例1：**相同数据源下柱状图和棒棒糖图展示数值差异效果对比

**示例2：**使用棒棒糖图画出的好图

Part 2 ：图像与代码

1、快速构建基础图形：

只需在散点图基础上，增加geom_segment( )图层即可画出棒棒糖图

**示例3：**基础图形

library(ggplot2)# 随机构建数据
data <- data.frame(xv = LETTERS[1:26],  #x轴：以26个字母作为类别yv = abs(rnorm(26))) #y轴：取26个符合正态分布的随机数
## fig 1 ：基础图形
fig3 = ggplot(data, aes(x = xv, y = yv)) +geom_segment( aes(x = xv, xend = xv, y = 1, yend = yv),color = "grey40")+ #控制线段的参数，见下geom_point(size = 4, pch = 21, bg = 5, col = 1) + #控制散点的参数theme_bw()
fig3#geom_segment中的参数用于控制线条相关参数
#x=xv，xend=xv 表示x轴的线条起始位置x和终止位置xend都是xv（没有线条）
#类似的，y = 1, yend = yv表示y轴线段起始点为y=1，种植点为每个类别的值即yv

2、基础优化：

**（1）对线段的控制体现在对geom_segment()**函数参数的调整，该函数的详细用法可参考 https://ggplot2.tidyverse.org/reference/geom_segment.html

在此我们介绍常用的参数：

x - (必须) 起点的x坐标
y - (必须) 起点的y坐标 — 此参数用作设定基线
xend - (必须)终点的x坐标
yend - (必须)终点的y坐标
size - （默认：0.5）线段的宽度
linetype - （默认：1=solid）线段的类型，可参见下图中 lty 变量类型
color - (默认: “black”) 线段的颜色
alpha - （默认：1=opaque）线段的透明度

（2）对顶点（散点）的控制则由**geom_point()**控制，此处不再赘述，可参考：

https://ggplot2.tidyverse.org/reference/geom_point.html?q=geom_point#null

值得一提的是，R语言本身提供了一些自定义图形外观的参数，这些参数几乎可以适用在所有基于R语言的绘图包中：

cex - 形状大小
lwd - 线条宽度
col - 控制颜色类型
lty - 线条类型
pch - 标记（散点）形状
type - 点之间的连接形状

这些参数对应的可选变量见下图：

（3）其他：

**x、y轴坐标交换：直接使用 coord_flip() **函数即可
对变量进行排序，使图形更加美观；此处提供3种方法供参考：forcats::fct_reorder()、dplyr::arrange()、reorder()，具体示例参见：https://www.r-graph-gallery.com/267-reorder-a-variable-in-ggplot2.html
要在散点上显示对应数值：使用geom_text()

示例4：简单优化后的棒棒糖图

library(ggplot2)
library(dplyr)
# 随机构建数据
data <- data.frame(xv=LETTERS[1:26], yv=abs(rnorm(26)))
data <- data %>% mutate(mycolor = ifelse(yv>1, "Y>1", "Y<=1")) #设置分组## fig 2 ：简单优化后的图形
fig4 <- ggplot(data, aes(x=reorder(xv,-yv), y=yv,fill = mycolor)) +geom_segment( aes(x=reorder(xv,-yv), xend=reorder(xv,-yv), y=1, yend=yv,color=mycolor),size=0.5,linetype=1)+#使用reorder()排序变量geom_point(size = 5, pch = 21, color="black") + #在散点上显示数值并保留两位小数geom_text(aes(label =sprintf("%.2f",yv)), color = "black", size = 1.6)+ xlab("26Letters") +scale_y_continuous("Y_Values",breaks  =c(0,0.25,0.5,0.75,1,1.25,1.5,1.75,2)) +coord_flip() +theme_minimal()fig4

示例5：带分组的棒棒糖图

library(ggplot2)
library(hrbrthemes)
yv1 <- abs(rnorm(6))*2
data6 <- data.frame(x=LETTERS[1:24], val=c( yv1, yv1+1+rnorm(6, 14,1) ,yv1+1+rnorm(6, sd=1) ,yv1+1+rnorm(6, 12, 1) ),grp=rep(c("grp1", "grp2", "grp3", "grp4"), each=6)
) %>%arrange(val) %>%mutate(x=factor(x, x))fig5 = ggplot(data6) +geom_segment( aes(x=x, xend=x, y=0, yend=val), color="grey") +geom_point( aes(x=x, y=val, color=grp), size=3 ) +coord_flip()+theme_ipsum() +theme(legend.position = "none",panel.border = element_blank(),panel.spacing = unit(0.1, "lines"),strip.text.x = element_text(size = 8)) +xlab("") +ylab("Value of Y") +facet_wrap(~grp, ncol=1, scale="free_y")
fig5

3、变体：一个类型两个值

在棒棒糖图中，如果一个类别有两个数值，可以很方便地使用一条线段来表示二者间的差异。即在棒棒糖图中geom_segment(aes(x = xv, xend = xv, y = 1, yend = yv)中，y的起始点不再是固定的度量y=1，而是该类别的另一变量示例6：

library(ggplot2)
library(dplyr)
yv1 = abs(rnorm(26))*2
data2 <- data.frame(xv1 = LETTERS[1:26], yv1 = yv1, yv2 = yv1+1+rnorm(26, sd=1)
)fig6 = ggplot(data2) +geom_segment( aes(x=xv1, xend=xv1, y=yv1, yend=yv2),size=0.7,linetype=1,color="grey")+ # 此处y起始点为yv1，终止点为yv2geom_point(aes(x=xv1,y=yv1),size = 4, pch = 20, color="#66CCEE") + geom_point(aes(x=xv1,y=yv2),size = 4, pch = 20, color="#EE6677") + xlab("26Letters") +scale_y_continuous("Y_Values",breaks  =c(0,1,2,3,4,5,6,7)) +theme_minimal()
fig6

示例6这样的图形也被称之为**“哑铃图”**，并且已有成熟的函数可以绘制：ggalt::geom_dumbbell()，该函数的相关参数含义及用法和示例参见官方文档：https://yonicd.github.io/ggalt/reference/geom_dumbbell.html

下面给出使用该函数绘制“哑铃图”的示例：

**示例7：**geom_dumbbell()官方文档示例

library(ggplot2)
library(ggalt)
df <- data.frame(trt=LETTERS[1:5], l=c(20, 40, 10, 30, 50), r=c(70, 50, 30, 60, 80))bbfig3 = ggplot(df, aes(y=trt, x=l, xend=r)) +geom_dumbbell(size=3, color="#e3e2e1",colour_x = "#5b8124", colour_xend = "#bad744",dot_guide=TRUE, dot_guide_size=0.25) +labs(x=NULL, y=NULL, title="ggplot2 geom_dumbbell with dot guide") +theme_minimal() +theme(panel.grid.major.x=element_line(size=0.05))
bbfig3

**示例8：**geom_dumbbell()绘制哑铃图

llibrary(ggalt)
health <- read.csv("https://raw.githubusercontent.com/selva86/datasets/master/health.csv")
health$Area <- factor(health$Area, levels=as.character(health$Area))
bbfig2 = ggplot(health, aes(x=pct_2013, xend=pct_2014, y=Area)) + geom_dumbbell()+theme_minimal()
bbfig2

library(ggalt)
library(ggplot2)
bbfig3 = ggplot(health, aes(x=pct_2013, xend=pct_2014, y=Area)) + geom_segment(aes(x=pct_2013, xend=pct_2014, y=Area, yend=Area), color="#b2b2b2", size=1.5)+geom_dumbbell(color="light blue", size_x=3.5, size_xend = 3.5,colour_x="#edae52", colour_xend = "#9fb059")+labs(x=NULL, y=NULL, title="Dumbbell Chart", subtitle="Pct Change: 2013 vs 2014")+geom_text(color="black", size=2, hjust=-0.5,aes(x=pct_2013, label=pct_2013))+geom_text(aes(x=pct_2014, label=pct_2014), color="black", size=2, hjust=1.5)+theme_minimal()
bbfig3

参考：

https://www.r-graph-gallery.com/lollipop-plot.html
https://r-charts.com/ranking/lollipop-chart-ggplot2/
https://rpubs.com/ageek/ggplot-adv-part2

棒棒糖也能画成图—— ggplot2绘制棒棒糖图/哑铃图相关推荐

R语言R原生及可视化包ggplot2绘制并排的箱图实战（Side-by-Side Boxplots）
R语言R原生及可视化包ggplot2绘制并排的箱图实战(Side-by-Side Boxplots) 目录 R语言R原生及可视化包ggplot2绘制并排的箱图实战(Side-by-Side Boxpl ...
R语言ggplot2绘制平滑曲线的折线图简单小例子
R语言ggplot2常规的折线图 library(ggplot2) df<-data.frame(x=1:10,y=sample(1:10,10)) ggplot(df) +geom_line( ...
在线作图|如何绘制一张哑铃图
哑铃图哑铃图(Dumbbell plot)是展示数据差异的可视化图表之一.当样本个数为两个时,图形类似哑铃,同时它也用来绘制多个样本,类似于多个"哑铃"的节点连接.哑铃图在生信分 ...
ggplot2绘制差异表达基因火山图
一.前置环境 1.1 R 语言下载对应系统的R软件 R: The R Project for Statistical Computing (r-project.org) 以win11为演示 http ...
用ggplot2绘制多维折线图
最近工作遇到了需要大量绘制同种类型图片的重复性任务,用Excel着实伤不起,而且如果遇到一些数据上的改动,又得重来一遍.故又重新搬出了ggplot2,将用到的一些方法与走的弯路做一下总结.我们将用R自 ...
R语言ggplot2绘制分组箱型图和分组柱状图
需求论文中常见的分组箱型图和分组条形图可以直观的比较方法的效果,以一个图显示多个方法在多个数据集上的AUC或AUPR. 抽象出来的数据即包含2个分类变量和1个连续变量, 不同的方法(分类变量1)在不 ...
六一双倍的快乐：ggplot2绘制双y轴图
生信交流与合作请关注公众号@生信探索双y轴图的目的,是想要在同一坐标系中画两组数据,但是他们值范围差很多,比如一组数据是1-10,另一组是10-100,那么可以对第一组数据做数据变化,比如第一组数据 ...
玩转数据可视化之R语言ggplot2：（八）ggplot2绘制空间地理数据图
玩转数据可视化之R语言ggplot2
R语言ggplot2 |绘制高颜值森林图

棒棒糖也能画成图—— ggplot2绘制棒棒糖图/哑铃图