R语言ggsurvplot左上角加标签

在R语言中，`ggsurvplot`是一个功能强大的包，用于创建美观的生存分析图表，尤其是Kaplan-Meier (KM) 曲线。要在`ggsurvplot`生成的生存曲线图的左上角添加标签，你可以使用`ggtitle()`函数设置标题，`xlab()`和`ylab()`设置X轴和Y轴的标签。以下是基本步骤：

library(ggsurvplot)
# 创建模拟数据
data(survival_data)

# 绘制生存曲线
surv_obj <- survfit(Surv(time, status) ~ group, data = survival_data)
ggsurvplot(surv_obj,
           risk.table = TRUE, # 显示风险表
           conf.int = TRUE,   # 显示置信区间
           ggtheme = theme_grey(), # 自定义主题
           xlab = "时间 (月)",       # X轴标签
           ylab = "生存率",         # Y轴标签
           title = "不同组别生存曲线")   # 图片标题

# 在图例或坐标轴之外的位置添加额外文本
annotation_custom(text = "注释：...", 
                  x = Inf,     # 将标签放在图表右侧
                  y = -Inf,    # 底部中心
                  box = "FALSE")