如何解决通过迭代 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))
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。