PROSAGA码农传奇-模型可视化-如何适应多块地块的大小？

<div class =“post-text”itemprop =“text”>
  
    您想要的功能是基本图形功能
     <code>
 help("layout")
 </code>
    。
  
  
    首先，我将编制一个数据集，因为您尚未发布一个数据集。我不会绘制回归线，只是点。
  
  
    的
      数据创建代码。
    </强>
  
   <pre>
 <code>
 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)

</code>
 </pre>
  
    的
      问题。
    </强>
  
  
    使用从第1到第5的顺序定义每个绘图的布局矩阵。和宽度给出的
     <code>
 X
 </code>
     范围。
  
   <pre>
 <code>
 layout_mat <- matrix(c(1, 2, 3, 4, 5), 1, 5, byrow = TRUE)
w <- apply(X, 1, diff)
l <- layout(layout_mat, widths = w)
layout.show(l)

</code>
 </pre>
  
    现在为轴注释腾出一些空间，保存默认图形参数，并绘制5个图形。
  
   <pre>
 <code>
 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)

</code>
 </pre>
  
    <a href="https://i.stack.imgur.com/KKdYE.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/KKdYE.png”alt =“在此处输入图片说明”/>
    </A>
  
</DIV>