如何将crosstalk::filter_select选中值用于SharedData关联图表标题

方案一：纯前端实现（无需Shiny） #

适合生成静态HTML页面（如R Markdown文档），通过自定义JavaScript监听crosstalk筛选事件，实时更新plotly图表标题：

library(crosstalk)
library(ggplot2)
library(plotly)
library(htmlwidgets)

# 创建SharedData对象
shared_mtcars <- SharedData$new(mtcars)

# 生成初始图表（标题用默认气缸值）
plt <- ggplot(shared_mtcars, aes(wt, mpg)) +
  geom_point() +
  labs(title = paste("Weight vs. MPG for", unique(mtcars$cyl)[1], "cylinder cars."))

# 转换为plotly对象并添加动态更新逻辑
p <- ggplotly(plt) |>
  onRender('
function(el, x) {
  // 获取对应SharedData的crosstalk实例
  var sd = HTMLWidgets.find(".html-widget[data-widgetid=\"" + x.sharedDataKey + "\"]").x.crosstalk;
  
  // 监听筛选变化事件
  sd.on("filter", function() {
    // 获取当前选中的气缸值
    var selectedCyl = sd.group.filtered()[0].cyl;
    // 更新图表标题
    Plotly.relayout(el, {title: "Weight vs. MPG for " + selectedCyl + " cylinder cars."});
  });
}
')

# 布局筛选器和图表
bscols(widths = c(3, NA),
       filter_select("cyl", "Cylinders", shared_mtcars, ~cyl, multiple = FALSE),
       p
)

关键说明：

• 借助htmlwidgets::onRender注入JavaScript代码，监听crosstalk的filter事件
• 通过sd.group.filtered()获取筛选后的数据，提取选中的气缸值
• 用Plotly.relayout()直接更新图表标题，无需重新渲染整个图表

方案二：基于Shiny实现（逻辑更直观） #

如果允许使用Shiny框架，可直接通过Shiny的输入输出机制获取筛选值，动态生成标题：

library(crosstalk)
library(ggplot2)
library(plotly)
library(shiny)

ui <- fluidPage(
  bscols(widths = c(3, NA),
         filter_select("cyl", "Cylinders", SharedData$new(mtcars), ~cyl, multiple = FALSE),
         plotlyOutput("plot")
  )
)

server <- function(input, output) {
  # 创建SharedData对象（指定分组关联筛选器）
  shared_mtcars <- SharedData$new(mtcars, group = "cyl-group")
  
  output$plot <- renderPlotly({
    # 获取选中的气缸值，为空时用默认值
    selected_cyl <- input$cyl %||% unique(mtcars$cyl)[1]
    
    # 动态生成带选中值的标题
    ggplot(shared_mtcars, aes(wt, mpg)) +
      geom_point() +
      labs(title = paste("Weight vs. MPG for", selected_cyl, "cylinder cars.")) %>%
      ggplotly()
  })
}

shinyApp(ui, server)

关键说明：

• 通过input$cyl直接获取filter_select的选中值
• 每次筛选变化时，renderPlotly会重新生成带最新标题的图表
• 使用%||%运算符处理选中值为空的边界情况（multiple=FALSE时基本不会触发）

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