如何通过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"))