ggalt:数据可视化之哑铃图

公众号：R 语言与SPSS学习笔记

哑铃图（Dumbbell plot），顾名思义，是长得像哑铃的图。当样本个数为两个时，图形类似哑铃，此外，它也用来绘制多个样本，类似于多个“哑铃”的节点连接。此种图形是展示数据差异的可视化图表之一，主要用来表征不同指标的不同组的情况。

1.加载包

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

2.查看数据

今天用到的数据集是mpg

head(mpg)

3.数据预处理

主要用到以下三个变量：hwy(每加仑燃油经济性英里数)、year(车型年份)、model(厂商车型说明)。

mpg_by_year_tbl<- mpg %>%
  select(hwy, year, model, class) %>%#数据选择
  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_"
    ) %>%#将数据转换为宽数据格式
  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

每个车型的高速公路燃油经济性哑铃图

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年各种不同车型燃油经济性的差异。很直观的可以看到2008年比1999年个车型的燃油经济性更高，同时不同车型的燃油经济性也能看到明显差异。