R 中的生存分析；使用 plotly 包创建交互式 kaplan-meier 图

Question

我正在 R 中生成 kaplan-meier 图，我想知道是否有办法使用 plotly 包创建交互式 kaplan-meier 图？理想情况下，我希望能够使用我的鼠标光标和 plotly 工具提示框来追踪生存“线”，告诉我组、生存率和时间。

这是我想在 plotly 中重新创建的生存分析模拟示例：-

library(survival)
library(ranger)
library(ggplot2)
library(dplyr)
library(ggfortify)
library(plotly)
#------------
data(veteran)
head(veteran)

km_trt_fit <- survfit(Surv(time, status) ~ trt, data=veteran)
#using autoplot to create graph
autoplot(km_trt_fit)

但是当我尝试使用 plotly 时，我得到这个错误：-

ggplotly(km_trt_fit)


#Error in UseMethod("ggplotly", p) : 
  #no applicable method for 'ggplotly' applied to an object of class "survfit"

要使 km_trt_fit 变量适用于 ggplotly 函数，我需要采取哪些额外步骤？我能否在工具提示中看到上面概述的功能？非常感谢:)

Answer 1

一种选择是从 ggsurvplot 对象中提取 ggplot 图。

library(survminer)

p <- ggsurvplot(km_trt_fit)

ggplotly(p[[1]])

要获取 table 事件在不同时间点的数据，您可以使用 p[[3]]。