【r<-方案|分享】分面生存曲线

拷贝的示例

library(survival)
library(survminer)

# Facet by one grouping variables: rx
#::::::::::::::::::::::::::::::::::::::::::::::::::::::::
fit <- survfit(Surv(time, status) ~ sex, data = colon)
ggsurvplot_facet(fit, colon, facet.by = "rx",
                palette = "jco", pval = TRUE)
【r<-方案|分享】分面生存曲线_第1张图片
image
# Facet by two grouping variables: rx and adhere
#::::::::::::::::::::::::::::::::::::::::::::::::::::::::
ggsurvplot_facet(fit, colon, facet.by = c("rx", "adhere"),
                palette = "jco", pval = TRUE)
【r<-方案|分享】分面生存曲线_第2张图片
image
# Another fit
#::::::::::::::::::::::::::::::::::::::::::::::::::::::::
fit2 <- survfit(Surv(time, status) ~ sex + rx, data = colon)
ggsurvplot_facet(fit2, colon, facet.by = "adhere",
                palette = "jco", pval = TRUE)
【r<-方案|分享】分面生存曲线_第3张图片
image

你可能感兴趣的:(【r<-方案|分享】分面生存曲线)