r - 带有情节的生存情节

Question

那里！我尝试使用包“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”的适用方法应用于“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

Answer 1

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

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