ggplot2中的pairs2等价物

Question

我正在尝试创建一个散点图矩阵，其中矩阵的 x 和 y 变量不同（与 pairs() 对 x 和 y 轴使用相同的变量相反）。

目前我正在使用 TeachingDemos 库中的 pairs2() 函数，但希望对其外观有更多控制权，并正在考虑使用 ggplot2 复制它。 ggplot2中是否有等效的东西？或者如果我不想使用pairs2() 函数，我应该如何最好地生成类似的散点图矩阵？

不确定我是否需要发布示例代码，无论如何都在这里

library(TeachingDemos)
a <- matrix(runif(1:10), ncol = 2)
b <- matrix(sample(1:10), ncol = 2)
pairs2(a,b)

编辑：

为了澄清，a 和 b 都是 2 个不同变量的矩阵。使用以下示例代码可能会更清楚

library(TeachingDemos)
a <- matrix(runif(1:10), ncol = 2)
b <- matrix(sample(1:10), ncol = 2)
colnames(a) <- c("Ratio of correct answer", "Ratio of time spent")
colnames(b) <- c("Hours spent per study session", "Frequency of study per week")
pairs2(a,b)

感谢 Henrik 的建议。抱歉描述不准确，这里是一个学习新手，欢迎所有建议。

Answer 1

与 ggplot2 的情况一样，困难的部分是将数据转换为正确的形式。在这种情况下，我们希望将两个 x 变量列合并为一列，将两个 y 变量列合并为一列，并添加指示每个值来自哪个 x 和 y 变量的指示符：

library(reshape2)
library(ggplot2)    
dat <- data.frame(a, b)
    names(dat) <- c("x_1", "x_2", "y_1", "y_2")
    dat.m <- melt(dat, measure.vars = c("x_1", "x_2"), variable.name = "x_var", value.name = "x")
    dat.m <- melt(dat.m, measure.vars = c("y_1", "y_2"), variable.name = "y_var", value.name = "y")

现在数据是 ggplot2 所期望的形式，构建实际图形很容易：

ggplot(dat.m, aes(x=x, y=y)) +
    geom_point()+
    facet_grid(y_var ~ x_var, scales="free")

编辑： 与您的新示例相对应的更新版本是

library(reshape2)
library(ggplot2)    

dat <- data.frame(a, b, check.names = FALSE)

dat.m <- melt(dat,
              measure.vars = colnames(a),
              variable.name = "x_var",
              value.name = "Ratio")

dat.m <- melt(dat.m,
              measure.vars = colnames(b),
              variable.name = "y_var",
              value.name = "Study")

ggplot(dat.m, aes(x=Ratio, y=Study)) +
    geom_point()+
    facet_grid(y_var ~ x_var, scales="free")