以正常高度连续绘制三个图

Question

我尝试在一页上连续绘制三个图。

为此，我使用布局功能设置网格：

layout(matrix(c(1,2,3), nrow = 1, ncol = 3, byrow = TRUE))

但是，这将连续生成3个图，其中所有三个图都有一个significantly larger height than width。我希望每个图都是平方的（x轴大小与y轴相同）

如何使用ggplot，par（）或layout（）来实现