根据项目数设置par()

Question

我有一些不同长度的图列表，长度=2,3,4,5,10,20。。。并且我通常使用CCD_ 1来改变我的显示以查看所有的绘图。例如，如果列表包含4个图，那么我将制作一个2x2网格(par(mfrow = c(2,2)(；如果列表包含3个图，那么我将制作1x3网格(par(mfrow = c(1,3)(。

我的问题是：有没有一种方法可以很好地分割显示器，而无需我在par(mfrow=c(x,y)中手动输入x和y，但机器可以根据给定列表的长度找到x和y？

额外：标题字体大小是否可以相应更改？

Answer 1

一种解决方案可以是

x=floor(sqrt(l)) # l is the length of the list
y=ceil(l/x)

Answer 2

您可以使用长度为par(mfrow = c(x,y))0的floor。

lgts <- 1:20
p <- data.frame(l=lgts, x=floor(sqrt(lgts)))
p$y <- ceiling(with(p, l/x))
p
#     l x y
# 1   1 1 1
# 2   2 1 2
# 3   3 1 3
# 4   4 2 2
# 5   5 2 3
# 6   6 2 3
# 7   7 2 4
# 8   8 2 4
# 9   9 3 3
# 10 10 3 4
# 11 11 3 4
# 12 12 3 4
# 13 13 3 5
# 14 14 3 5
# 15 15 3 5
# 16 16 4 4
# 17 17 4 5
# 18 18 4 5
# 19 19 4 5
# 20 20 4 5
op <- par(mfrow=c(p$x[1], p$y[1]))  ## set par
## plot 1
par(op)  ## reset

对于标题字体大小，您可以使用sqrt乘以一个令人愉快的常数：

plot(..., main="") 
mtext("Title", 3, 1, cex=sqrt(p$l[1]))