Я хочу добавить таблицу риска и 95% доверительные интервалы к скорректированным кривым выживания. Что-то вроде кривых выживания ниже (Ссылка). Я видел соответствующий код здесь, но он не упоминает, что мне нужно.
Другой вопрос, было бы правильно, если бы я использовал полученную переменную веса (из пакет iptw) в настройках (поскольку у меня есть столбец с именем веса в моем фактическом наборе данных.
Вот мой код:
library(survival);library(survminer)
data(lung);names(lung)
#fit <- coxph( Surv(time, status==2) ~ ph.karno + strata(sex), data = lung )
lung$sex <- ifelse(lung$sex == 1, "Male", "Female")
fit <- coxph(Surv(time, status) ~ ph.ecog + age +strata(sex), data = lung)
ggadjustedcurves(fit,
variable = "sex",
data = lung,
method = "average",
palette = c("#E69F00", "#56B4E9"),
size = 1.3,
legend = "right",
legend.title = expression(bold("Legend title")),
xlab = "Time",font.legend = 12) + theme(legend.text.align = 0.5)
ggadjustedcurves
, чтобы увидеть, как изменить мои скорректированные кривые выживания с помощью таблиц рисков, но до сих пор безуспешно. Пожалуйста, дайте мне знать, если вы можете получить то, что я хочу. Большое спасибо. - person Mohamed Rahouma   schedule 07.12.2020