grid.arrange使用地塊

Question

我覺得我總是問同樣的問題:(的變化列表

我最近買了使用do.call函數圖的列表+表上顯示grid.arrange

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

g1 <- ggplot(data.frame(x=c(0, 10)), aes(x)) + stat_function(fun=sin) 
g2 <- ggplot(data.frame(x=c(0, 10)), aes(x)) + stat_function(fun=tan) 
g3 <- ggplot(data.frame(x=c(0, 10)), aes(x)) + stat_function(fun=cos) 
g4 <- tableGrob(data.frame(x <- 1:10, y<-2:11, z<-3:12)) 

plist <- list(g1,g2,g3,g4) 
do.call("grid.arrange", c(plist)) 

這工作，但我需要「的plist」要生成基於我試過這個變量「numruns」 ，但它不工作：

plist2 <- list(paste0("g", seq_len(numruns+1))) 
do.call("grid.arrange", c(plist2)) 

我相信我米正在調用grid.arrange（「g1」，「g2」，...）而不是grid.arrange（g1，g2，...）。 我在使用lapply之前解決了類似的問題，但在這種情況下似乎沒有幫助我，否則我錯誤地使用它。

感謝您的任何幫助。

Answer 1

您可以使用mget這樣的：

plist2 <- mget(paste0("g", 1:4)) 
do.call(grid.arrange, plist2) 

但是，創造他們的時候，這樣倒不如把該地塊成一個列表：

funs <- c(sin, tan, cos) 
DF <- data.frame(x=c(0, 10)) 

g <- lapply(funs, function(fun, df) { 
    ggplot(df, aes(x)) + stat_function(fun=fun) 
}, df=DF) 

#g[[4]] <- tableGrob(data.frame(x = 1:10, y = 2:11, z = 3:12)) 
#better for programmatic use: 
g <- c(g, list(tableGrob(data.frame(x = 1:10, y = 2:11, z = 3:12)))) 

do.call(grid.arrange, g)