R语言psych包多直方图：为每个子图设置个性化标题的方法

我刚好碰到过这个问题！psych包的multi.hist函数确实有点小局限——它的main参数只接受单个字符串，没法直接传向量给每个子图单独设置标题。不过有几个办法能解决这个问题，还可以给你推荐更灵活的替代工具：

方法一：给已绘制的multi.hist子图手动加标题 #

因为multi.hist是基于R基础绘图系统的，我们可以先绘制不带统一标题的多直方图，再用循环逐个给子图添加自定义标题。示例代码如下：

# 加载psych包
library(psych)

# 先绘制不带统一标题的多直方图（main设为空字符串）
multi.hist(AutosCompleteNorm[,11:15], main = "")

# 定义你的个性化标题向量
titles <- c("a","b","c","d","e")
# 子图数量（这里是5个）
n_plots <- length(titles)

# 循环给每个子图添加标题
# 注意：mfg参数的布局要对应multi.hist的默认排列（比如5个图默认是3行2列）
for (i in 1:n_plots) {
  # 定位到第i个子图：(行号, 列号)，行号=(i-1)%/%2 +1，列号=(i-1)%%2 +1
  par(mfg = c((i-1) %/% 2 + 1, (i-1) %% 2 + 1))
  # 在子图顶部添加标题，line参数控制标题和图的距离
  mtext(titles[i], side = 3, line = 2, cex = 1, font = 2)
}

如果你的布局不是默认的3行2列，可以根据实际调整par(mfg)里的行号和列号计算逻辑。

方法二：用更灵活的替代包（推荐） #

如果经常需要定制子图样式，更推荐用ggplot2搭配patchwork包来实现，不仅能轻松设置个性化标题，还能自由调整配色、布局等细节，代码可读性也更高。示例代码：

# 加载需要的包
library(ggplot2)
library(patchwork)
library(tidyr)

# 把数据转成长格式（方便批量绘图）
data_long <- pivot_longer(AutosCompleteNorm[,11:15], 
                          cols = everything(),
                          names_to = "Variable",
                          values_to = "Value")

# 定义标题向量，注意要和变量名一一对应
plot_titles <- c("a","b","c","d","e")
names(plot_titles) <- colnames(AutosCompleteNorm[,11:15])

# 批量绘制每个变量的直方图
plot_list <- lapply(colnames(AutosCompleteNorm[,11:15]), function(var) {
  ggplot(data_long[data_long$Variable == var,], aes(x = Value)) +
    geom_histogram(bins = 30, fill = "steelblue", alpha = 0.7) +
    labs(title = plot_titles[var], x = "数值", y = "频数") +
    theme_minimal()
})

# 组合所有子图，设置布局为2列
wrap_plots(plot_list, ncol = 2)

如果你喜欢更简洁的函数式写法，也可以用purrr包的map2函数来替代循环，效果是一样的。

另外，gridExtra包的grid.arrange函数也可以用来组合多个ggplot或基础绘图的子图，但patchwork在布局调整和样式统一上更直观。

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