Как построить кривую выживания из анализа Кокса?

Question

Я следовал учебному пособию о том, как проводить анализ Кокса, но не могу понять сюжет правильно.Первая часть моего кода, до многомерного анализа, работает нормально.

После этого, когда я пытаюсь построить 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"))