强制 ggplot2 散点图为方形

Question

我可以使用xlim() 和ylim() 将 ggplot2 散点图强制为具有相同 x 和 y 缩放比例的方形，但它需要手动计算限制。有没有更方便的方法？

方形是指两个要求：

1. x 和 y 轴上的比例相同。
2. x 和 y 轴的长度相等。

Answer 1

如果要使距离刻度点相同，则使用coord_fixed()：

p <- ggplot(...)
p <- p + coord_fixed() # ratio parameter defaults to 1 i.e. y / x = 1

如果您想确保生成的图是正方形的，那么您还需要将 x 和 y 限制指定为相同（或至少具有相同的范围）。 xlim 和 ylim 都是 coord_fixed 的参数。因此，您可以使用这些参数手动执行此操作。或者您可以使用函数从数据中提取限制。

Answer 2

注意：对于方形（与正在绘制的数据无关），

ggplot() + theme(aspect.ratio=1)

Answer 3

可能是您今天看到的最丑陋的代码，但它确实可以解决问题。

您的 x 轴和 y 轴范围可从 ggplot_build 访问：

r<-max(abs(ggplot_build(your_plot)$panel$ranges[[1]]$x.range))
s<-max(abs(ggplot_build(your_plot)$panel$ranges[[1]]$y.range))
t<-round(max(r,s),1)
your_plot<-your_plot+coord_equal(xlim=c(-t,t),ylim=c(-t,t))

Answer 4

之前答案中提供的所有解决方案都不适用于我的 R 版本：R 版本 3.6.1。

ggplot_build(pot)$panel$ranges[[1]]$x.range # return NULL value

@Gerhard Burger 在linked URL 中提到的解决方案适用于我的情况：

r<-max(abs(layer_scales(plt)$x$range$range))
s<-max(abs(layer_scales(plt)$y$range$range))
t<-round(max(r,s),1)
plt<-plt+coord_equal(xlim=c(0,t),ylim=c(0,t))

Answer 5

基于拉蒙斯的回答，这个函数对我来说很好用，我认为它并不难看，因为可以隐藏函数定义......

squarePlot <- function(plt){
    return(plt+coord_equal()+
            expand_limits(x=ggplot_build(plt)$panel$ranges[[1]]$y.range,
                          y=ggplot_build(plt)$panel$ranges[[1]]$x.range))
}

只是将 Ramon 的代码包装在一个函数中对我来说不起作用，因为 t 变量是在“错误”的环境中定义的。