inst/examples/survival2.R

# ggplot2 绘制急性髓细胞白血病病人生存函数图
data("leukemia", package = "survival")
library(survival)
library(survminer)
leukemia.surv = survfit(Surv(time, status) ~ x, data = aml)
print(ggsurvplot(leukemia.surv, data = aml, ggtheme = theme_gray()) +
        labs(x = "时间", y = "生存概率", color = "层"))

Try the MSG package in your browser

Any scripts or data that you put into this service are public.

MSG documentation built on July 22, 2021, 1:06 a.m.