如何在文本列表上使用apply来循环r中的绘图
我打算使用如下方式生成每页的多重打印：如何在文本列表上使用apply来循环r中的绘图,r,loops,apply,lapply,R,Loops,Apply,Lapply,我打算使用如下方式生成每页的多重打印： d=data.frame(label=c(rep('a',3),rep('b',3)) ) d$x = sample(6,nrow(d)) d$y = sample(10,nrow(d)) plotList <- lapply(c("a","b"), function(i) { plot(df[i,2],df[i,3]) }) library(gridExtra) do.call(grid.arrange, c(plotList, n
d=data.frame(label=c(rep('a',3),rep('b',3)) )
d$x = sample(6,nrow(d))
d$y = sample(10,nrow(d))
plotList <- lapply(c("a","b"), function(i) {
plot(df[i,2],df[i,3])
})
library(gridExtra)
do.call(grid.arrange, c(plotList, nrow=2))
但是我需要绘制的具体案例，我没有一个很好的方法来共享原始数据，我需要使用apply来绘制它和grid.arrange放在同一页上。我看到了grid.arrange示例。想知道如何使应用程序功能工作？谢谢我真的没有得到你需要的东西。你能给我们提供更多的信息，或者发布你说会有用的ggplot输出吗？除非你使用其他软件包，如ggplot，否则绘图不是对象。所以你不能把它们放在一个列表里。但我不确定你是否需要它。如果你真的想用
网格来使用基本图形，你也可以用df代替d，用df[i，2]代替df[df$label==i，2]。排列，你需要gridGraphics
，它允许你用网格来重新绘制基本图形。你能给我们提供更多的信息，或者发布你说会有用的ggplot输出吗？除非你使用其他软件包，如ggplot，否则绘图不是对象。所以你不能把它们放在一个列表里。但我不确定你是否需要它。此外，如果您真的想在网格中使用基本图形，请使用df而不是d，并使用df[i，2]而不是df[df$label==i，2]。排列，您将需要网格图形，它允许您使用网格重新绘制基本图形。
d %>% ggplot(aes(x, y)) + geom_point() + facet_grid(.~label)