以下文章来源于Paper绘图 ，作者超级super栋
背景介绍
棒棒糖图，其实就是一个垂线图，目前使用的人还比较多。该图形打破传统的柱状图的形式，采用散点和垂线结合，形状看起来像棒棒糖一样。在一些SCI文章中还比较多，我们今天来使用R语言来实现一下。
软件介绍
R
RStudio
绘图教程
1. 打开RStudio，我们首先加载需要的包。一般我会直接加载tidyverse，这是一个数据处理和绘图的包的集合，基本上加载了这个，数据处理绘图都可以了。
# 加载包
library(tidyverse)
2. 我们构建一个数据框用于进行绘图。
data <- data.frame(
name=c("n_a","n_b","n_c","n_d","n_e"),
value=c(2.1,2.3,3.2,2.9,4.5))
3. 使用ggplot包进行绘图。
采用geom_point()进行散点的绘制；
采用geom_segment()进行直线的绘制，事实上，该函数是用来绘制矩形的，因此这里x和xend是相同的，只改变y的值。
ggplot(data,aes(name,value))+
geom_point()+
geom_segment(aes(x=name,xend=name,y=0,yend=value))
4. 进一步，我们对图形进行美化。
对图形的点进行更改，包括颜色，透明度；
对线进行更改，包括颜色，线型，粗细。
ggplot(data,aes(name,value))+
geom_point(size=5, color="red", fill=alpha("orange", 0.3),
alpha=0.7, shape=21, stroke=3)+
geom_segment(aes(x=name,xend=name,y=0,yend=value),
size=1, color="blue", linetype="dotdash")
5. 最后，对主题和标签进行美化即可。
ggplot(data,aes(name,value))+
geom_point(size=6, color="red", fill=alpha("orange", 0.3),
alpha=0.7, shape=21, stroke=3)+
geom_segment(aes(x=name,xend=name,y=0,yend=value),
size=1.5, color="blue", linetype="dotdash")+
theme(panel.background = element_rect(fill="#F0E9D2",colour = "black",size = 2),
text = element_text(size=18))
6. 当然，你也可以将横纵坐标翻转。
ggplot(data,aes(name,value))+
geom_point(size=6, color="red", fill=alpha("orange", 0.3),
alpha=0.7, shape=21, stroke=3)+
geom_segment(aes(x=name,xend=name,y=0,yend=value),
size=1.5, color="blue", linetype="dotdash")+
theme(panel.background = element_rect(fill="#F0E9D2",colour = "black",size = 2),
text = element_text(size=18))+
coord_flip()
7. 好了，赶紧来学习一下吧！
转自：“投必得学术”微信公众号
如有侵权，请联系本站删除！
