如何用R的layout函数实现首行图形等比居中的三面板布局？

完全可以用layout()函数实现你想要的效果——让Fig 1A和Fig 1B、Fig 1C大小比例一致，且居中在它们上方。核心思路是通过添加空白面板占位，配合widths和heights参数精确控制各区域的比例。

问题根源 #

你原来的代码中，布局矩阵matrix(c(1,1,2,3),2,2,byrow=TRUE)让Fig 1A占据了第一行的两列宽度，所以会被拉伸成宽图。要让它和下方两个图等宽，需要给它左右留出空白，限制其宽度与下方单个图一致。

解决方案代码 #

# 模拟测试数据
set.seed(123)
x1 <- rnorm(50)
y1 <- rnorm(50)
x2 <- rnorm(50)
y2 <- rnorm(50)
x3 <- rnorm(50)
y3 <- rnorm(50)

# 定义布局：2行3列，0代表空白面板
layout_matrix <- matrix(c(0, 1, 0, 2, 3, 0), nrow = 2, ncol = 3, byrow = TRUE)
# 设置各列宽度比例（左右空白列宽度为中间列的1/2）、各行高度比例（两行等高）
layout(layout_matrix, widths = c(0.5, 1, 0.5), heights = c(1, 1))

# 依次绘制三个图形
plot(x1, y1, main = "Fig 1A")
plot(x2, y2, main = "Fig 1B")
plot(x3, y3, main = "Fig 1C")

关键细节解释 #

1. 布局矩阵：matrix(c(0,1,0,2,3,0), 2, 3, byrow=TRUE)定义了2行3列的布局：
   • 第一行：左右为空白面板（0），中间位置放Fig 1A（1）
   • 第二行：前两个位置放Fig 1B（2）和Fig 1C（3），第三列为空白
2. widths参数：c(0.5,1,0.5)设置三列的相对宽度，中间列（Fig 1A所在列）宽度为1，左右空白列各为0.5，确保Fig 1A的宽度和下方单个图的宽度完全一致
3. heights参数：c(1,1)让两行高度相同，保证三个图形的高度比例一致
4. 注意：不需要将layout()的返回值赋值给layout变量，直接调用函数即可。

内容的提问来源于stack exchange，提问作者Max