在shiny中选择单选按钮时重置plotly event_data

在Shiny中选择单选按钮时重置Plotly event_data，可以通过以下步骤实现：

首先，确保已经在Shiny应用程序中加载了所需的包，包括shiny和plotly。
创建一个Shiny应用程序，并在UI部分添加一个单选按钮组件，用于选择不同的选项。

library(shiny)
library(plotly)

ui <- fluidPage(
  titlePanel("Reset Plotly event_data"),
  sidebarLayout(
    sidebarPanel(
      radioButtons("option", "选择一个选项:",
                   choices = c("选项1", "选项2", "选项3"),
                   selected = "选项1")
    ),
    mainPanel(
      plotlyOutput("plot")
    )
  )
)

在Server部分，使用observeEvent函数来监听单选按钮的变化，并在变化时重置Plotly的event_data。

server <- function(input, output) {
  
  observeEvent(input$option, {
    # 重置Plotly event_data
    event_data("plotly_click", source = "plot") <- NULL
  })
  
  output$plot <- renderPlotly({
    # 创建一个简单的Plotly图表
    plot_ly(data = iris, x = ~Sepal.Length, y = ~Sepal.Width, color = ~Species) %>%
      layout(clickmode = "event")
  })
}

shinyApp(ui, server)

在上述代码中，observeEvent函数用于监听input$option的变化。当单选按钮的选项发生变化时，event_data函数被用于重置Plotly的event_data。在renderPlotly函数中，我们创建了一个简单的Plotly图表，并设置了clickmode为"event"，以便可以捕获点击事件。

这样，当选择不同的单选按钮选项时，Plotly的event_data将被重置，以便在下一次点击事件发生时获取正确的数据。

推荐的腾讯云相关产品和产品介绍链接地址：