r - 为多个图指定基图中的轴

Question

我正在尝试绘制具有特定轴的图，同时将纵横比保持为 1。问题是情节的某些部分我不需要并且想删除。

我可以使用 margin 来管理它:

## Creating Data 
x <- seq(1, 100, length.out = 100) 
y <- seq(1, 400, length.out = 100)
## Playing with margins 
par(fin = c(3.75, 5.3) , mar = c(2, 9, 1, 3) + 0.1 )
## Making 
plot(y ~ x ,asp = 1)
abline(v = -10)
abline(v = 120)

但是如果我想绘制多个图，我不知道如何删除它

## Using mfrow 
par(mfrow = c(3,2))
for (i in 1:6) {
  plot(y ~ x ,asp = 1,xlim = c(0,100), ylim = c(0,400))
  abline(v = -10)
  abline(v = 120)
}

我怎样才能为多个地 block 做这件事？

Answer 1

这可能更接近，使用 layout 方法(参见 this question 和 layout R documentation) :

x <- seq(1, 100, length.out = 100) 
y <- seq(1, 400, length.out = 100)

plot.new()
par(mai = c(0.6,0.5,0.3,0.3))
layout(matrix(c(1,2,3,4,5,6), nrow = 2, ncol = 3, byrow = TRUE))
for (i in 1:6) {
  plot(y ~ x ,asp = 1, ylim = c(0,400))
  abline(v = -10)
  abline(v = 120)
}

par(mai=c(b,l,t,r)) 选项更改子图周围空白的大小。