r语言 - GGiraph中的绘图列表

Question

我正在尝试在Rstudio中使用GGiraph绘制绘图列表。 绘制多个图的解决方案是通过牛图(ggobj = plot_grid(plot1, plot2)(或拼凑(code = print(plot / plot)(。如果您单独打印单个图，则此方法有效。但是，它似乎不接受情节列表。我希望将图排列在一列中，包含多行。

有人对此有解决方案吗？

Answer 1

您可以在plot_grid中尝试plotlist参数。

#Using the example from giraffe
library(ggiraph)
library(ggplot2)
dataset <- mtcars
dataset$carname = row.names(mtcars)
gg_point = ggplot( data = dataset,
mapping = aes(x = wt, y = qsec, color = disp,
tooltip = carname, data_id = carname) ) +
geom_point_interactive() + theme_minimal()
#using the plotlist argument
library(cowplot)
girafe(ggobj = plot_grid(plotlist=list(gg_point, gg_point), ncol=1))

Answer 2

你也可以在patchwork中使用函数组装来做到这一点，使用wrap_plots()函数和ncol或nrow参数。wrap_plots()可以采用一系列图形或列表。

library(ggiraph)
library(ggplot2)
library(patchwork)
# Demo figure
g <- ggplot(data = mpg, aes(x = cyl, y = hwy, color = class,
tooltip = model, data_id = model)) +
geom_point_interactive()
# Use wrap_plots from patchwork
g <- wrap_plots(list(g, g), ncol = 1)
girafe(ggobj = g)