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

问题描述

我想编写一个 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()
}

解决方法

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

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

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

输出：

您可以创建绘图列表并将其传递给您正在使用的任何绘图库。例如，使用 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))

for-loop foreach ggplot2 patchwork r r