??啞鈴圖(Dumbbell Chart)，外形類似啞鈴，兩個值分別位于啞鈴的一端，然后用一根線連接。一般用于展示同一變量不同分組的兩個值，可以直觀地展示分組之間的相對變化。

繪圖

??啞鈴圖就是特別的點圖，下面先展示直接ggplot2繪圖過程，分別繪制前后兩個點，然后繪制中間連接的線段，簡單的啞鈴圖就出現(xiàn)了：

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

結(jié)果如下：

ggalt

??即使這樣簡單的圖，也有現(xiàn)成的R包可以使用，真的是相當nice！這樣我們可以在其基礎(chǔ)上，調(diào)整一下風格和顏色，提升一下圖的顏值：

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="")

結(jié)果如下：

結(jié)束語

??一轉(zhuǎn)眼2023年就來了，雖然有些觸不及防，但還是那么理所當然。別的不多說，祝大家，2023，都能脫單！2023，收入翻番！2023，健康平安！

往期回顧

可視化：Arc Diagrams
可視化：circular dendrogram
可視化：和弦圖
LACE-seq 保姆級教程
可視化：兩種方法繪制?；鶊D