[会员专享]ggplot2高度自定义绘制游泳图

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

❝

本节来介绍如何使用ggplot2来绘制一张「游泳图」,图形结构比较简洁但主要还是局部细节的调控，下面来通过代码详细介绍一下，当然此图还有不完美的一点等后续优化，「数据+代码已经上传2023VIP群，加群的观众老爷请自行下载」

❞

2023-VIP购买方式

❝

有需要购买2023年文档的朋友欢迎到小编的「淘宝店铺」 「R语言数据分析指南」下单购买，微信发小编订单截图即可邀请进新的交流群，小编的文档为按年售卖，只包含当年度的「除系列课程外」的文档，有需要往年文档的朋友也可下单购买，需要了解更多信息的朋友欢迎交流咨询，「添加小编微信请备注，以提高沟通效率」

❞

加载R包

library(tidyverse)

导入数据

dat_long <- read_csv("data.txt")

定义颜色

cols <- c("Severe hypoxia" = "#b24745","Intubated" = "#483d8b", 
          "Not intubated" = "#3B9AB2", "Steroids"="#ffd966", 
          "Death" = "#000000")

数据清洗

dat_swim <- dat_long %>% 
  mutate(severe_this_day = case_when(severe == 1 ~ day),
         steroids_this_day = case_when(steroids == 1 ~ day),
         death_this_day = case_when(death == 1 ~ day)) %>% 
  group_by(id) %>% 
  mutate(max_day = max(day)) %>% 
  ungroup() %>% 
  mutate(id = fct_reorder(factor(id), max_day))

❝

有学习需求者欢迎到小编「淘宝店铺 R语言数据分析指南」 购买小编2023年的VIP文档，已有不少朋友学以至用用到了论文当中，99也许能解决就你的很多问题,加小编微信请备注信息及来意，无需要请勿扰

❞

小编微信

关注下方公众号下回更新不迷路

[会员专享] R优雅绘制组合版circos图

[会员专享] nature microbiology图表复现之基因丰度图

[会员专享] nature biotechnology图表复现高端个性化组合图

[会员专享] ggplot2优雅绘制分布棒棒糖图

[完整版] R语言版基因家族分析课程

[会员专享] circlize绘制复杂基因组图

[会员专享] imeta图表复现之相关性组合热图

[会员专享] NC图表复现之cirzlize绘制基因组图

[会员专享] NC图表复现之华夫热图

[会员专享] 再谈ggplot2绘制森林图

数据可视化