plotly 生存图

Survival plots with plotly

有! 我尝试使用包“plotly”使我的生存曲线具有交互性,因此对于可重现的示例,我使用“lung”数据集:

library(survival)
library(survminer)
library(plotly)
sf_lung <- survival::survfit(survival::Surv(time, status) ~ 1, data = lung)
p1 <- ggsurvplot(sf_lung, main = "Kaplan-Meier Curve for the NCCTG Lung Cancer Data")
plotly::ggplotly(p1)

我得到的错误是:

UseMethod("ggplotly", p) 错误: 没有适用于 'ggplotly' 的方法应用于 class 的对象 "c('ggsurvplot', 'ggsurv', 'list')"

那有什么问题吗?
我的会话信息:
R 版本 4.0.2 (2020-06-22){...}
其他附加包:
survival_3.2-7 survminer_0.4.8 ggpubr_0.4.0 plotly_4.9.2.1 ggplot2_3.3.2

ggsurvplot 创建了一个列表对象。仅使用第一项(“情节”) 至少对我有用。

plotly::ggplotly(p1[[1]])