哑铃图，又叫做棒棒糖图。因其形状和棒棒糖相似而得名，具体来看实际上是一个散点和一条线段的组合。棒棒糖图是散点图的一种变体，又与柱状图非常相似，但其在清晰展示数据的同时，减少了图形量，使得读者能够更加关注于数据本身而非图形。棒棒糖图能够帮助将数值与类别对齐，非常适合比较多个类别的值之间的差异。
下面两张图就是柱状图展示和棒棒图的差别。可以看出用哑铃图或者棒棒图展示会比柱状图清晰很多，大大减少了图形量尤其是两组柱状图的对比，能明显看出两组结果的差异。
下面这个例子也是比较好看的一个哑铃图。
这次我们就来学习哑铃图的一些规则和技巧。如果ggplot用的好的，可以直接用geom_segment()**函数参数的调整来控制线段。当然也可以用ggalt里面的geom_dumbbell来实现。
library(ggplot2)
library(ggalt)
##################### 读取数据 #####################
data <- read.table("data.txt",sep="\t",header=T)
ggplot(data, aes(x=Women, xend=Men, y=School))+
# 使用ggalt包中的geom_dumbbell函数：
geom_dumbbell(
# 设置两个点的颜色
colour_x = "#b1cb41",
colour_xend = "#45a0e2",
# 设置两个点的大小：
size_x = 2,
size_xend = 2,
# 设置线的粗细：
size=0.5,
# 线的颜色：
color="gray")+
# 主题：
theme_light()+
# 去掉x轴细网格线：
theme(panel.grid = element_blank()) +
xlab("Annual Salary (in thousands)")
也可以自己多美化美化。
ggplot(data, aes(x=Women, xend=Men, y=School))+
geom_dumbbell(
colour_x = "#b1cb41",
colour_xend = "#45a0e2",
size_x = 2,
size_xend = 2,
size=0.5,
color="gray",
dot_guide = T)+ #加上引导线
# 加上两个散点做外环，并让其随着size大小而变化：
geom_point(aes(Women, School,size=Women),
alpha=0.5,color="#b1cb41")+
geom_point(aes(Men, School,size=Men),
alpha=0.5,color="#45a0e2")+
theme_light()+
# 修改网格线：
theme(panel.grid =element_blank(),
# 去掉图例：
legend.position = "none") +
xlab("Annual Salary (in thousands)")
当然，也可以自己通过geom_segment来控制实现。
ggplot(data)+
geom_point(aes(Women, School,size=Women),shape=16,size=2,color="#b1cb41")+
geom_point(aes(Men, School,size=Men),shape=16,size=2,color="#45a0e2")+
geom_segment(aes(x=Women,xend=Men,y=School,yend=School),color="gray")+
theme_light()+
theme(panel.grid =element_blank()) +
xlab("Annual Salary (in thousands)")
其中geom_segment的常用的参数：
x - (必须) 起点的x坐标
y - (必须) 起点的y坐标 — 此参数用作设定基线
xend - (必须)终点的x坐标
yend - (必须)终点的y坐标
size - （默认：0.5）线段的宽度
linetype - （默认：1=solid）线段的类型
color - (默认: “black”) 线段的颜色
alpha - （默认：1=opaque）线段的透明度
网友评论