在绘图中嵌入微型绘图

Question

有谁知道将绘图嵌入到其他绘图中以生成类似下面的模型的通用方法？

我知道在点阵中你可以用 print(..., more=TRUE, Positions=...) 来完成，如 这个问题，我想 ggplot 也有一个解决方案（但我不太擅长 ggplot）。问题是我想将使用标准图形包的生存包中的常规图嵌入到格子图中。

提前致谢！

Answer 1

您可以尝试 gridBase 包，它提供了一些集成基础图形和基于网格的图形（包括lattice和ggplot2）的功能。下面的示例将基本图形图嵌入到点阵图中。

library(lattice)
library(gridBase)
library(grid) 

plot.new()
pushViewport(viewport())
xvars <- rnorm(25)
yvars <- rnorm(25)
xyplot(yvars~xvars)
pushViewport(viewport(x=.6,y=.8,width=.25,height=.25,just=c("left","top")))
grid.rect()
par(plt = gridPLT(), new=TRUE)
plot(xvars,yvars)
popViewport(2)

更多详细信息请参见：http://casoilresource.lawr.ucdavis.edu/drupal/node/1007
在这里： http://cran.r-project.org/ web/packages/gridBase/vignettes/gridBase.pdf

Answer 2

查看教学演示包 TeachingDemos 包 - 和 < code>subplot() 函数 它也可能在格子上工作 - 但还没有尝试过。

Answer 3

这是一种相反的方法，在基本图形中使用 ggplot2 图形：

require(ggplot2)
require(grid)

plot(sin, -pi, 2*pi)
qp <- qplot(mpg, wt, data=mtcars)
print(qp, vp=viewport(.8, .75, .2, .2))