如何用ggplot的geom_point绘制数据框各列间的两两散点图？

要手动用geom_point()绘制各列两两组合的散点图，核心是先整理出所有变量的两两配对，再结合ggplot的分面或批量绘图来实现，具体步骤如下：

1. 数据预处理：生成变量配对的长格式数据 #

先把宽格式的数据集转换成适合配对分析的长格式，再通过自连接得到所有变量的两两组合（排除自身配对）：

library(tidyverse)

# 生成示例数据（设置随机种子保证结果可复现）
set.seed(123)
df <- data.frame(A = rnorm(n = 100, mean = 0, sd = 1),
                 B = rnorm(n = 100, mean = 3, sd = 0.5),
                 C = rnorm(n = 100, mean =1, sd =2)) %>% mutate(id = 1:100)

# 转成长格式
df_long <- df %>% 
  select(-id) %>% 
  gather(key = var, value = val)

# 自连接得到所有变量配对（排除自身）
df_pairs <- df_long %>% 
  inner_join(df_long, by = "id", suffix = c("_x", "_y")) %>% 
  filter(var_x != var_y)

2. 用分面绘制散点图矩阵 #

利用facet_grid可以把所有配对的散点图整理成矩阵形式，效果和ggpairs的散点部分类似：

ggplot(df_pairs, aes(x = val_x, y = val_y)) +
  geom_point(alpha = 0.6) + # 加alpha避免点重叠
  facet_grid(var_y ~ var_x, scales = "free") + # 按变量分面，自由缩放坐标轴
  labs(x = "", y = "") +
  theme_bw()

如果不想重复绘制反向配对（比如A vs B和B vs A），可以筛选只保留上三角或下三角的配对：

# 只保留var_x < var_y的配对（下三角）
df_pairs_unique <- df_long %>% 
  inner_join(df_long, by = "id", suffix = c("_x", "_y")) %>% 
  filter(var_x < var_y)

# 用facet_wrap展示唯一配对
ggplot(df_pairs_unique, aes(x = val_x, y = val_y)) +
  geom_point(alpha = 0.6) +
  facet_wrap(~paste(var_x, "vs", var_y), scales = "free") +
  theme_bw()

3. 批量生成单独的散点图 #

如果需要每个配对的散点图单独保存或查看，可以用purrr批量生成ggplot对象，再用patchwork拼接：

# 定义所有变量配对
var_pairs <- crossing(x = c("A", "B", "C"), y = c("A", "B", "C")) %>% 
  filter(x != y)

# 批量生成图
plot_list <- var_pairs %>% 
  pmap(function(x, y) {
    ggplot(df, aes(x = .data[[x]], y = .data[[y]])) +
      geom_point(alpha = 0.6) +
      labs(x = x, y = y) +
      theme_bw()
  })

# 用patchwork拼接所有图
library(patchwork)
wrap_plots(plot_list, ncol = 2)

内容的提问来源于stack exchange，提问作者say.ff