如何用ggpairs仅绘制相关矩阵前两行并在散点图标注相关系数

你的需求可以直接通过ggpairs的内置参数和极简自定义面板实现，不需要编写复杂函数，具体操作如下：

实现方案 #

核心参数调整说明

• 实现仅保留前2行内容：直接调用ggpairs的rows参数，指定仅输出前2个变量作为行维度，最终生成的可视化结果就是表头行+2行变量内容，刚好符合你要的3行要求，其余无关行自动隐藏。
• 实现散点图面板叠加相关系数：仅需编写一个极简的匿名面板函数，把散点绘制和相关系数标注叠加即可，代码量仅3行，不属于复杂自定义逻辑。

完整修改后代码

library(ggplot2)
library(GGally)

# 提取目标变量
target_data <- mtcars[c(3:7,1)]

ggpairs(target_data,
        # 仅保留前2行变量
        rows = 1:2,
        title = "Corr Analysis of...",
        # 自定义连续变量面板：散点+相关系数叠加
        lower = list(continuous = function(data, mapping, ...) {
          # 先画散点
          p <- ggally_points(data, mapping, alpha = 0.3, size = 0.1)
          # 叠加相关系数标签，颜色可自行调整
          p + ggally_cor(data, mapping, size = 3, color = "red")
        }),
        # 上三角不需要可以直接设为空白，进一步精简版面
        upper = list(continuous = "blank")
)

替代方案（完全不用自定义函数）

如果不想写任何自定义逻辑，可以用分面散点图实现相近效果，步骤如下：

1. 提前计算前2个变量和其余所有变量的相关系数
2. 用ggplot2绘制散点图，按变量对分面，再把计算好的相关系数用geom_text添加到图中即可。

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