前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >[会员专享] ggplot2绘制多年份配对连线表

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

作者头像
R语言数据分析指南
发布2023-08-18 13:49:14
1330
发布2023-08-18 13:49:14
举报

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

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

图形展示

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

加载R包

代码语言:javascript
复制
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)

数据整理

代码语言:javascript
复制
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))

数据筛选

代码语言:javascript
复制
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 删除

本文分享自 R语言数据分析指南 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
目录
  • 欢迎关注R语言数据分析指南
  • 图形展示
  • 加载R包
  • 数据整理
  • 数据筛选
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档