ggplot2：軸を反転してデータの縦横比を維持する

Question

ggplot2では、coord_fixed()の座標系により、データのアスペクト比が所定の値に維持されます。したがって、パネルの形状が変化してデータの形状が維持されます。一方、coord_flip()は、プロットの軸を入れ替えます。しかし、ggplot2のプロットは正確に1つの座標系を持たなければならないので、これらの関数を組み合わせることはできません。

私の質問は：

は、x軸とy軸交換とデータの一定のアスペクト比と座標系で得られた、coord_fixed()とcoord_flip()の行動を結合する方法が存在していますか？

これは人気の質問、しかし、一般的な答えが間違っています：一般的に提案答えはtheme(aspect.ratio = 1)の代わりcoord_fixed()と一緒coord_flip()を使用することです

• How do I to fix aspect ratio and apply coord_flip in ggplot2?
• Flipping and maintaining aspect ratio of a chart in ggplot2

。しかし、ggplot2のドキュメントに従って、この設定は「パネルの縦横比」を参照します。したがって、データは形状を変えてパネルの形状を維持する。

これはggplot2には現在存在しない機能と思われます。しかし、もっと重要なのは、この問題に対する正しい解答または少なくとも回答が文書化されるべきだと思います。

問題のクイック最小限例：

library(ggplot2) 
x <- 1:100; data <- data.frame(x = x, y = x * 2) 
p <- ggplot(data, aes(x, y)) + geom_point() 

p # by default panel and data both fit to device window 
p + coord_fixed() # panel changes shape to maintain shape of data 
p + theme(aspect.ratio = 1) # data changes shape to maintain shape of panel 
p + coord_fixed() + coord_flip() # coord_flip() overwrites coord_fixed() 

# popular suggested answer does not maintain aspect ratio of data: 
p + coord_flip() + theme(aspect.ratio = 1) 

Answer 1

私はtheme解決策が本当に適切なものではないことに同意するものとします。ここでは、プロットオブジェクトに格納されている実際の軸の範囲から側面を算出することで、プログラムで動作しない解決策があるが、それは数行のコード取る：私はおそらく使用するソリューション

ranges <- ggplot_build(p)$layout$panel_ranges[[1]][c('x.range', 'y.range')] 
sizes <- sapply(ranges, diff) 
aspect <- sizes[1]/sizes[2] 

p + coord_flip() + theme(aspect.ratio = aspect) 

を実際には、ggstanceパッケージの水平幾何学を使用することです（これは必ずしも実現可能ではないかもしれませんが）。

注：これは、等しい倍率（等倍）のextend引数（つまり、デフォルト）の正確な正解のみを返します。