在绘图中嵌入微型图

Question

有没有人知道将图形嵌入其他图形以产生类似下面的模型的一般方法？

我知道在格子中你可以print(..., more=TRUE, positions=...)按照这个问题中的解释来做到这一点,我猜ggplot也有它的解决方案(但我对ggplot不是很好).问题是我想要将使用标准图形包的生存包中的常规绘图嵌入到格子图中.

提前致谢!

Answer 1

以下是基本图形中ggplot2图形的另一种方法:

require(ggplot2)
require(grid)

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

Answer 2

您可以尝试使用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