使用 ggplot2 绘制相关矩阵图

我想创建一个相关矩阵图，即每个变量相对于其他变量绘制在散点图中的图，例如pairs() or splom()。我想用 ggplot2 来做到这一点。请参阅此处的示例。该链接提到了一些人为在 ggplot2 中执行此操作而编写的一些代码，但是，它已经过时并且不再有效（即使在您换出已弃用的部分之后）。

可以通过循环中的循环来完成此操作，然后multiplot()，但一定有更好的方法。我尝试将数据集融合为长数据，然后复制值和变量，然后使用构面。这几乎给你一些正确的东西。

d = data.frame(x1=rnorm(100),
               x2=rnorm(100),
               x3=rnorm(100),
               x4=rnorm(100),
               x5=rnorm(100))
library(reshape2)
d = melt(d)
d$value2 = d$value
d$variable2 = d$variable

library(ggplot2)
ggplot(data=d, aes(x=value, y=value2)) +
  geom_point() +
  facet_grid(variable ~ variable2)

这得到了正确的一般结构，但仅适用于绘制每个变量自身。是否有一些更聪明的方法可以做到这一点而不诉诸两个循环？

library(GGally)

set.seed(42)
d = data.frame(x1=rnorm(100),
               x2=rnorm(100),
               x3=rnorm(100),
               x4=rnorm(100),
               x5=rnorm(100))

# estimated density in diagonal
ggpairs(d)

# blank
ggpairs(d, diag = list("continuous"="blank")