Я могу построить один график Каплана-Мейера, как показано ниже, с помощью ggsurvplot:
library(survminer)
library(survival)
fit1 = survfit(Surv(time, status) ~ sex, data = lung)
ggsurvplot(fit1, data = lung)
Тем не менее, мне нужно построить много графиков КМ программно. Мне нужно передать различные переменные в виде строк. Я попробовал ниже.
fml = as.formula(paste('Surv(time, status)~', 'sex'))
fit2 = survfit(fml, data = lung)
ggsurvplot(fit2, data = lung)
удивительно, это не работает. Я получил сообщение об ошибке ниже:
Error: object of type 'symbol' is not subsettable
Я не знаю, почему это происходит. Кто-нибудь знает, как это исправить? Большое спасибо.