基于ggplot2的R语言生存分析绘图问题求助

一、ggsurvfit报错及绘图元素缺失问题修复 #

1. 报错Error in match.arg(type) : 'arg' must be NULL or a character vector的解决 #

你的代码存在两个核心问题：一是ggsurvfit()与后续add_*函数的管道符%>%衔接错误，导致函数未作用到生存曲线对象上；二是type参数的传递逻辑有误（最新版ggsurvfit默认生存曲线类型为"survival"，无需显式指定，若要指定需确保参数格式正确）。

修正后的完整代码：

library(ggsurvfit)
library(ggplot2)

# 拟合生存模型
p <- survfit2(Surv(time, status) ~ sex, data = lung) 

# 正确衔接管道符，调用绘图增强函数
ggsurvfit(p) %>%
  add_censor_mark() %>%
  add_confidence_interval() %>%
  add_risktable()

若需显式指定曲线类型，确保参数写法规范：

ggsurvfit(p, type = "survival") %>%
  add_censor_mark() %>%
  add_confidence_interval() %>%
  add_risktable()

2. 置信区间和风险表未显示的原因 #

原代码中ggsurvfit()执行后未通过管道符连接后续add_censor_mark()等函数，导致这些增强功能未被触发。修正管道衔接后，置信区间、风险表等元素会正常渲染。

二、survminer绘图变形、风险表重叠问题修复 #

首先需确保数据集与变量对应（你提供的代码中使用了db数据集，需替换为lung并匹配变量名），再通过调整布局参数解决重叠问题：

适配lung数据集的修正代码：

library(survival)
library(survminer)

# 用lung数据集拟合生存模型
sfit <- survfit(Surv(time, status) ~ sex, data = lung)

ggsurvplot(sfit, 
           conf.int = TRUE, 
           pval = TRUE, 
           risk.table = TRUE, 
           legend.labs = c("Male", "Female"), 
           legend.title = "Sex",  
           palette = c("dodgerblue2", "orchid2"), 
           title = "Kaplan-Meier Curve for Lung Cancer Survival", 
           risk.table.height = .15,
           # 新增参数优化布局，避免重叠
           ggtheme = theme_bw(),
           risk.table.y.text.col = TRUE,
           risk.table.y.text = FALSE
)

若仍存在重叠，可进一步调大risk.table.height（如设为.2），或通过以下方式调整绘图整体尺寸：

p <- ggsurvplot(...)
print(p, newpage = TRUE, vp = grid::viewport(width = 0.9, height = 0.9))

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