趣天学塘 QTXT

随性、随时、随心
点点滴滴的生活记录
在寻找诗和远方的路上
一手机、一相机、一电脑、一本书、一个人、一世界、一生
@ since 2012
Attitude Determines Altitude!

Hello Code 003-生存分析 KMplot(perfect)

> library(survminer)

> fit <- survfit(Surv(futime, fustatus)~scores_by2,data = dtrain_score)

> p <- ggsurvplot(fit, conf.int=F, pval=T, risk.table=T, legend.labs = c('High-Risk','Low-Risk'), 

  legend.title='Risk Score', palette = c("dodgerblue2","orchid2"),

  risk.table.height = 0.3)

> p


评论

© 趣天学塘 QTXT | Powered by LOFTER