繁体   English   中英

导出svg格式的图,是一个`girafe` object(`ggiraph`包)

[英]Exporting a graph in svg format, which is a `girafe` object (`ggiraph` package)

ggiraph package 适用于生成交互式图形。

我试图执行一些在网上找到的关于 package ggiraph的例子,但我无法在任何地方找到如何导出生成的交互式图形,格式可能是 svg(或其他)。

代码下方:

library(ggplot2)
library(ggiraph)
library(patchwork)
library(cowplot)

mtcars <- mtcars
mtcars$tooltip <- rownames(mtcars)

gg1 <- ggplot(mtcars) +
  geom_point_interactive(aes(x = drat, y = wt, color = qsec, 
    tooltip = tooltip, data_id = tooltip ), size = 4) 

gg2 <- ggplot(mtcars) +
  geom_point_interactive(aes(x = qsec, y = disp, color = mpg, 
    tooltip = tooltip, data_id = tooltip ), size = 4)

然后我尝试导出它:

oggetto <- girafe( ggobj = plot_grid(gg1, gg2), width_svg = 8, height_svg = 4)
library(svglite)
ggsave(file="test.svg", plot=oggetto, width=10, height=8)

出现以下错误:

Error in UseMethod("grid.draw") : 
  no applicable method for 'grid.draw' applied to an object of class "c('girafe', 'htmlwidget')"

有人知道如何导出图像吗?

预先感谢您的每一个最终回复! 贾科莫

您可以使用htmltools::save_html(oggetto, "out.html")将包含 svg 的交互式 plot 保存在 HTML 文件中

out.html包含 JavaScript,例如运行交互所需的ggiraphjs.min.js 普通 SVG 文件可以使用 title 属性显示工具提示,但两个图上 hover 上的橙色点颜色同时似乎需要 JavaScript。

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM