R 是否有其他方法将ggvis导出到PNG，而不是导出_PNG（）？

我想知道是否有人知道将ggvis对象导出到PNG的其他方法。可以在Linux或Windows上实现

---

谢谢

我找到了几种方法，我现在发布一种更直接的方法

必选库 生成ggvis并打印HTML本地目录 输出

---

如果您对如何简化或更好的方法有任何建议，我们将不胜感激。

如果找不到方法，我会截屏并裁剪它。我的目标是以编程方式完成。我想使用knitr将绘图嵌入到文档中。即使使用knitr将其包含在pdf中，它也可以工作，尽管会失去任何交互性。我希望knitr和ggvis尽快解决这个问题。我们不想只为了打印图形而编写很长的代码。似乎只需输出文件%ggvis（~wt，~mpg）%%>%layer\u smooths（）%%>%set\u options（width=480，height=360）%%>%view\u static（）%%>%html\u print（background=“white”，viewer=getOption（“viewer”，utils:：browseURL））webshot（输出文件，“Plot1.png”）就可以了

library(ggvis)
library(XML)
library(webshot)
library(htmltools)

outfile <- mtcars %>% ggvis(~wt, ~mpg) %>% layer_smooths() %>% set_options(width = 1200, height = 800)  %>% view_static() %>% html_print( background = "white", viewer = getOption("viewer", utils::browseURL))

webst <- htmlParse(outfile, asText=FALSE)
showMethods(class=class(webst), where=search())
webst <- as(webst, "character")
class(webst)

id <- webst %>% sub(pattern = "-container.*", replacement ="") %>% sub(pattern = ".*plot_", replacement ="") 
selec <- paste0("#plot_", id, " > div > svg")

webshot(outfile, "test_webshot8.png",  selector = selec)