Highcharter-可点击饼图-如何从在Shiny中点击饼图的切片中获取类别名称？

我正在尝试单击用highcharts构建的饼图中的一个类别，并使用该类别在R Shining app中过滤折线图中的数据。

您可以使用

hc\u plotOptions

设置捕获单击，如下所示：

library(shiny)
library(highcharter)

ui <- fluidPage(
    column(3,
           highchartOutput("hcontainer",height = "300px")
    ),
    column(3,
           textOutput("clicked")
    )
)

server <- function(input, output){

    click_js <- JS("function(event) {Shiny.onInputChange('pieclick',event.point.name);}")

    output$hcontainer <- renderHighchart({
        highchart() %>% 
            hc_chart(type = "pie") %>% 
            hc_add_series(data = list(
                list(y = 3, name = "cat 1"),
                list(y = 4, name = "dog 11"),
                list(y = 6, name = "cow 55"))) %>% 
            hc_plotOptions(series = list(events = list(click = click_js)))
    })

    output$clicked <- renderText({
        input$pieclick
    })

}

shinyApp(ui, server)

库（闪亮）
图书馆（高级特许）
ui您可以使用
hc\u plotOptions
设置捕捉单击，如下所示：

library(shiny)
library(highcharter)

ui <- fluidPage(
    column(3,
           highchartOutput("hcontainer",height = "300px")
    ),
    column(3,
           textOutput("clicked")
    )
)

server <- function(input, output){

    click_js <- JS("function(event) {Shiny.onInputChange('pieclick',event.point.name);}")

    output$hcontainer <- renderHighchart({
        highchart() %>% 
            hc_chart(type = "pie") %>% 
            hc_add_series(data = list(
                list(y = 3, name = "cat 1"),
                list(y = 4, name = "dog 11"),
                list(y = 6, name = "cow 55"))) %>% 
            hc_plotOptions(series = list(events = list(click = click_js)))
    })

    output$clicked <- renderText({
        input$pieclick
    })

}

shinyApp(ui, server)

库（闪亮）
图书馆（高级特许）
用户界面请提供您迄今为止尝试过的内容请提供您迄今为止尝试过的内容