R layout 指定复杂的绘图安排

说明

layout 将设备划分为与矩阵 mat 中一样多的行和列，并在相应参数中指定 column-widths 和 row-heights。

用法

layout(mat, widths = rep.int(1, ncol(mat)),
       heights = rep.int(1, nrow(mat)), respect = FALSE)

layout.show(n = 1)
lcm(x)

参数

mat	指定输出设备上下一个 N 图形位置的矩阵对象。矩阵中的每个值必须是0 或正整数。如果N 是矩阵中最大的正整数，则整数\{1, \dots, N-1\} 也必须在矩阵中至少出现一次。
widths	设备上列宽度值的向量。相对宽度用数值指定。绝对宽度(以厘米为单位)由 lcm() 函数指定(参见示例)。
heights	设备上行高值的向量。可以指定相对和绝对高度，请参阅上面的widths。
respect	逻辑值或矩阵对象。如果是后者，则它必须具有与 mat 相同的维度，并且矩阵中的每个值必须是 0 或 1 。
n	要绘制的图形数量。
x	被解释为厘米数的尺寸。

细节

根据 mat 中 i 出现的行和列，为图 i 分配由这些行和列的子集组成的区域。

respect 参数控制单元 column-width 是否与设备上的单元 row-height 具有相同的物理测量值。

布局中的行数和列数以及单元格总数 (10007) 存在限制(当前为 200)。

layout.show(n) 绘制(部分)当前布局，即下一个n 图形的轮廓。

lcm 是一个简单的函数，用作指定 layout() 的 widths 和 heights 参数的绝对尺寸的接口。

值

layout 返回数字的数量， N ，见上文。

警告

这些函数与在设备上排列绘图的其他机制完全不兼容： par(mfrow) 、 par(mfcol) 和 split.screen 。

例子

def.par <- par(no.readonly = TRUE) # save default, for resetting...

## divide the device into two rows and two columns
## allocate figure 1 all of row 1
## allocate figure 2 the intersection of column 2 and row 2
layout(matrix(c(1,1,0,2), 2, 2, byrow = TRUE))
## show the regions that have been allocated to each plot
layout.show(2)

## divide device into two rows and two columns
## allocate figure 1 and figure 2 as above
## respect relations between widths and heights
nf <- layout(matrix(c(1,1,0,2), 2, 2, byrow = TRUE), respect = TRUE)
layout.show(nf)

## create single figure which is 5cm square
nf <- layout(matrix(1), widths = lcm(5), heights = lcm(5))
layout.show(nf)


##-- Create a scatterplot with marginal histograms -----

x <- pmin(3, pmax(-3, stats::rnorm(50)))
y <- pmin(3, pmax(-3, stats::rnorm(50)))
xhist <- hist(x, breaks = seq(-3,3,0.5), plot = FALSE)
yhist <- hist(y, breaks = seq(-3,3,0.5), plot = FALSE)
top <- max(c(xhist$counts, yhist$counts))
xrange <- c(-3, 3)
yrange <- c(-3, 3)
nf <- layout(matrix(c(2,0,1,3),2,2,byrow = TRUE), c(3,1), c(1,3), TRUE)
layout.show(nf)

par(mar = c(3,3,1,1))
plot(x, y, xlim = xrange, ylim = yrange, xlab = "", ylab = "")
par(mar = c(0,3,1,1))
barplot(xhist$counts, axes = FALSE, ylim = c(0, top), space = 0)
par(mar = c(3,0,1,1))
barplot(yhist$counts, axes = FALSE, xlim = c(0, top), space = 0, horiz = TRUE)

par(def.par)  #- reset to default

作者

Paul R. Murrell

参考

Murrell, P. R. (1999). Layouts: A mechanism for arranging plots on a page. Journal of Computational and Graphical Statistics, 8, 121-134. doi:10.2307/1390924.

Chapter 5 of Paul Murrell's Ph.D. thesis.

Murrell, P. (2005). R Graphics. Chapman & Hall/CRC Press.

也可以看看

par 带有参数 mfrow 、 mfcol 或 mfg 。