R中ggplot转plotly堆叠柱状图过滤后显示单点问题求助

问题现象 #

使用ggplot创建基于Test.Point.Description过滤的堆叠柱状图，转为Plotly交互式图表后，通过Crosstalk的下拉选择器过滤时，图表不再显示堆叠效果，仅呈现单个数据点。在Shiny环境中功能正常，但需要用Plotly实现可分享的交互式图表。

问题原因 #

ggplotly()转换后的图表，堆叠位置是基于原始数据集预先计算的，Crosstalk过滤数据后，Plotly无法自动重新计算堆叠逻辑，导致仅显示单个数据条目而非堆叠柱状图。直接使用Plotly原生语法构建图表，能让Crosstalk的过滤操作正确触发图表的重新渲染和堆叠计算。

解决方案代码 #

library(plotly)
library(dplyr)
library(lubridate)
library(crosstalk)

# 数据预处理（保持原逻辑）
test <- dataset %>%
  group_by(Collected.Date, Test.Point.Description, Test.Result) %>%
  summarise(Count = n(), .groups = 'drop')

# 创建共享数据对象
shared_data <- SharedData$new(test, ~Test.Point.Description)

# 用Plotly原生语法构建堆叠柱状图
p_interactive <- plot_ly(shared_data, x = ~Collected.Date, y = ~Count, 
                         color = ~Test.Result, colors = c("Pass" = "blue", "Fail" = "red"),
                         type = "bar", stackgroup = "one") %>%
  layout(title = "Test Results Over Time",
         xaxis = list(title = "Collected Date", tickangle = 90),
         yaxis = list(title = "Count of Test Result"),
         xaxis_range = as.Date(c("2023-07-23", "2024-01-22")),
         hovermode = "x unified")

# 创建过滤选择器
filter_select <- filter_select(id = "filter_select", 
                               label = "Select Test Point Description", 
                               sharedData = shared_data, 
                               group = ~Test.Point.Description)

# 组合布局
bscols(filter_select, p_interactive)

关键修改说明 #

• 替换ggplot() + ggplotly()的组合，直接使用plot_ly()构建图表，通过stackgroup = "one"参数指定堆叠逻辑。
• 保留原数据分组和SharedData的配置，确保Crosstalk过滤能正确作用于数据源。
• 用colors参数指定结果的颜色映射，与原ggplot配置保持一致。
• 调整布局参数（如tickangle）实现与原图表相同的显示效果。

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