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

科研狗聪 2017-12-11 10:21:04 阅读: 945

setwd("F:\\Doctor\\R语言学习\\互助小组\\第6期作业")

install.packages("ggpubr")

install.packages("survminer")

library(survival)

library(survminer)

data<-lung

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

conf.type = "log-log")

ggsurvplot(fit,data,pval = TRUE,conf.int = TRUE,conf.int.alpha = 0.2,

surv.median.line = "hv",

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

risk.table = TRUE,risk.table.col = "sex",

ncensor.plot = TRUE,

palette = c("lightcoral","steelblue"),title = "R2-20")

邀请讨论

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

删除

回复关闭