将ggplot绘图映射为3帧

Question

是否有可能提取ggplot图形/贴图的特定部分并将它们并排放置在辅助图形中,但仍然将点添加到三个帧中,就好像它们仍然是一个图形,即对于以下地图

创建一个分为3个部分的地图,然后可以将其作为一个图形进行操作(即同时向图形的所有三个部分添加点数？

更新:可重复的例子

set.seed(1)
dfx<-c(sample(1:1000,100),sample(2000:3000,100),sample(4000:3000,100))
dfy<-c(sample(1:1000,100),sample(2000:3000,100),sample(4000:3000,100))

p<-ggplot()+
coord_fixed()+
geom_point(aes(x=dfx,y=dfy))
p

Answer 1

我可以在那里中途,但不能保留coord_equal或coord_fixed允许自由秤的效果......希望其他人可以介入并完成剩下的工作.(之前已经出现了 - 具有相等轴的散点图 - 但我还没有看到解决方案.)

dd <- data.frame(dfx,dfy)
dd2 <- transform(dd,panel=cut(dfx,seq(0,4000,by=1000),labels=1:4))
p <- ggplot(dd2)+geom_point(aes(dfx,dfy)) + coord_equal()
p + facet_wrap(~panel,nrow=1,scale="free")