如何调整pairs()生成的相关图标签至侧边与底部？

我之前也被这个问题卡过！默认的pairs()函数确实会把变量标签塞在对角面板里，要把它们移到底部和侧边其实不难，用Base R就能搞定，给你两种实用的方案：

方案一：自定义面板+手动添加标签（最灵活） #

先构造示例数据，然后通过清空对角面板、调整边距，再手动把标签添到对应位置：

# 拿mtcars的前4列做示例
data(mtcars)
target_df <- mtcars[, 1:4]

# 定义一个空面板函数，用来清空对角的默认标签
empty_diag <- function(x, y, ...) {}

# 先绘制无对角标签的相关图，预留足够边距放标签
pairs(target_df,
      diag.panel = empty_diag,  # 去掉对角面板的内容
      xlab = "", ylab = "",      # 先关闭默认的轴标签
      oma = c(6, 6, 2, 2)       # 调整外边界，给标签留空间
)

# 在底部（x轴方向）添加变量名
mtext(colnames(target_df), 
      side = 1, line = 3, 
      at = seq(0, 1, length.out = ncol(target_df)),
      cex = 0.9)  # 可调整字体大小

# 在左侧（y轴方向）添加垂直显示的变量名
mtext(colnames(target_df), 
      side = 2, line = 3, 
      at = seq(1, 0, length.out = ncol(target_df)),
      las = 2,  # 让文本垂直显示
      cex = 0.9)

这段代码的逻辑很简单：先让对角面板空着，再用mtext()精准把变量名定位到底部和左侧的对应位置，at参数保证每个标签和对应的面板对齐，oma参数避免标签被图表边缘截断。

方案二：借助axis.panel参数（更简洁） #

如果你不想手动写mtext()，也可以通过修改axis.panel来让轴标签显示在外侧：

pairs(target_df,
      diag.panel = empty_diag,
      axis.panel = function(x, y, ...) {
          # 只在底部和左侧显示轴标签
          if (par("usr")[3] == y) axis(1, ...)  # 底部面板显示x轴
          if (par("usr")[1] == x) axis(2, ...)  # 左侧面板显示y轴
      },
      labels = colnames(target_df),
      oma = c(4, 4, 2, 2)
)

这个方法通过自定义axis.panel函数，只在最底部和最左侧的面板显示轴标签，自动帮你对齐变量名，省掉了手动定位的步骤。

两种方法都能实现你要的效果，看你更偏向灵活控制还是简洁写法啦！

内容的提问来源于stack exchange，提问作者B.Shermeister