如何在Shiny中通过点击事件获取柱状图X轴的cut分类值

• ggplot绘制离散变量为x轴的柱状图时，会自动将分类因子的levels按顺序映射为从1开始的整数坐标，点击事件返回的input$click$x就是对应分类的整数坐标值，直接匹配原始字符串分类肯定无法对应
• nearPoints默认是针对连续变量的坐标匹配，直接传入离散分类变量无法生效

library(shiny)
library(ggplot2)
library(dplyr)

ui <- fluidPage(
  plotOutput('diamonds', click = "click"),
  textOutput('cut')
)

server <- function(input, output, session) {
  # 提前获取cut的因子水平，和ggplot的映射顺序完全一致
  cut_levels <- levels(diamonds$cut)
  # 提前计算每个cut的计数，用于校验点击是否落在柱子区域内
  cut_count <- diamonds %>% count(cut)
  
  output$diamonds <- renderPlot({
    diamonds %>% 
      ggplot() +
      geom_bar(aes(cut))
  })
  
  output$cut <- renderText({
    req(input$click)
    # 取x坐标四舍五入得到分类的索引
    click_x <- round(input$click$x)
    # 校验索引是否在合法范围内，且点击的y坐标不超过对应柱子的高度
    if(click_x %in% seq_along(cut_levels) && input$click$y <= cut_count$n[click_x]){
      paste0("你点击的cut类别是：", cut_levels[click_x])
    }else{
      "请点击柱状图的柱子区域"
    }
  })
}

shinyApp(ui, server)

• 提前提取diamonds$cut的因子水平，这个顺序和ggplot绘制时的分类映射顺序完全一致，不会出现顺序错乱
• 对点击返回的x坐标四舍五入得到分类的索引值，直接取对应位置的分类名称即可
• 额外增加了点击区域校验，只有点击落在柱子的区域内才会返回分类，避免点到坐标轴空白区域时返回错误结果
• 如果你的绘图逻辑中修改了分类顺序、或使用了分面等复杂操作，可以通过ggplot_build()函数获取实际绘图的坐标映射数据，适配性更强

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