r - プロット内にミニチュア プロットを埋め込む

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

ベースおよびグリッドベースのグラフィックス (格子と ggplot2 を含む) を統合するための機能を提供する gridBase パッケージを試すことができます。以下の例では、ラティス プロット内にベース グラフィックス プロットを埋め込みます。

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 3

Teaching Demos パッケージ パッケージTeachingDemos パッケージを確認してください。これは格子上でもsubplot()機能する可能性がありますが、まだ試していません。