如何调整ggcorrplot中y轴标签位置使其与相关方块对齐？

我使用ggcorrplot绘制相关矩阵时，默认Y轴标签会统一堆叠在同一轴线上，希望将Y轴标签偏移放置，让顶行的cyl标签紧邻数值为0.9的红色相关方块。

当前使用的R代码：

library(ggplot2)
library(ggcorrplot)

# 示例数据
M <- cor(mtcars)[1:3,1:3]

ggcorrplot(M,
           type = "lower",
           outline.color = 'black',
           lab = TRUE,
           tl.srt = 0,
           ggtheme = ggplot2::theme_void)

当前输出效果：

理想效果参考：

解决方案 #

ggcorrplot基于ggplot2构建，我们可以手动修改Y轴标签的坐标来实现需求：

library(ggplot2)
library(ggcorrplot)

# 示例数据
M <- cor(mtcars)[1:3,1:3]

# 生成基础相关矩阵图
p <- ggcorrplot(M,
           type = "lower",
           outline.color = 'black',
           lab = TRUE,
           tl.srt = 0,
           ggtheme = ggplot2::theme_void)

# 提取Y轴标签的图层数据，调整Y坐标让标签上移至对应方块顶部
y_label_data <- p$layers[[2]]$data
y_label_data$y <- y_label_data$y + 0.5

# 替换原图层的标签数据
p$layers[[2]]$data <- y_label_data

# 调整Y轴范围，防止标签被裁切
p <- p + ylim(c(0.5, nrow(M) + 0.5))

# 输出调整后的图
print(p)

说明 #

通过提取并修改标签图层的Y坐标，让每个Y轴标签向上偏移0.5个单位（对应矩阵方块的高度），就能让标签紧邻对应行的顶部方块，实现和理想效果一致的布局。

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