R图表转换为html格式没有其他文件

R chart convert to html format without other files

我的示例数据集:

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)

保存图表:

d <- # please put your directory where you want to save the graph
  "xxxx/graph.html"

我搜索了这三个可以输出HTML格式的函数,但是它们也会制作其他文件,我无法解决。

  #htmlwidgets::saveWidget(as_widget(plotly), d)
  #htmltools::browsable(plotly)
  htmltools::save_html(plotly, d)

我正在尝试将使用从 ggplot 函数到 ggplotly 函数的图形转换为 HTML 格式,但我遇到了问题。当我保存图形时,该函数还会制作其他文件,例如 plotlyjs、jquery 和 crosstalk。我希望只能制作HTML文件,因为如果每个图都有不同的文件,很难把文件放到网站上。

这些是我运行代码时的文件。我的预期结果是只制作了 HTML 文件。

其他文件都保存在lib的目录下,但我希望没有提供,我可以运行 HTML 文件。有可能吗?或者还有其他方法吗?

只需将 selfcontained = TRUE 添加到最后一行:

htmlwidgets::saveWidget(as_widget(plotly), selfcontained = TRUE, file = "xxxx/graph.html")