R2-39 第六次作业提交生存曲线

redpanda 2017-12-12 18:06:38 阅读: 906

install.packages("survival")

install.packages("survminer")

library(survival)

library(survminer)

library(ggplot2)

library(ggpubr)

library(magrittr)

fit<- survfit(Surv(time, status) ~ sex, data = lung)

ggsurvplot(fit, data = lung,title="R2-39",

surv.median.line = "hv",

legend.title = "SEX",

legend.labs = c("Male", "Female"),

pval = TRUE,conf.int = TRUE,

conf.int.alpha=0.1,

risk.table = "abs_pct",

risk.table.title ="R2-39",

risk.table.col="sex",

risk.table.y.text.col=TRUE,risk.table.y.text=FALSE,

ncensor.plot=TRUE,

ncensor.plot.title="R2-39",

tables.height = 0.22,

break.time.by=200,

palette = c("red","blue"))

邀请讨论

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论

受邀请回答

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复

发送回复

赞({{item.count_zan}})

踩({{item.count_cai}})

删除

回复关闭