公眾號：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)濟性也能看到明顯差異虎韵。
