如何在不使用Shiny的情况下扩展ggplotly中facet_wrap生成的分面？

可以实现，不用依赖Shiny应用，通过给ggplotly对象添加自定义JavaScript事件监听，就能实现点击分面后全屏显示、双击恢复的功能，具体实现如下：

完整代码 #

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

# 创建带分面的ggplot图表
p <- ggplot(mtcars, aes(x = hp, y = mpg, 
                        color = factor(cyl), shape = factor(cyl))) +
  geom_point() +
  facet_wrap(~factor(cyl))

# 转换为ggplotly对象
fig <- ggplotly(p)

# 注入自定义JavaScript实现分面全屏/恢复功能
fig <- onRender(fig, "
function(el, x) {
  // 保存原始布局和注释，用于后续恢复
  const originalLayout = JSON.parse(JSON.stringify(el.layout));
  const originalAnnotations = [...el.layout.annotations];
  
  // 点击分面内的点触发全屏
  el.on('plotly_click', function(data) {
    const targetPanel = data.points[0].panel;
    if (!targetPanel) return;
    
    // 只保留目标分面的注释
    el.layout.annotations = originalAnnotations.filter(ann => ann.text === targetPanel.text);
    
    // 将目标分面的坐标轴设为占满整个容器
    el.layout.xaxis.domain = [0, 1];
    el.layout.yaxis.domain = [0, 1];
    
    // 隐藏其他分面的坐标轴
    Object.keys(el.layout).forEach(key => {
      if (key.startsWith('xaxis') && key !== 'xaxis') el.layout[key].visible = false;
      if (key.startsWith('yaxis') && key !== 'yaxis') el.layout[key].visible = false;
    });
    
    // 更新图表布局
    Plotly.relayout(el.id, el.layout);
  });
  
  // 双击页面恢复原始分面布局
  el.on('plotly_doubleclick', function() {
    Plotly.relayout(el.id, originalLayout);
  });
}
")

# 渲染图表
fig

功能说明 #

• 触发方式：点击任意分面内的散点，该分面会立即占满整个页面；双击页面任意位置，即可恢复到原始的分面布局。
• 实现原理：通过JavaScript监听plotly的点击/双击事件，动态修改图表布局：隐藏非目标分面的坐标轴和注释，将目标分面的坐标轴范围设为整个容器，同时保存原始布局用于恢复。
• 使用场景：生成的HTML文件可直接在浏览器中打开，无需依赖Shiny服务器，适合静态网页或本地交互展示。

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