如何将networkD3生成的sankeyNetwork对象转换为grob以通过ggarrange组合多幅桑基图？

你遇到的问题根源很明确：networkD3::sankeyNetwork()生成的是htmlwidget类型的交互式对象，而ggpubr::ggarrange()仅支持ggplot2对象、基础绘图对象或grid grob对象，因此直接传入会触发转换错误。

下面提供两种可行的解决方案，分别适配静态面板图和交互式面板图的需求：

方案一：转换为静态ggplot对象后用ggarrange组合 #

该方法通过将桑基图先转为图片，再封装为ggplot对象，让ggarrange可以正常处理。需要用到webshot2包来将htmlwidget转为图片：

步骤1：安装并加载依赖包 #

# 安装所需包（首次运行时执行）
install.packages(c("webshot2", "ggplot2", "ggpubr", "networkD3", "png"))

# 加载包
library(webshot2)
library(ggplot2)
library(ggpubr)
library(networkD3)
library(png)

步骤2：定义转换函数 #

我们可以写一个复用的函数，自动完成htmlwidget到ggplot对象的转换：

sankey_to_ggplot <- function(sankey_obj, width = 800, height = 400) {
  # 临时保存桑基图为HTML文件
  temp_html <- tempfile(fileext = ".html")
  saveWidget(sankey_obj, temp_html)
  
  # 将HTML转为PNG图片
  temp_png <- tempfile(fileext = ".png")
  webshot(temp_html, temp_png, vwidth = width, vheight = height)
  
  # 读取图片并封装为ggplot对象
  img_raster <- png::readPNG(temp_png)
  ggplot() +
    annotation_custom(grid::rasterGrob(img_raster), 
                      xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf) +
    theme_void()  # 移除ggplot默认的坐标轴和背景
}

步骤3：转换并组合桑基图 #

# 转换你的三个桑基图
p1_gg <- sankey_to_ggplot(p1)
p2_gg <- sankey_to_ggplot(p2)
p3_gg <- sankey_to_ggplot(p3)

# 用ggarrange组合成面板图
ggarrange(p1_gg, p2_gg, p3_gg, 
          labels = c("A", "B", "C"), 
          ncol = 1, nrow = 3,
          align = "v")  # 垂直对齐面板

注意：webshot2依赖Chrome/Chromium浏览器，如果运行时提示找不到浏览器，可以通过webshot2::install_chromium()安装，或者手动指定浏览器路径。

方案二：组合为交互式HTML面板（保留交互性） #

如果你不需要静态图，而是想保留桑基图的交互功能（比如hover显示数值、拖拽节点），可以用htmltools包将三个htmlwidget直接组合成一个垂直布局的HTML页面：

library(htmltools)

# 组合三个桑基图，添加间距样式
combined_sankeys <- tagList(
  tags$div(style = "padding: 10px; border-bottom: 1px solid #eee;", p1),
  tags$div(style = "padding: 10px; border-bottom: 1px solid #eee;", p2),
  tags$div(style = "padding: 10px;", p3)
)

# 在浏览器中预览结果
browsable(combined_sankeys)

# 保存为HTML文件，用于网页展示或分享
save_html(combined_sankeys, "vertical_sankey_panel.html")

这个方案不需要转换为静态图，完全保留桑基图的交互特性，适合网页报告或交互式文档场景。

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