使用survminer:：ggsurvplot在r中以编程方式绘制许多生存曲线的问题

我可以用GGSURVLOT绘制一个Kaplan-Meier图，如下所示：

library(survminer)
library(survival)
fit1 = survfit(Surv(time, status) ~ sex, data = lung)
ggsurvplot(fit1, data = lung)

但是，我需要以编程方式绘制许多KM。我需要将不同的变量作为字符串传递。我在下面试过了

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

我不知道为什么会这样。有人知道如何解决这个问题吗？非常感谢

fit2