排列ggplot图列表并调整间距/边距

Question

我有一个创建ggplot图列表的函数。我目前正在使用patchwork将绘图排列在一起，以一种我可以编织到Word的方式，但我对它渲染时的外观很不满意。当前的输出如下所示：

​

​

我想让它看起来像这样：

​

​

目前，我的代码如下：

patchwork_plots <- Reduce(`+`, plots)

patchwork_plots + 
  plot_layout(ncol=2)  

我尝试了几个不同的包和不同的调整方法，但似乎都没有真正起作用。任何建议都是很棒的。

Answer 1

一个简单的解决方案是只需更改您的纵横比和绘图的width=和height=。绘图中的图形不会与绘图中的文本缩放相同，而是取决于图形设备的分辨率和大小/纵横比。这里有一个示例，它显示了3个看起来非常不同的绘图，它们可以通过调整输出的纵横比来产生。

library(ggplot2)
# intentionally crowded plot
gplot(mtcars, aes(mpg, disp)) + geom_point() +
  facet_wrap(factor(cyl)~factor(carb), scales='free') +
  labs(x='mpg is here and this is long', y='disp is here and this is long too!')

宽度= 4，高度=3

ggsave('plot4_3.png', width=4, height=3)

​

​

宽度= 8，高度=5

ggsave('plot8_5.png', width=8, height=5)

​

​

宽度= 12，高度=9

ggsave('plot12_9.png', width=12, height=9)

​

​