超详细绘制waterfall瀑布图

以下介绍两种比较常用的瀑布图绘制
首先看下数据

2.csv数据模式

library(eoffice)#导出PPT格式需要的包
#导入数据并查看列名称
df <- read.csv("2.csv",header = T,stringsAsFactors = F)
df <- df[,1:3]
colnames(df)
#以下绘图
ggbarplot(df, 
          x="Patient.id", 
          y="During.time", 
          orientation = "horiz",#翻转
          color = "Result",
          fill="Result",
          label = T,#每条显示具体数值
          palette = "npg",#制定色卡
          order = c(1:6))#按照患者id中1到6排序进行绘图
# 导出为PPT格式
topptx(filename = "waterfall.pptx")

持续时间及患者最终状态的瀑布图

另一组更为常见的为患者在不同的治疗组起肿瘤大小的变化情况，如下图所示。

患者在不同的治疗组起肿瘤大小的变化情况数据模式

library(ggpubr)#绘图需要的包
library(eoffice)#导出PPT格式需要的包
#导入数据并查看列名称
df <- read.csv("2.csv",header = T,stringsAsFactors = F)
df <- df[,1:3]
colnames(df)
#以下绘图
ggbarplot(df, 
          x="Patient.id", 
          y="Tumor.diameter.change", 
          color = "team",
          fill="team",
          label = T,#每条显示具体数值
          lab.pos = "in",#在内部显示数值
          palette = "npg",#制定色卡
          sort.val = "desc", #下降排序,当sort.by.groups为T时，此参数将进行组内排序
          sort.by.groups=FALSE)#不按组排

topptx(filename = "waterfall.pptx")

图示