如何为base R中pairs()绘图的指定面板设置单一颜色？

核心思路 #

要给指定面板的所有点分配单一颜色，关键是在自定义面板函数中获取当前面板的位置信息：可以用panel.number()获取面板的全局序号，或者which.panel()获取面板对应的行/列索引（对应变量的配对组合），再根据这些信息指定颜色。

方法1：按面板全局序号设置颜色 #

panel.number()返回当前面板的序号，按行优先排列（比如4个变量的数据集，第一行面板序号是1-4，第二行5-8，以此类推）。你可以先定义一个长度等于总面板数（ncol(df)^2）的颜色向量，给每个序号分配对应颜色，再在面板函数中调用。

示例代码 #

# 准备数据：使用iris的前4个数值变量
data(iris)
df <- iris[, 1:4]

# 自定义面板函数
custom_panel <- function(x, y, ...) {
  # 获取当前面板的全局序号
  p_num <- panel.number()
  # 定义每个面板的颜色：给第2、6、9号面板分别设红、绿、蓝，其余为黑色
  col_vec <- rep("black", ncol(df)^2)
  col_vec[c(2, 6, 9)] <- c("red", "green", "blue")
  
  # 绘制散点并指定颜色
  points(x, y, col = col_vec[p_num], pch = 16, ...)
}

# 调用pairs绘图，自定义面板和对角线样式
pairs(df, 
      panel = custom_panel,
      diag.panel = function(x) {
        hist(x, col = "lightgray", border = "white", main = "")
      })

方法2：按变量配对（行/列索引）设置颜色 #

如果想直接指定某两个变量的配对面板（比如y轴是变量A、x轴是变量B的面板），用which.panel()更直观——它返回一个长度为2的向量c(i, j)，其中i是y轴变量的索引，j是x轴变量的索引（对应数据框的列顺序）。

示例代码 #

# 自定义面板函数：按变量配对设置颜色
custom_panel2 <- function(x, y, ...) {
  # 获取当前面板的行(y轴)、列(x轴)索引
  ij <- which.panel()
  row_idx <- ij[1]
  col_idx <- ij[2]
  
  # 根据变量配对指定颜色
  if (row_idx == 1 && col_idx == 2) {
    # y=Sepal.Length、x=Sepal.Width的面板设红色
    point_col <- "red"
  } else if (row_idx == 3 && col_idx == 4) {
    # y=Petal.Length、x=Petal.Width的面板设绿色
    point_col <- "green"
  } else {
    # 其余面板默认黑色
    point_col <- "black"
  }
  
  points(x, y, col = point_col, pch = 16, ...)
}

# 绘图
pairs(df, panel = custom_panel2)

补充说明 #

• 对角线面板默认绘制直方图/密度图，你可以通过diag.panel参数自定义其样式，比如匹配对应面板的颜色。
• 可结合pch、cex等参数调整点的样式，只需在points()中传递即可。

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