R - 自动化多图输入 ggPlot2

Question

我有一个名为 plotlist1 的 ggplot 列表。我想创建这些连接在一起的地块的多地块。

为了创建多图，我使用：

grid.arrange(plotlist[[1]], plotlist1[[1]], plotlist1[[2]])

plotlist[[1]] 必须添加为第一个情节。

问题是我必须做很多这样的多图并且我想自动化它。为了识别那些相关的地块，我创建了这些地块名称的列表，称为 namelist。

以相同字母开头的情节是相关的，所以我这样做了：

position = which(grepl("A", namelist))
n = length(position)

它为我提供了 plotlist1 中的地块位置，我想将它们一起绘制。我现在的问题是，如何自动创建 grid.arrange 命令？我试图用过去重新创建它并进行复制，但我就是一事无成。

这是我的尝试：

base1 = paste(replicate(lang, "plotlist1"))
base2 = paste(replicate(n, "[["))
base3 = paste(replicate(n, "]]"))
base4 = paste0(base2, position)
base5 = paste0(base4, base3)
base6 = paste0(base1, base5, collapse = ",")
base7 = paste0("plotlist[[1]],", base6)

grid_arrange(base7)
grid_arrange(as.factor(base7))

名单：

c("A00-A09", "A09", "B85-B89", "B99", "C-D4", "F10", "F10-F19", 
"G40", "G40-G47", "G45", "H0-H5", "H00-H06", "H10", "H10-H13", 
"H15-H22", "H16", "H6-H9", "H65", "H65-H75", "I10", "I10-I15", 
"I20", "I20-I25", "I30-I52", "I4-I74", "I50", "I60-I69", "I63", 
"I70-I79", "I80", "I80-I82", "I80-I89", "J00-J06", "J06", "J18", 
"J20", "J20-J22", "J22", "J40", "J40-J47", "J44", "J9-J18", "K35", 
"K35-K38", "K55-K64", "K56", "K80-K87", "L00-L08", "M00-M25", 
"M40-M54", "M54", "M60-M79", "N10-N16", "N20-N23", "N23", "N30-N39", 
"N39", "N40-N51", "O20-O29", "R00-R09", "R06", "R07", "R07-4", 
"R10", "R10-R19", "R20-R23", "R30-R39", "R40-R46", "R50-R69", 
"R51", "R55", "S00", "S00-S09", "S01", "S06", "S20", "S20-S29", 
"S30-S39", "S40-S49", "S42", "S50-S59", "S52", "S60", "S60-S69", 
"S61", "S70-S79", "S80-S89", "S82", "S90", "S90-S99", "S91", 
"S93", "T08-T14", "T15", "T15-T19", "T63", "T66-T78", "T78", 
"T80-T88", "T83")

Answer 1

我们可以使用 do.call 和 grid.arrange

 do.call(grid.arrange, c(plotlist1[1], plotlist1[grep("A", namelist)]))

或与

library(ggpubr)
n1 <- 3
n2 <- 4
ggarrange(plotlist = plotlist, ncol = n1, nrow = n2)

R - 自动化多图输入 ggPlot2

R - Automatize Multiplot Input ggPlot2

plot

automation

r

ggplot2