[会员专享] ggplot2绘制多年份配对连线表

R语言数据分析指南

发布于 2023-08-18 13:49:14

1360

发布于 2023-08-18 13:49:14

欢迎关注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)

数据整理

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))

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2023-07-18，如有侵权请联系 cloudcommunity@tencent.com 删除

数据分析