2020-07-05##生存曲線+置信區(qū)間+風(fēng)險(xiǎn)表

install.packages("survminer")

library(survminer)

library(survival)

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

#簡(jiǎn)單的生存曲線?

p1 <- ggsurvplot(fit, data = lung,

? ? ? ? ? ? ? ? legend.title = 'Sex',

? ? ? ? ? ? ? ? legend = c(.85,.8))

##生存曲線+置信區(qū)間+風(fēng)險(xiǎn)表

p2 <- ggsurvplot(

? fit,

? data = lung,

? size = 1,? ? ? ? ? ? ? ?

? palette = c("#E7B800", "#2E9FDF"),

? conf.int = TRUE,? ? ? ? ?

? pval = TRUE,? ? ? ? ? ? ?

? risk.table = TRUE,? ? ? ?

? risk.table.col = "strata",

? legend.labs =

? ? c("Male", "Female"),? ?

? risk.table.height = 0.25,

? ggtheme = theme_bw(),

? legend.title = 'Sex',

? legend = c(.85,.8)

)

arrange_ggsurvplots(list(p1,p2),ncol = 2,nrow = 1)

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請(qǐng)結(jié)合常識(shí)與多方信息審慎甄別。
平臺(tái)聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡(jiǎn)書(shū)系信息發(fā)布平臺(tái)，僅提供信息存儲(chǔ)服務(wù)。

友情鏈接更多精彩內(nèi)容