有没有其他方法可以将ggvis导出为PNG，而不是export_png()？

library(ggvis)
library(gridGraphics)

# 创建ggvis图
p <- ggvis(mtcars, ~mpg, ~wt) %>% layer_points()

# 转换为grid图形对象
g <- as_ggvis(p)

# 导出为PNG格式
grid.export("output.png", g)

library(ggvis)
library(Cairo)

# 创建ggvis图
p <- ggvis(mtcars, ~mpg, ~wt) %>% layer_points()

# 创建Cairo图形设备对象
cairo_pdf("output.png", width = 6, height = 6, units = "in", res = 300)

# 绘制ggvis图
print(p)

# 关闭Cairo图形设备
dev.off()

library(ggvis)
library(webshot)

# 创建ggvis图
p <- ggvis(mtcars, ~mpg, ~wt) %>% layer_points()

# 将ggvis图转换为HTML文件
saveWidget(p, "output.html", selfcontained = FALSE)

# 将HTML文件转换为PNG格式
webshot("output.html", "output.png")