如何使用 ggplot 和 geom point 绘制数据框的每一列与其他每一列的关系？

Question

我有一个包含 3 列的数据框，我想用 geom_point 绘制每一列与另一列的关系图。我知道 ggpairs 函数，但我想使用常规 geom_point() 来执行此操作。

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)

有什么想法吗？

Answer 1

library(tidyverse)
df_long <- pivot_longer(df, -id)
df_long |>
  left_join(df_long, join_by(id)) |>
  filter(name.x != name.y) |>
  ggplot(aes(value.x, value.y)) +
  geom_point() +
  facet_grid(name.x ~ name.y)