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

blanking 2017-12-12 16:58:38 阅读: 1172

install.packages("survminer")

install.packages("survival")

install.packages("")

library(survival)

library(ggplot2)

library(survminer)

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

ggsurvplot(fit,data=lung,palette=c("red","blue"),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)+

ggtitle("R2-04")

PS:危险因素换成学号好诡异。。。

邀请讨论

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

删除

回复关闭