公眾號：R 語言與SPSS學習筆記

啞鈴圖（Dumbbell plot），顧名思義，是長得像啞鈴的圖。當樣本個數(shù)為兩個時，圖形類似啞鈴，此外，它也用來繪制多個樣本，類似于多個“啞鈴”的節(jié)點連接。此種圖形是展示數(shù)據(jù)差異的可視化圖表之一，主要用來表征不同指標的不同組的情況。

1.加載包

library(tidyverse)
library(tidyquant)
library(ggalt)

2.查看數(shù)據(jù)

今天用到的數(shù)據(jù)集是mpg

head(mpg)

3.數(shù)據(jù)預處理

主要用到以下三個變量：hwy(每加侖燃油經(jīng)濟性英里數(shù))、year(車型年份)、model(廠商車型說明)。

mpg_by_year_tbl<- mpg %>%
  select(hwy, year, model, class) %>%#數(shù)據(jù)選擇
  pivot_wider(
    names_from
    =year,
    values_from =hwy,
    id_cols=c(class,model),
    values_fn=function(x) mean(x, na.rm =TRUE),
    names_prefix ="year_"
    ) %>%#將數(shù)據(jù)轉(zhuǎn)換為寬數(shù)據(jù)格式
  mutate(model = fct_reorder(model, year_2008)) %>%#生成新變量
  drop_na()#刪除缺失值
mpg_by_year_tbl

4.繪制啞鈴圖

#使用x 和 xend = year_2008指定啞鈴圖的起點和終點
g1=mpg_by_year_tbl %>%
  ggplot(aes(x = year_1999, xend = year_2008,y = model, group = model)) +
  geom_dumbbell(colour="#a3c4dc",
    colour_xend="#0e668b",size=4.0,
    dot_guide=TRUE,
    dot_guide_size=0.15,
    dot_guide_colour ="grey60"
  )
g1

每個車型的高速公路燃油經(jīng)濟性啞鈴圖

5.啞鈴圖的修飾

g2 <-g1 +
  labs (
    title = "Change Vehicle Fuel Economy between 1999 and 2008",
    x="Fuel Economy (MPG)", y = "Vehicle Model"
  )+
  theme_tq()+
  theme(
panel.grid.minor=element_blank(),
panel.grid.minor.y=element_blank(),
panel.grid.minor.x=element_line(),
axis.ticks=element_blank(),
panel.border=element_blank()
)
g2

以上例子比較了1999年和2008年各種不同車型燃油經(jīng)濟性的差異。很直觀的可以看到2008年比1999年個車型的燃油經(jīng)濟性更高，同時不同車型的燃油經(jīng)濟性也能看到明顯差異。