r - 通过迭代 for 循环创建单个图，将图拼凑在一起

Question

我想编写一个生成图网格的 for 循环（例如在使用拼凑时）。我想为 color_list 数据框中的每个项目运行循环并将其用作美学。

我设法编写了循环，但不确定如何保留所有情节并将它们放在最后。

color_list <- data.frame(color = c("red", "blue", "green", "yellow"))

for(row in 1:nrow(color_list)) {
  data %>%
    ggplot(aes(x=x,y=y, color = color_list[row,]$color)) +
    geom_line()
}

Answer 1

你在找这个吗，如果我误解了你的问题，请告诉我：

library(tidyverse)
library(patchwork)
reduce( map(color_list$color, ~ggplot(mtcars, aes(x=mpg,y=drat)) +
  geom_line(color=.x)), `+`)

说明： patchwork 库使用加号运算符将图相加，知道这一点我们可以使用 reduce 来收集所有图并将它们相加，类似于 g1 + g2 + g3....，注意，我说的相似不一样，本质上是 reduce确实通过一次获取输入来减少到一个对象，然后再次获取结果并应用于下一个对象等等。其中 g1 ， g2 和 g3 是 ggplot 对象。在这里，我使用 mtcars 数据来做同样的事情。在这里，这些 g1、g2、g3 等是由 map 函数通过迭代颜色创建的。

输出：

Answer 2

您可以创建绘图列表并将其传递给您正在使用的任何绘图库。例如，patchwork::wrap_plots你可以这样做：

do.call(patchwork::wrap_plots, lapply(color_list$color, function(x) {
  ggplot(data, aes(x=x,y=y)) +geom_line(color = x)
})) -> plot

plot

数据

color_list <- data.frame(color = c("red", "blue", "green", "yellow"))
data <- data.frame(x = rnorm(5), y = rnorm(5))