ggplot2绘制哑铃图进行趋势展示

R语言数据分析指南

发布于 2023-08-18 13:46:55

1670

发布于 2023-08-18 13:46:55

文章被收录于专栏：R语言数据分析指南R语言数据分析指南

欢迎关注R语言数据分析指南

❝本节来介绍如何使用「ggplot2」来绘制哑铃图并通过线段的连接来进行趋势变化展示，数据无实际意义仅作图形展示用，希望各位观众老爷能够喜欢。 ❞

加载R包

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 变量，用于设置图形的背景颜色