r - 如何在一个图中组合四对图？

提前，如果我要问一些琐碎的问题，我感到抱歉。

我应该制作一个包含4个不同的相关成对图的图。
所需图形的外观可以如下所示:

我使用功能pairs()制作的每个成对图:

pairs(cbind(AAPL,MSFT,INTC,FB,MU,IBM),main="Frequency=1 Min.",font.labels = 2, col="blue",pch=16, cex=0.8, cex.axis=1.5,las=1)
pairs(cbind(AAPL,MSFT,INTC,FB,MU,IBM),main="Frequency = 2 Min.",font.labels = 2, col="blue",pch=16, cex=0.8, cex.axis=1.5,las=1)
pairs(cbind(AAPL,MSFT,INTC,FB,MU,IBM),main="Frequency = 5 Min.",font.labels = 2, col="blue",pch=16, cex=0.8, cex.axis=1.5,las=1)
pairs(cbind(AAPL,MSFT,INTC,FB,MU,IBM),main="Frequency = 10 Min.",font.labels = 2, col="blue",pch=16, cex=0.8, cex.axis=1.5,las=1)

当我通过使用布局函数组合以上成对图时，它不起作用(据我从类似的问题了解到，layout()和pairs()无法合并)。

如果有人有一种优雅的方式来组合4个不同的相关对成对图，那么将不胜感激。

最佳答案

更新，12014-07-31 11:48:35Z

由于ilir pointed out below pairs以某种方式覆盖了par，很可能出于某些充分的原因。

@ user44037，您可以通过此代码段解决您的问题吗？从here复制/粘贴。我相信可以使用splom中的lattice找到解决方案。看一看?splom。

 library(lattice)
 splom(~iris[1:3]|Species, data = iris,
      layout=c(2,2), pscales = 0,
      varnames = c("Sepal\nLength", "Sepal\nWidth", "Petal\nLength"),
      page = function(...) {
          ltext(x = seq(.6, .8, len = 4),
                y = seq(.9, .6, len = 4),
                lab = c("@user44037,", "can you solve your", "problem working form ", "this code snippet?"),
                cex = 1)
      })

初步答案，12014-07-31 11:35:33Z

只需在Avinash directions后面加上the website Quick-R中的复制/粘贴代码即可。随时改进此示例。

如果您提供了可复制的示例，我们很乐意为您解决具体问题。

# 4 figures arranged in 2 rows and 2 columns
attach(mtcars)
par(mfrow=c(2,2))
plot(wt,mpg, main="Scatterplot of wt vs. mpg")
plot(wt,disp, main="Scatterplot of wt vs disp")
hist(wt, main="Histogram of wt")
boxplot(wt, main="Boxplot of wt")

关于r - 如何在一个图中组合四对图？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/25056597/