r - 将 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")