哑铃图(Dumbbell Chart)，外形类似哑铃，两个值分别位于哑铃的一端，然后用一根线连接。一般用于展示同一变量不同分组的两个值，可以直观地展示分组之间的相对变化。
绘图
哑铃图就是特别的点图，下面先展示直接ggplot2绘图过程，分别绘制前后两个点，然后绘制中间连接的线段，简单的哑铃图就出现了：
library(ggplot2)
library(dplyr)
value1 <- abs(rnorm(26))*2
data <- data.frame(x=LETTERS[1:26],
value1=value1,
value2=value1+1+rnorm(26, sd=1))
p <- ggplot(data) +
geom_point( aes(x=x, y=value1), color=rgb(0.2,0.7,0.1,0.5), size=3 ) +
geom_point( aes(x=x, y=value2), color=rgb(0.7,0.2,0.1,0.5), size=3 ) +
geom_segment( aes(x=x, xend=x, y=value1, yend=value2), color="grey") +
coord_flip()+
theme_bw() +
theme(legend.position = "none",panel.grid=element_blank()) +
labs(x="", y="")
p
结果如下：
ggalt
即使这样简单的图，也有现成的R包可以使用，真的是相当nice！这样我们可以在其基础上，调整一下风格和颜色，提升一下图的颜值：
library(ggalt)
p <- ggplot(data, aes(x=value1, xend=value2, y=x)) +
geom_dumbbell(colour_x = "#b1cb41", colour_xend = "#45a0e2", size_x = 1.5, size_xend = 1.5, size=0.5, color="gray", dot_guide = T) +
geom_point(aes(value1, x, size=value1), alpha=0.5, color="#b1cb41") +
geom_point(aes(value2, x, size=value2), alpha=0.5, color="#45a0e2") +
theme_light() +
theme(legend.position = "none", panel.grid =element_blank()) +
labs(x="", y="")
结果如下：
结束语
一转眼2023年就来了，虽然有些触不及防，但还是那么理所当然。别的不多说，祝大家，2023，都能脱单！2023，收入翻番！2023，健康平安！
往期回顾
可视化：Arc Diagrams
可视化：circular dendrogram
可视化：和弦图
LACE-seq 保姆级教程
可视化：两种方法绘制桑基图
