r - ggplot2 散布図を強制的に正方形にする

Question

xlim()およびを使用して、ggplot2 散布図を同じ x および y スケーリングで強制的に正方形にすることができylim()ますが、制限を手動で計算する必要があります。もっと便利な方法はありますか？

正方形とは、次の 2 つの要件を意味します。

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

リンクされた URLで @Gerhard Burger によって言及されたソリューションは、私の場合に機能します。

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

Ramonsの回答に基づいて構築すると、この関数は私にとってうまく機能し、関数定義を非表示にできるため、醜いとは思いません...

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))
}

t 変数が「間違った」環境で定義されているため、Ramon のコードを関数でラップするだけではうまくいきませんでした。