plotly的crosstalk filter_select过滤分类变量时出现跨类别值泄露问题

问题表现 #

使用crosstalk的filter_select过滤分类变量时，选择某一分类后，x轴仍会展示其他分类下的取值，出现数据泄露。

问题原因 #

plotly默认使用静态轴配置，初始化时会加载全量x轴刻度，crosstalk过滤仅隐藏对应数据点，不会自动更新轴刻度，导致未选中分类的取值残留在轴上。

解决方案 #

在plot_ly中添加dynamicTicks = TRUE参数，开启轴动态更新能力，过滤时会自动根据当前选中数据重绘轴刻度，移除未匹配分类。如果修改后仍有残留刻度，可以在layout的xaxis配置中补充type = "category"显式指定轴类型为分类轴，确保过滤逻辑正常生效。

修正后可正常运行的代码 #

df <- structure(list(weight = c(0.349, 0.336, 0.329, 0.331, 0.329, 
 0.329, 0.321, 0.317, 0.317, 0.349, 0.351, 0.353, 0.355, 0.355, 
 0.355, 0.355, 0.356, 0.356, 0.358, 0.356, 0.356), value = c("housewife", 
    "Merchant", "Unknown", "Technologist", 
   "Admin", "Student", "Social worker", "Unemployed", 
   "Consultant", "Home", "Food", 
  "Engineering", "Real Estate", "Tourism", "Repairment", "Transport", 
   "Navy", "Military", "Security", "Distribution", "Restaurant"
 ), variable = c("work", "work", "work", 
                 "work", "work", "work", "work", "work", 
                  "work", "sector", "sector", "sector", "sector", 
                  "sector", "sector", "sector", "sector", "sector", 
                   "sector", "sector", "sector")), class = "data.frame",
          row.names = c(NA,-21L))

df <- highlight_key(df)

library(plotly)
library(crosstalk)

widgets <- bscols(
  widths = c(12),
  filter_select("variable", "Choose Variable", df, ~variable)
)
bscols(
  widths = c(2,10), widgets, 
  plotly::plot_ly(df, y = ~ weight, x = ~ value, dynamicTicks = TRUE) %>%
    add_lines() %>%
    layout(xaxis = list(nticks = 10,
                        tickformat = ".2f")
           , showlegend = F)  )

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