marrangeGrob 后无法使用 ggsave

Question

我正在使用以下设置创建ggplot2 图表列表。

这很好用：

library(grid)
library(gridExtra)
library(ggplot2)

mycols <- c('year','displ')

mylist <- list()
for(item in mycols){

  p <- ggplot(mpg, aes_string(x = 'hwy', y = item)) +  
    geom_point()
  mylist[[(length(mylist) +1)]] <- p
}

ml = marrangeGrob(grob = mylist, nrow=2, ncol=1)
ggsave("P://multipage.pdf", ml, width =10, height = 5)

但是，在循环中，替换：

• mylist[[(length(mylist) +1)]] 与

• mylist <- append(mylist, p) 此处讨论的how to append an element to a list without keeping track of the index? 将在ggsave 阶段引发错误：

$<-.data.frame(*tmp*, "wrapvp", value = list(x = 0.5, y = 0.5, : 替换有17行，数据有234

这里有什么问题？单独来看，列表中的所有图表看起来都很好。

谢谢！

Answer 1

这实际上与marrangeGrob 无关，而与您如何构建列表有关。比较这些方法的输出结构

out1 <- list()
out1[[length(out1)+1]]<-list(a=1, b=2)
out1[[length(out1)+1]]<-list(a=2, b=2)
str(out1)
# List of 2
#  $ :List of 2
#   ..$ a: num 1
#   ..$ b: num 2
#  $ :List of 2
#   ..$ a: num 2
#   ..$ b: num 2

out2 <- list()
out2 <- append(out2, list(a=1, b=2))
out2 <- append(out2, list(a=2, b=2))
str(out2)
# List of 4
#  $ a: num 1
#  $ b: num 2
#  $ a: num 2
#  $ b: num 2

请注意，它们产生不同的结构。 append() 将元素添加到“根”列表中，而不是将列表嵌套在列表中。您可以自己明确地使用list()

out3 <- list()
out3 <- append(out3, list(list(a=1, b=2)))
out3 <- append(out3, list(list(a=2, b=2)))
str(out3)
# List of 2
#  $ :List of 2
#   ..$ a: num 1
#   ..$ b: num 2
#  $ :List of 2
#   ..$ a: num 2
#   ..$ b: num 2

但是很少需要像这样在 R 中搞乱循环。最好使用像lapply() 或Map() 这样的内置迭代器。例如

mylist <- lapply(mycols, function(item) {
  ggplot(mpg, aes_string(x = 'hwy', y = item)) + 
    geom_point()
})