49个图以7x7矩阵排列

Question

我不知道这个问题是否微不足道，但是......

我试图以与PAIRS图相似的形式绘制一组变量。

但是我不想在图形的行和列中使用相同的变量，而是希望有不同的变量。例如，如果我有一个带有X1，...，X7的数据集和另一个带有Y1，...，Y7的数据集。

我尝试过布局和par（mfrow）但是因为我想要跨越7个变量x 7个变量，它给了我一个溢出错误。

有没有办法做这个图矩阵7x7？

谢谢

Answer 1

我不知道使用基础R中的pairs(...)来实现此目的的方法，但是这里是ggplot解决方案，假设您的x值和y值都在数据帧中名为df.x和df.y。

# create a sample dataset - you have this already...
set.seed(1)         # for reproducible example
df.x <- data.frame(matrix(sample(1:50,350,replace=T),nc=7))
df.y <- 2*df.x + rnorm(350,sd=5)
colnames(df.y) <- paste0("Y",1:7)

# this makes the plot  - you start here.
library(ggplot2)
library(data.table)
library(reshape2)      # for melt(...)

xDT <- data.table(melt(cbind(id=1:nrow(df.x),df.x),id="id",value.name="xval",variable.name="H"),key="id")
yDT <- data.table(melt(cbind(id=1:nrow(df.y),df.y),id="id",value.name="yval",variable.name="V"),key="id")
xy  <- xDT[yDT,allow.cartesian=T]

# simulates pairs() in base R
ggp = ggplot(xy,aes(x=xval,y=yval))
ggp = ggp + geom_point()
ggp = ggp + facet_grid(V~H, scales="free")
ggp = ggp + labs(x="",y="")
print(ggp)

这假定但不测试df.x和df.y中的行数是相同的。

您不一定需要data.tables才能执行此操作，但如果您的数据集很大，并且语法更清晰，则可能会更快。