如何获取Shiny中Highcharter饼图选中扇区的颜色代码

你不需要额外提前提取全量扇区名称、维护扇区和颜色的映射表，Highcharts的饼图点击事件返回的event.point对象本身就直接携带当前点击扇区的颜色属性，直接在JS回调里把需要的字段一起传给Shiny端即可，这个方案不会受后续数据修改、配色调整影响，不会出现匹配错位问题。

核心修改点 #

• 调整原有的点击事件JS代码，不再只传递扇区名称，而是传递包含扇区名称、颜色值的对象
• Shiny端接收到传入值后，直接按列表索引取对应字段使用即可

完整可运行代码 #

library(shiny)
library(highcharter)

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

server <- function(input, output){

    # 修改点击回调，同时传递扇区名称和对应渲染颜色
    click_js <- JS("function(event) {
        Shiny.onInputChange('pieclick', {
            sector_name: event.point.name,
            sector_color: event.point.color
        });
    }")

    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_name <- renderText({
        req(input$pieclick)
        paste0("当前选中扇区：", input$pieclick$sector_name)
    })
    
    output$clicked_color <- renderText({
        req(input$pieclick)
        paste0("对应颜色代码：", input$pieclick$sector_color)
    })

}

shinyApp(ui, server)

补充说明 #

• 代码里加了req()是为了避免应用启动时还没触发点击就渲染空值报错
• 拿到的sector_color是Highcharts实际渲染用的标准十六进制颜色码，不管是默认自动生成的配色，还是你后续手动自定义的饼图配色，都能准确获取
• 后续做饼图和世界地图的联动时，直接调用input$pieclick$sector_color作为地图对应区域的填色参数即可，不需要额外维护映射关系

如果你确实需要获取饼图渲染后全量扇区的名称和对应颜色，可以给图表加load事件回调，在图表渲染完成时遍历this.series[0].data数组，把每个点的name和color整体传给Shiny，做点击联动场景下完全没必要用这种绕的方案。

内容的提问来源于stack exchange，提问作者Yasin Amini