R 如何调整多个绘图的大小？

如何根据x轴的长度调整以下绘图的大小

---

绘图的宽度应参考其各自x轴截面的长度。所有绘图的高度应相同。

您需要的功能是基本图形功能

帮助（“布局”）

首先，我将创建一个数据集，因为您尚未发布数据集。我不会画回归线，只画点

数据创建代码。

fun <- function(X, A) {
  apply(X, 1, function(.x){
    xx <- seq(.x[1], .x[2], length.out = 100)
    y <- A[1]*xx + A[2] + rnorm(100, 0, 25)
    list(xx, y)
  })}

Coef <- matrix(c(0.24, 0.54, 
                 0.75, 0.54,
                 0.33, 2.17,
                 0.29, 3.3,
                 0.29, 4.41), byrow = TRUE, ncol = 2)

X <- matrix(c(0.1, 0.49,
              0.5, 2.49,
              2.5, 3.9,
              4.0, 5.9,
              6.0, 12.0), byrow = TRUE, ncol = 2)

set.seed(1234)
res <- fun(X, Coef)

现在为轴注释留出一些空间，保存默认图形参数，并绘制5个图形

om <- par(mar = c(3, 0.1, 0.1, 0.1),
          oma = c(3, 2, 0.1, 0.1))
for(i in 1:5) plot(res[[i]][[1]], res[[i]][[2]])
par(om)

om
om <- par(mar = c(3, 0.1, 0.1, 0.1),
          oma = c(3, 2, 0.1, 0.1))
for(i in 1:5) plot(res[[i]][[1]], res[[i]][[2]])
par(om)