如何在Shiny中为ggplotly百分比堆叠柱状图设置动态占比自定义tooltip

原代码的问题根因 #

• 原写法在aes(text=...)中直接引用percent(..count..)时，..count..是单个堆叠分段的绝对计数值，不是position="fill"转换后的归一化占比，因此会出现所有分段tooltip都显示原始计数转成百分比的错误（比如计数是2，就显示200%）
• 尝试用..count../sum(..count..)计算占比不生效，是因为..count..的计算粒度是单个几何对象的绘图块，无法覆盖同一个x轴位置、同一个分面下全部分段的计数总和，没法完成组级求和
• 硬编码固定占比的写法无法适配Shiny Dashboard的动态筛选场景：当过滤控件改变输入数据时，组内总计数会变化，提前算好的固定占比会和实际渲染的柱高不匹配

正确实现方案 #

核心思路：完全对齐绘图的分组维度提前聚合数据，计算真实占比后写入自定义tooltip字段，让占比计算逻辑和ggplot的渲染逻辑完全解耦但一一对应，从根源上适配动态筛选。

具体可运行的服务端绘图代码如下：

output$plot_1 <- renderPlotly({
  # 1. 按所有参与绘图的维度聚合：x轴、堆叠分组、分面
  plot_agg <- data %>%
    # 对齐绘图分组：分面=product, x轴=weeknum, 堆叠填充=channel
    count(product, weeknum, channel, name = "group_count") %>%
    # 2. 按分面、x轴维度计算组内总计数，推导真实占比
    group_by(product, weeknum) %>%
    mutate(
      group_share = group_count / sum(group_count),
      # 3. 组装自定义tooltip内容，可自由扩展字段
      tooltip_content = paste0(
        "分段占比: ", percent(group_share, accuracy = 0.1), "<br>",
        "渠道: ", channel, "<br>",
        "分段绝对计数: ", group_count
      )
    ) %>%
    ungroup()

  # 4. 用聚合后的稳定数据绘图
  p <- plot_agg %>%
    ggplot(aes(
      x = weeknum,
      y = group_count,
      fill = channel,
      text = tooltip_content
    )) +
    # 因为已经是聚合好的计数，stat直接用identity，保持position="fill"实现百分比堆叠
    geom_bar(stat = "identity", position = "fill") +
    facet_grid(rows = vars(product))

  ggplotly(p, tooltip = "text")
})

方案优势 #

• 动态筛选零适配成本：整个聚合、占比计算流程都在renderPlotly的响应式链路内，当Shiny过滤控件修改输入的data时，计算流程会自动响应更新，不会出现tooltip和柱高不匹配的问题
• 占比计算100%匹配渲染结果：占比是按和绘图完全一致的分组维度计算的，和position="fill"最终渲染的柱段高度没有计算偏差
• tooltip扩展灵活：可以自由在自定义字段里加入任何维度的关联值（比如渠道GMV、用户数等），不受ggplot内部统计变量的限制

注意：不要尝试在aes中用after_stat()嵌套分组求和的方式计算占比，这类写法在带分面、多层分组的场景下极易出现维度匹配错位，后续维护成本极高。提前聚合的方式虽然多了一步聚合代码，但逻辑透明，和绘图分组一一对应，出错概率极低。

内容的提问来源于stack exchange，提问作者Michał89