R 闪亮应用程序中的生存情节

我试图在一个闪亮的应用程序中绘制生存图。在其他探索图中，UI有两个

selectInput（）

块，用户可以在其中选择“事件”类型，如肾功能衰竭、浆细胞瘤等，第二个输入用于计算时间间隔。UI代码的一部分是：

 selectInput(inputId="event",
             label = "Event",
             choices = c("RenalFailure","Plasmacytoma","RemissionStatusPreTx","RemissionStatusPostTx",
                                                    "TotalNoTherapy","ISS")
                          ),
                          selectInput(inputId="analysis",
                                      label="Period for analysis",
                                      choices=c("From date of transplant"="TD",
                                                "From date of relapse"="TD_R")

                          ),

在服务器中，我使用的代码是：

output$events <- renderPlot({
if(input$analysis=='TD'){
fit_RF <- survfit(Surv(TD,cenin_dead)~input$event,data=rlp_data)
ggsurvplot(fit_RF,risk.table = T,risk.table.height = 0.4,pval = T)
} else{
  fit_RF <- survfit(Surv(TD_R,relapse)~input$event,data=rlp_data)
  ggsurvplot(fit_RF,risk.table = T,risk.table.height = 0.4,pval = T)
}

})

---

output$events查看
highcharter
包中的生存示例感谢@PorkChop的输入，但我的问题不是
ggsurvplot（）
。它使用
survfit（）
函数。我怀疑与
input$event
有关的东西。感谢您指向
highcharter
包的指针。您的代码在没有
光泽的情况下是否可以工作？是的。正如我所提到的，如果使用
RenalFailure
而不是
input$event
，则会呈现绘图。在将客户机变量添加到绘图之前，是否可以为其添加测试。例如：
if（！is.null（input$event））{}
看看
highcharter
包中的生存示例谢谢@PorkChop的输入，但我的问题不是
ggsurvplot（）
。它使用
survfit（）
函数。我怀疑与
input$event
有关的东西。感谢您指向
highcharter
包的指针。您的代码在没有
光泽的情况下是否可以工作？是的。正如我所提到的，如果使用
RenalFailure
而不是
input$event
，则会呈现绘图。在将客户机变量添加到绘图之前，是否可以为其添加测试。例如：
if（！is.null（输入$event））{}