等轴散点图

我有一个如下所示的数据集：

DataFrame <- data.frame(x=runif(25),y=runif(25),
                        z=sample(letters[1:4],25,rep=TRUE))

并使用 Lattice 包，我可以用以下几行绘制等轴散点图（一条 1:1 线穿过中心）：

xyplot(y ~ x | z, data=DataFrame,
       scales=list(relation="free"),
       prepanel=function(x,y,...) {
         rg <- range(na.omit(c(x,y)))
         list(xlim=rg,ylim=rg)
       },panel=function(x,y,...) {
         panel.abline(0,1)
         panel.xyplot(x,y,...)
       })

在 ggplot2 中，我已经做到了这一点：

ggplot(data=DataFrame) + geom_point(aes(x=x,y=y)) +
  facet_grid(~z,scales="free") + coord_equal(ratio=1) +
  geom_abline(intercept=0,slope=1)

但我不确定 coord_equal() 是我正在寻找的函数。 ggplot2 中的等效函数调用可能是什么？

您的问题在于设置自由面尺度。一旦您将构面比例设置为自由，您就无法再添加coord_equal()如果消除自由鳞，那么coord_equal()工作正常。