Question

我想根据数据框中具有10个以上唯一值的变量数量来打印输出。这可以是任意数量的变量。我正在寻找一种方法来实现这一点，以便将绘图窗口设置为适合变量的数量。

应该是这样的：

2 vars - ＆gt; 1比2
3 vars - ＆gt; 1乘3
4 vars - ＆gt; 2乘2
5 vars - ＆gt; 2乘3
6 vars - ＆gt; 2乘3
.....
.....
16 vars - ＆gt; 4乘4
16+ vars - ＆gt; 4乘4

这是否有合理的公式;

如何将其变为成功的par(mfrow=(c(x,y)))？

另外，如何确保达到par限制时，对于下一个窗口，click，当我超过16时，我无法点击，而只是覆盖之前的图。

Answer 1

获取设备的行数和列数

n2mfrow()是为此目的而设计的，虽然它往往比列更快地改变行，因此与你想要的相反。例如：

> n2mfrow(2)
[1] 2 1

表示2行乘1列。当然，rev()可以轻松获得所需的输出：

> rev(n2mfrow(3))
[1] 1 3

以下是n2mfrow()的输出，总共有2到16个图，其中列的变化更快：

t(sapply(2:16, function(x) rev(n2mfrow(x))))

> t(sapply(2:16, function(x) rev(n2mfrow(x))))
      [,1] [,2]
 [1,]    1    2
 [2,]    1    3
 [3,]    2    2
 [4,]    2    3
 [5,]    2    3
 [6,]    3    3
 [7,]    3    3
 [8,]    3    3
 [9,]    3    4
[10,]    3    4
[11,]    3    4
[12,]    4    4
[13,]    4    4
[14,]    4    4
[15,]    4    4

进行此互动

对于“16之后点击”位。如果在for(i in numplots)循环中进行绘图，则i＆gt; 16呼叫devAskNewPage(ask = TRUE)，这将提示用户激活下一个情节。

例如：

np <- 18 ## number of plots
rc <- ifelse(np > 16, 16, np)
op <- par(mfrow = rev(n2mfrow(rc)))
for(i in seq_len(np)) {
  if(i == 2) {
    devAskNewPage(ask = TRUE)
  }
  plot(1:10)
}
par(op)
devAskNewPage(ask = FALSE)

使用locator(1)强制点击在16个帖子上移动可以做类似的事情，但需要更多的工作：

np <- 18 ## number of plots
rc <- ifelse(np > 16, 16, np)
op <- par(mfrow = rev(n2mfrow(rc)))
for(i in seq_len(np)) {
  if((i %% 16) + 1 == 2 && i > 1) {
    message("Page filled. Click on device to continue...")
    locator(1)
  }
  plot(1:10)
}
par(op)

R聪明地决定在函数中使用par-mfrow

1 个答案:

获取设备的行数和列数

进行此互动