如何通過cox分析繪制生存曲線？

Question

我正在關注有關如何進行Cox分析的教程，但無法正確繪制繪圖。 在進行多變量分析之前，我的代碼的第一部分工作正常。

之后，當我嘗試繪制ggcurve時，我不斷收到以下錯誤：

Error: unexpected ')' in "           ggtheme = theme_minimal())"

碼：

install.packages("survival")
install.packages("survminer")

library("survival")
library("survminer")

data("lung")
lung

res.cox <- coxph(Surv(time, status) ~ age + sex + ph.ecog, data =  lung)

summary(res.cox)

ggsurvplot(survfit(res.cox), data = lung,
           ggtheme = theme_minimal())

Answer 1

試試這個代碼

library("survival")
library("survminer")
data("lung")
fit <- survfit(Surv(time, status) ~ sex, data = lung)
ggsurvplot(fit,
       pval = TRUE, conf.int = TRUE,
       risk.table = TRUE, # Add risk table
       risk.table.col = "strata", # Change risk table color by groups
       linetype = "strata", # Change line type by groups
       surv.median.line = "hv", # Specify median survival
       ggtheme = theme_bw(), # Change ggplot2 theme
       palette = c("#E7B800", "#2E9FDF"))