ggplot2（）和gridExtra（） - 如何獲得多個地塊和單個地塊之間的一致性？

Question

我有五個數據幀，df1-df5。

我想使用ggplot2（）爲每個數據框製作五個散點圖。我想將四個地塊（df1p-df4p）分組在一起，但第五個（df5p）分別是分開。我設法將df1p-df4p分組在一起。問題在於dfp5圖的字體和整體外觀與聯合df1p-df4p圖不同。我想要一些統一性，所以我希望df5p圖的大小，字體和格式與df1p-df4p分組中的一個圖大小相似。

任何幫助將不勝感激。

起點（DF1-DF5）：

df1 <- data.frame(var1=c(1.23,4.23,10.32),var2=c(1,6,18.7)) 
df2 <- data.frame(var3=c(3.32,5.34,18.45),var4=c(3.54,9.43,17.34)) 
df3 <- data.frame(var5=c(3.43,19.32,1.23),var6=c(2.32,19.12,4.23)) 
df4 <- data.frame(var7=c(4.54,2.23,19.32),var8=c(1.54,6.43,19.4)) 
df5 <- data.frame(var9=c(5.43,1.23,19.54),var10=c(1.23,8.43,19.9)) 

當前代碼：

library(gridExtra) 
library(ggplot2) 

df1p <- ggplot(df1, aes(x=var1, y=var2)) + geom_point(shape=2) + ggtitle("df1 plot") 
df2p <- ggplot(df2, aes(x=var3, y=var4)) + geom_point(shape=2) + ggtitle("df2 plot") 
df3p <- ggplot(df3, aes(x=var5, y=var6)) + geom_point(shape=2) + ggtitle("df3 plot") 
df4p <- ggplot(df4, aes(x=var7, y=var8)) + geom_point(shape=2) + ggtitle("df4 plot") 
df5p <- ggplot(df5, aes(x=var9, y=var10)) + geom_point(shape=2) + ggtitle("df5 plot") 

df1to4p<- grid.arrange(df1p,df2p,df3p,df4p, ncol=2) 

Answer 1

這裏的佈局中導致類似大小的地塊的方式曲線的一個例子。我也採取了把你的數據幀和情節成列表的自由，以縮短代碼：

library(gridExtra) 
library(ggplot2) 

# List of data frames 
dl = mget(paste0("df",1:5)) 

# List of plots 
pl = lapply(names(dl), function(dat) { 
    v = names(dl[[dat]]) 
    ggplot(dl[[dat]], aes_string(x=v[1], y=v[2])) + 
    geom_point(shape=2) + 
    ggtitle(paste(dat, "plot")) 
}) 

png("4plots.png", 400, 400) 
grid.arrange(grobs=pl[1:4], ncol=2) 
dev.off() 

png("5thPlot.png", 200, 200) 
pl[[5]] 
dev.off()