r - 具有相等轴的散点图

Question

我有一个像下面这样的数据集:

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 中的等效函数调用可能是什么？

Answer 1

您的问题在于设置自由面刻度。一旦将小平面刻度设置为自由刻度，就不能再添加 coord_equal() 如果消除自由刻度，则 coord_equal() 可以正常工作。