r - 使用 ggcompetingrisks 将审查形状添加到累积发生率图中
问题描述
是否可以在情节中绘制审查survminer
ggcompetingrisks()
?
我正在从cmprsk
包装中进行竞争风险分析。该图显示了 4 种不同事件(局部/区域/远处进展或死亡)的累积发生率。如果这些事件均未发生,则使用审查。我希望在情节中显示审查,希望作为一个勾号“|” 或所有 4 行上的“+”。
我知道使用时survminer
ggsurvplot()
,这很容易。累积发病率图也可以吗?
# Packages
library(cmprsk)
library(survminer)
# Dummy data
set.seed(2)
failure_time <- rexp(100)
status <- factor(sample(0:4, 100, replace=TRUE), 0:4,
c('censor', 'A', 'B','C', 'D'))
df <- data.frame(failure_time,status)
# How many censored?
table(df$status)
# Cmprsk fit
fit <- cuminc(ftime = df$failure_time, fstatus = df$status, cencode = "censor")
# Survminer plot
ggcompetingrisks(fit, multiple_panels = FALSE)
# I was hoping this might work:
ggcompetingrisks(fit, multiple_panels = FALSE, censor = TRUE, censor.shape = "+", censor.size = 4.5)
提前致谢
解决方案
推荐阅读
- python - 使用 pyinstaller 创建的 python 可执行文件在 Windows 虚拟机中不起作用
- javascript - 全局范围在 Web 浏览器内运行的客户端 Javascript 中意味着什么
- reactjs - 如何使用 Jest 监视函数
- python - 如何使用 os.subprocess.run() 自动关闭等待键窗口?
- docker - 为什么 docker 只运行 1 个图像?
- postgresql - 在以前有效的配置中忽略 Postgres 数据库的 /docker-entrypoint-initdb.d 错误
- java - 如何将多种类型的树视图导出到文件中
- terraform - 在 Terraform 中创建 Azure SPN 密码结束日期(以小时为单位)
- javascript - 如何跟踪 webpack 模块分辨率?
- sql - SQLite - 添加列并使用另一个表更新它们