如何单独调整corrplot顶部标签与矩阵的间距？

针对你遇到的corrplot无法单独调整顶部/左侧标签间距的问题，这里提供两种可行的解决思路：

方法一：手动重绘顶部标签（基于基础绘图系统） #

通过先隐藏顶部标签，再利用基础绘图的text()函数手动添加标签，精准控制顶部标签与矩阵的间距，同时不影响左侧标签的位置：

library(corrplot)
library(RColorBrewer)

car_matrix <- cor(mtcars, use = "pairwise.complete.obs", method = "pearson")

png("Cars matrix.png", width = 1800, height = 1800, res = 300)
# 调整绘图区域顶部边距，为手动添加标签预留空间
par(mar = c(5, 4, 6, 2))  # mar参数顺序：下、左、上、右，数值单位为行

# 绘制相关矩阵，仅显示左侧标签（隐藏顶部标签）
corrplot(car_matrix, method = "number", type = "upper",
         col = brewer.pal(n = 8, name = "Greys"), tl.col = "black", 
         number.cex = 0.75, tl.srt = 0, tl.pos = "l")

# 手动计算顶部标签的坐标并添加
top_labels <- rownames(car_matrix)
n_cols <- ncol(car_matrix)
# 生成每个标签对应的x轴中心坐标（匹配矩阵列的位置）
x_positions <- seq(from = 1/n_cols, to = 1, length.out = n_cols)
# 通过调整y值控制标签与矩阵的间距，y=1.1可根据需求修改
text(x = x_positions, y = 1.1, labels = top_labels, cex = 0.75, col = "black")

dev.off()

方法二：使用ggcorrplot替代（ggplot2生态） #

ggcorrplot作为corrplot的ggplot实现，支持通过theme参数单独控制x轴（顶部）和y轴（左侧）标签的边距，灵活性更高：

library(ggcorrplot)
library(RColorBrewer)

car_matrix <- cor(mtcars, use = "pairwise.complete.obs", method = "pearson")

png("Cars matrix.png", width = 1800, height = 1800, res = 300)
ggcorrplot(car_matrix, method = "number", type = "upper",
           colors = brewer.pal(n = 8, name = "Greys"),
           lab_size = 3,  # 对应原代码的number.cex
           tl.cex = 0.75, tl.col = "black", tl.srt = 0) +
  theme(
    # 单独设置顶部标签与矩阵的间距（t参数控制上方边距）
    axis.text.x = element_text(margin = margin(t = 10, unit = "pt")),
    # 单独设置左侧标签与矩阵的间距（r参数控制右侧边距）
    axis.text.y = element_text(margin = margin(r = 5, unit = "pt"))
  )
dev.off()

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