❝本节来介绍如何使用「ggplot2」来绘制哑铃图并通过线段的连接来进行趋势变化展示,数据无实际意义仅作图形展示用,希望各位观众老爷能够喜欢。 ❞
library(tidyverse)
library(ggh4x)
df <- read_tsv("data.xls") %>% # 读取名为 data.xls 的 TSV 文件,并将数据存储在 df 变量中
filter(!is.na(Raised)) %>% # 过滤掉 Raised 列中的缺失值
select(Year, Accepted, Raised) %>% # 选择 Year、Accepted 和 Raised 列
inner_join(winners %>% count(Year, Nationality), by = "Year") %>% # 与 winners 数据集进行内连接,根据 Year 列进行匹配
arrange(Year) %>% # 按照 Year 列进行升序排列
mutate(Nationality = as.factor(Nationality)) %>% # 将 Nationality 列转换为因子(factor)类型
filter(Nationality %in% c("Kenya", "United Kingdom", "United States")) %>% # 过滤出 Nationality 列为 "Kenya"、"United Kingdom" 和 "United States" 的行
mutate(Accepted = scale(Accepted, center = FALSE, scale = TRUE), # 对 Accepted 列进行标准化
Raised = scale(Raised, center = FALSE, scale = TRUE)) # 对 Raised 列进行标准化
ridiculous_strips <- strip_themed(
background_x = elem_list_rect(
fill = c("#DE9ED6FF", "#709AE1FF", "#E6956F"))) # 定义 ridiculous_strips 变量,用于设置图形的背景颜色