如何将ggplotly生成的图表保存为单个独立HTML文件

当然可行！我之前部署可视化图表的时候也被一堆零散的附属文件搞得头大，给你分享两个亲测有效的解决办法：

其实htmlwidgets::saveWidget本身就支持生成单个独立的HTML文件，关键是要确保启用selfcontained参数（默认就是TRUE，但手动指定能避免环境配置问题导致的失效）。这个参数会依赖pandoc把所有外部的JS、CSS资源嵌入到HTML里，生成一个完全独立的文件。

修改你的保存代码如下：

library(plotly)
library(htmlwidgets)

d <- data.frame(
  "name" = c("bily", "mary", "ken"),
  "fruit" = c("cherry", "apple", "apple"),
  "count" = c(1, 10, 30)
)

gg <- ggplot(data = d, aes(x = fruit, y = count, group = name)) + 
  geom_line(aes(color = name)) + 
  geom_point(aes(color = name))

plotly <- ggplotly(gg)

# 保存为单个自包含HTML文件
saveWidget(plotly, file = "xxxx/graph.html", selfcontained = TRUE)

⚠️ 注意：如果你的系统没有安装pandoc，这个方法会失败。RStudio自带的pandoc通常就能满足需求；如果是纯R环境，可以安装官方的pandoc包。

如果因为pandoc配置问题无法使用方法1，你可以用htmltools的工具直接把所有依赖的JS、CSS代码嵌入到HTML中，完全不依赖外部工具：

library(plotly)
library(htmltools)

d <- data.frame(
  "name" = c("bily", "mary", "ken"),
  "fruit" = c("cherry", "apple", "apple"),
  "count" = c(1, 10, 30)
)

gg <- ggplot(data = d, aes(x = fruit, y = count, group = name)) + 
  geom_line(aes(color = name)) + 
  geom_point(aes(color = name))

plotly <- ggplotly(gg)

# 提取图表的HTML标签和所有依赖资源
tags <- renderTags(plotly)
# 构建完整的HTML页面，把依赖整合到<head>和<body>中
full_html <- HTML(paste0(
  "<html><head>", tags$head, "</head><body>", tags$html, "</body></html>"
))
# 保存为单个独立HTML文件
save_html(full_html, file = "xxxx/graph.html")

• 建议先更新相关包到最新版本，避免兼容性问题：update.packages(c("plotly", "htmlwidgets", "htmltools"))
• 单个自包含HTML文件体积会比拆分的大一些，但对于网站部署来说，省去了管理一堆附属文件的麻烦，这个代价完全值得。

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