❝本节来介绍如何使用ggplot2对表格之间进行数据的配对连线,发现有一款R包「bstfun」可以将gt绘制的表格转化为ggplot格式,通过其来绘制表格配对连线图则是非常的方便。下面小编就通过一个案例来进行展示数据为随意构建无实际意义仅作图形展示用,希望各位观众老爷能够喜欢. 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)
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() %>%
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))