如何移除ggsurvplot风险表中的group变量名并保留分组标识

有两种简单方法可以去掉风险表顶部的"group"字样，同时保留分组名称a、b、c、d：

方法1：调用ggsurvplot时直接设置参数 #

在ggsurvplot()里加上risk.table.title = ""参数即可，这是最直接的方式：

library('survival')
library('survminer')

df <- data.frame(group=c('a', 'a', 'a', 'b', 'b', 'b', 'c', 'c', 'c', 'd', 'd', 'd'), 
                 time=c(1,2,3,4,5,6,1,2,3,4,5,6), 
                 status = c(1,1,0,1,0,1,0,1,0,1,1,0))

result <- survfit(Surv(df$time, df$status==1) ~ group, data=df)

# 核心设置：把风险表标题设为空字符串
ggsurvplot(result, risk.table=T, risk.table.title = "")

方法2：修改已生成的绘图对象 #

如果已经创建了ggsurvplot对象，也可以事后修改风险表的标题：

# 先生成原始绘图对象
p <- ggsurvplot(result, risk.table=T)
# 清空风险表的标题元素
p$table$labels$title <- ""
# 显示修改后的图
print(p)

补充：风险表右对齐处理 #

针对你提到的右对齐问题，用patchwork组合时可以给风险表添加theme调整：

library(patchwork)
# 拆分生存曲线和风险表
surv_plot <- p$plot
risk_table <- p$table + theme(axis.text.y = element_text(hjust = 1))
# 上下组合绘图
surv_plot / risk_table

内容的提问来源于stack exchange，提问作者andrewj