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”，值= 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()
})

在marrangeGrob之后不能使用ggsave

1 个答案: