欢迎关注公众号查看原文

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

参考：