R语言用crosstalk+ggplot2绘箱线图填充色丢失、All选项无法移除

存在问题 #

使用crosstalk、ggplot2、plotly绘制带筛选功能的交互箱线图时，出现两个异常：

• 渲染生成的箱线图填充颜色丢失
• 筛选下拉菜单默认的"All"选项无法移除

问题原因与对应修复 #

1. 填充颜色丢失 #

触发原因：全局美学映射中设置的group = year优先级高于几何对象内的fill映射规则，ggplotly转换图形对象时分组逻辑冲突，导致填充色属性无法被正确识别渲染。
修复方式：删除全局aes()中多余的group = year参数，筛选交互的分组逻辑由crosstalk的SharedData对象自动承接，无需在绘图映射中重复指定分组。

2. 下拉菜单"All"选项无法移除 #

触发原因：crosstalk的filter_select组件默认内置"All"全选选项，官方未提供直接关闭该默认选项的配置参数。
修复方式：注入一段轻量JavaScript脚本，在页面组件加载完成后移除目标下拉框中的第一个默认选项，同时自动选中第一个有效筛选值，避免初始状态为空。

修复后完整可运行代码 #

library(crosstalk)
library(ggplot2)
library(plotly)
library(htmltools)

# 初始化共享数据对象
sd <- SharedData$new(mpg)

# 创建年份筛选下拉组件
year_filter <- filter_select(
  id = "Year",
  label = "Year",
  sharedData = sd,
  group = ~ year,
  multiple = FALSE
)

# 渲染布局与图形
bscols(
  year_filter,
  ggplotly(
    ggplot(aes(y = hwy, x = manufacturer), data = sd) +
      geom_boxplot(aes(fill = manufacturer)),
    tooltip = NULL
  ),
  # 注入脚本移除默认All选项
  tags$script("
    $(document).ready(function() {
      const yearSelect = $('#Year');
      // 移除第一个All选项
      yearSelect.find('option:first').remove();
      // 初始化默认选中第一个有效年份
      yearSelect[0].selectize.setValue(yearSelect.find('option:first').val());
    });
  "),
  widths = 12
)

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