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

Question

我的样本数据集：

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文件。有可能吗？或者还有其他方法吗？

Answer 1

只需将selfcontained = TRUE添加到您的上一行：

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