如何在RStudio的ggsurvplot中添加两行文本？求助解决方案

核心思路 #

ggsurvplot返回的是包含多个元素的列表，其中$plot是标准ggplot对象，完全支持用+添加ggplot系列图层（包括文本）。你之前的误区是直接对整个ggsurvplot对象用+，而非针对内部的plot元素操作。

具体实现方法 #

方法1：用annotate()添加文本（适合单条/少量文本）

假设你已生成ggsurvplot对象p，直接对p$plot添加annotate图层：

# 假设已有的生存分析和ggsurvplot代码
fit <- survfit(Surv(time, status) ~ group, data = your_data)
p <- ggsurvplot(fit, data = your_data)

# 添加文本到生存曲线上
p$plot <- p$plot +
  annotate("text", x = 20, y = 0.8, label = median_survival_ia_UFS,
           color = "blue", size = 4.8) +  # size对应base绘图的cex=1.2（ggplot size≈cex*4）
  annotate("text", x = 20, y = 0.7, label = median_survival_ia_NAT,
           color = "red", size = 4.8)

# 输出最终图形
print(p)

方法2：用geom_text()添加（适合批量文本）

若需添加多条文本，可先整理文本信息为数据框，再用geom_text添加：

# 构建文本数据框
text_data <- data.frame(
  x = c(20, 20),
  y = c(0.8, 0.7),
  label = c(median_survival_ia_UFS, median_survival_ia_NAT),
  text_color = c("blue", "red")
)

# 给p$plot添加文本图层
p$plot <- p$plot +
  geom_text(data = text_data, aes(x = x, y = y, label = label, color = text_color),
            size = 4.8, show.legend = FALSE)

print(p)

你之前方法失效的原因 #

• base绘图的text()函数：ggsurvplot基于ggplot2系统，和base绘图系统不兼容，直接调用text()无法在ggplot图上生效。
• gridExtra的grob方法：操作过于繁琐，完全没必要——ggsurvplot已暴露底层ggplot对象，直接操作即可。

内容的提问来源于stack exchange，提问作者장원준