如何在非Shiny R Markdown中结合ggpubr、plotly与crosstalk实现交互式绘图？

前置准备 #

先安装并加载所需工具包：

install.packages(c("ggpubr", "plotly", "crosstalk", "tidyverse"))
library(ggpubr)
library(plotly)
library(crosstalk)
library(tidyverse)

核心思路 #

1. 用crosstalk::SharedData封装数据集，让多个绘图共享选择/筛选状态
2. 用ggpubr快速生成美观的ggplot基础图，再通过ggplotly()转换为交互式plotly图
3. 配合crosstalk的筛选控件，实现跨图联动

完整可运行示例 #

下面以mtcars数据集为例，实现气缸数筛选联动箱线图和散点图：

# 封装共享数据集（注意将分类变量转为因子，确保筛选控件正常工作）
shared_mtcars <- SharedData$new(mtcars %>% mutate(cyl = as.factor(cyl)))

# 创建气缸数筛选控件
cyl_filter <- filter_select(
  id = "cyl_selector",
  label = "筛选气缸数",
  sharedData = shared_mtcars,
  group = ~cyl
)

# 用ggpubr生成箱线图并转plotly
box_plot <- ggboxplot(shared_mtcars, x = "cyl", y = "mpg", fill = "cyl", palette = "jco") %>%
  ggplotly(tooltip = c("x", "y")) %>%
  layout(title = "不同气缸数的油耗分布")

# 用ggpubr生成带回归线的散点图并转plotly
scatter_plot <- ggscatter(shared_mtcars, x = "wt", y = "mpg", color = "cyl", palette = "jco", add = "reg.line") %>%
  ggplotly(tooltip = c("x", "y", "color")) %>%
  layout(title = "车重与油耗的关联")

# 组合控件和绘图（bscols是crosstalk的布局函数，支持响应式排版）
bscols(cyl_filter, box_plot, scatter_plot)

关键注意事项 #

• 所有需要联动的绘图必须基于同一个SharedData对象，否则无法实现跨图交互
• R Markdown文档的输出格式必须设为html_document（crosstalk的交互依赖HTML环境，无法在PDF等静态格式中生效）
• 若使用ggpubr的自定义主题或调色板，转plotly时尽量保留原分组映射（如fill/color绑定分类变量），避免交互状态丢失
• 如果需要更复杂的筛选逻辑，可以用crosstalk的filter_slider、checkbox_group等控件替代filter_select

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