Произвольный масштаб, но одинаковый для диапазона панели -в x/y

Я пытаюсь получить свободное масштабирование с аспектом = 1, но с одинаковым диапазоном x/y на каждой панели. В приведенном ниже примере это означает, что масштабирование x -в b должно быть (-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)
   } )