R2-17 第六次作业-生存曲线

四幺1111 2017-12-11 11:13:41 阅读: 927

data(package=”survival”)

install.packages("ggpubr")

install.packages("survminer")

library(ggplot2)

library(ggpubr)

library(survminer)

library(survival)

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

ggsurvplot(fit,data=lung,color="sex",palette=c("red","blue"),title="R2-17",pval=TRUE,

surv.median.line="hv",

conf.int=TRUE,

legend.title="SEX",

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

risk.table=TRUE,

risk.table.col="sex",

ncensor.plot=TRUE)

邀请讨论

{{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}})

删除

回复关闭