ggplot2绘制多年份配对表格图

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

本节来介绍如何使用ggplot2对表格之间进行数据的配对连线，发现有一款R包「bstfun」可以将gt绘制的表格转化为ggplot格式，通过其来绘制表格配对连线图则是非常的方便。下面小编就通过一个案例来进行展示数据为随意构建无实际意义仅作图形展示用，希望各位观众老爷能够喜欢。R包安装可能比较麻烦建议下载到本地进行安装。

图形展示

此图可以看做三张图拼接而成，通过折线图进行连接；同时折线还可以展示多年份的数据，使得呈现的内容更加丰富。

加载R包

library(ggplot2)
# install.packages("dplyr")
library(dplyr)
# remotes::install_local("bstfun-main.zip",upgrade = F,dependencies = T)
library(bstfun) 
library(patchwork) 
library(gt)
library(scales) 
library(tidyverse)
library(RColorBrewer)` </pre>

数据整理

df <- read_tsv("data.xls") %>%
  group_by(year, industry) %>%
  summarise(med_rq = median(rq), .groups = "drop_last") %>%
  arrange(desc(med_rq), .by_group = TRUE) %>%
  mutate(rank = 1:n()) %>%
  # 取消分组，确保后续操作不再依赖先前的分组
  ungroup() %>%
  # 将 "rank" 列中的整数值转换为字符型，并用 "rank_fct" 列存储结果
  mutate(rank_fct=as.character(rank))

数据筛选

df2022 <- df %>% filter(year == 2022)
df2017 <- df %>% filter(year == 2017) %>% 
  bind_rows(tibble(year=2017, industry = "Healthcare", med_rq = NA_real_, rank = 18))