在marrange之後無法使用ggsaveGrob

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」，值=列表（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() 
})