dapengde 非常感谢,我运行了一下,完美解决。
library(webshot)
webshot::install_phantomjs()
# 生成 wordcloud2 图像,my_graph 的类型是 htmlwidget
my_graph <- wordcloud2(demoFreq, size = 1.5)
# htmlwidgets::saveWidget() 可以将 widget 保存为一个 HTML 文件
# 注意,参数 selfcontained 必须为 F,才能保存一些 external resources,完成页面的渲染
htmlwidgets::saveWidget(my_graph,"tmp.html",selfcontained = F)
# webshot::webshot() 用于对一个网页截图
# delay 参数即等待的秒数,等待几秒后再截图,因为可能页面渲染需要时间
webshot("tmp.html", "fig_1.png", delay = 1,
vwidth = 1000, vheight = 750)
webshot("tmp.html", "fig_2.png", delay = 2,
vwidth = 1000, vheight = 750)
webshot("tmp.html", "fig_5.png", delay = 5,
vwidth = 1000, vheight = 750)
webshot("tmp.html", "fig_10.png", delay = 10,
vwidth = 1000, vheight = 750)
等待了1、2、5、10秒的 HTML 截图分别如下。等待秒数越多,词云图越精细。
最后,非常感谢赵博士的帮助,你的博客和《学R》都令我受益良多。