如何修改psych包pairs.panels()生成的对角直方图标题？

方法1：提前修改数据列名（最简便） #

直接修改用于绘图的数据子集的列名，让pairs.panels自动使用新名称作为对角直方图的标题：

# 提取目标数据并修改列名
plot_data <- PartC[, c("Energy_consumption", "Energy_production", "CO2_emission")]
colnames(plot_data) <- c("能源消耗", "能源生产", "CO₂排放量") # 替换为你需要的自定义名称

# 绘制相关性矩阵图
pairs.panels(plot_data, 
             main = "能源生产、能源消耗与CO₂排放量的相关性")

方法2：自定义对角面板函数（不修改原数据） #

如果不想改动原数据的列名，可以通过diag.panel参数自定义对角区域的绘图逻辑，手动设置直方图标题：

# 自定义对角面板的绘图函数
custom_diag <- function(x, ...) {
  # 建立原变量名到自定义名称的映射
  name_map <- c(
    "Energy_consumption" = "能源消耗",
    "Energy_production" = "能源生产",
    "CO2_emission" = "CO₂排放量"
  )
  # 获取当前变量名并匹配自定义标题
  current_var <- deparse(substitute(x))
  plot_title <- name_map[current_var]
  
  # 绘制带自定义标题的直方图
  hist(x, main = plot_title, col = "lightgray", ...)
}

# 调用pairs.panels并指定自定义对角面板
pairs.panels(PartC[, c("Energy_consumption", "Energy_production", "CO2_emission")], 
             main = "能源生产、能源消耗与CO₂排放量的相关性",
             diag.panel = custom_diag)

内容的提问来源于stack exchange，提问作者Ömer Faruk VERGİSİZ