修复grid.arrange中多个图的大小

Question

我创建了一个函数plot_output，根据提供的输入生成多个图。我想修复每个图的大小，而且，我不希望图的大小随显示的图的数量而变化。我希望绘图的大小保持固定，而不管显示的绘图数量。我使用R中提供的钻石数据集进行分析。有人可以帮我吗？

  library(ggplot2)
  library(gridExtra)

 data.diamonds<-data.frame(diamonds)

  plot_output<-function(data, var1, var2, var)
 {


 length_vars<-length(var)
 print(length_vars)

p<-list()
g<-list()

for( i in 1:length_vars)
{
 p[[i]]<-ggplot(data, aes_string(y=var1, x=var[i]))+geom_point()
  g[[i]]<-ggplot(data, aes_string(y=var2, x=var[i]))+geom_point()
 }


do.call("grid.arrange", c(p,g,  list(ncol=2)))


}

plot_output(data.diamonds, "price", "depth", var=c("cut","x"))