Nhúng một ô thu nhỏ trong một ô

Question

Có ai biết cách tổng quát để nhúng ô vào các ô khác để tạo ra thứ gì đó giống như mô hình dưới đây không?

Tôi biết rằng trong mạng bạn có thể làm điều đó với print(..., more=TRUE, positions=...) như được giải thích trong this question và tôi đoán ggplot có giải pháp cho nó là tốt (nhưng tôi không thực sự tốt với ggplot). Vấn đề là tôi muốn nhúng một cốt truyện thông thường từ gói tồn tại sử dụng gói đồ họa tiêu chuẩn vào một âm mưu mạng.

Cảm ơn bạn trước!

Answer 1

Bạn có thể thử gói gridBase cung cấp một số chức năng để tích hợp đồ họa cơ sở và dựa trên lưới (bao gồm mạng tinh thể và ggplot2). Ví dụ dưới đây nhúng một cốt truyện đồ họa cơ bản bên trong một âm mưu mạng.

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) 

Xem chi tiết ở đây: http://casoilresource.lawr.ucdavis.edu/drupal/node/1007 Và ở đây: http://cran.r-project.org/web/packages/gridBase/vignettes/gridBase.pdf

Answer 2

Kiểm tra gói gói Demo demo TeachingDemos package - và chức năng subplot() Nó cũng có thể hoạt động trên mạng - vẫn chưa thử.

Answer 3

Và đây là một cách để làm điều đó theo cách khác xung quanh, đồ họa ggplot2 trong một đồ họa cơ sở:

require(ggplot2) 
require(grid) 

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