自由なスケールですが、x/yのパネル単位で同じ範囲

Question

aspect = 1で自由にスケーリングできますが、各パネルのx/yの範囲は同じです。以下の例では、bのx倍率は（-0.04,0.04）である必要があります。

編集：追加の格子バージョン

library(ggplot2) 
d = data.frame(x=rnorm(100),group=c("A","B")) 
d$y = d$x+rnorm(100,0,0.5) 
d[d$group=="B","x"]=d[d$group=="B","x"]/100 
d[d$group=="B","y"]=d[d$group=="B","y"]/60 
qplot(x,y,data=d,asp=1) + facet_wrap(~group,scale="free") 

require(lattice) 
xyplot(y~x|group, data=d,aspect=1,scales=list(relation="free"), 
    prepanel=function(x,y){ 
    lims = c(min(x,y), max(x,y)) 
    list(xlim=lims,ylim=lims) 
    }) 

Answer 1

ggplot2の最新バージョンが内部gtableを使用すると、あなたは非常に簡単にタスクのこの種の操作を行うことができます

d = data.frame(x=rnorm(100),group=c("A","B")) 
d$y = d$x+rnorm(100,0,0.5) 
d[d$group=="B","x"]=d[d$group=="B","x"]/100 
d[d$group=="B","y"]=d[d$group=="B","y"]/60 

# create plots for each level of group 
p <- lapply(levels(d$group), 
    function(i) { 
    dat <- subset(d, group == i) 
    lim <- range(c(dat$x, dat$y)) 
    ggplot_gtable(ggplot_build(qplot(x,y,data=dat,asp=1) + 
     facet_wrap(~group,scale="free") + 
     coord_equal() + 
     xlim(lim) + ylim(lim))) 
    }) 

# tweaking margins 
p[[1]] <- p[[1]][, -6] 
p[[2]] <- p[[2]][, -(1:2)] 

# draw it 
grid.newpage() 
grid.draw(cbind(p[[1]], p[[2]], size = "first"))