ggplot2プロットにセカンダリy軸を追加する - 完全にする

Question

元のy軸のスケーリングされたセカンダリy軸を追加する。このトピックは新しいものではありません。これは、例えばon this ggplot2 google groups threadのように、触れられています。ハドレーのアドバイスに続いて、私はgeom_vline,geom_segment、およびgeom_textで二次y軸を追加しようとしました。しかし、それはまだ醜いです。

だから私は完璧にあなたの助けを求めるでしょう。私は多くのggplot2ユーザーがこのトピックに興味を持ち、あなたの専門知識や貢献を好むと思います。前もって感謝します。

######################################### 
# what I have gotten. 
library(ggplot2) 

# build up a box plot 
p <- ggplot(mtcars, aes(factor(cyl), mpg)) 

# add the secondary y axis on right side of the plot 
p + geom_boxplot() + geom_vline(xintercept = 3.5) + 
geom_segment(aes(x=3.49, y=c(7,14,21,28), xend = 3.52, yend = c(7,14,21,28))) + 
geom_text(aes(x=3.55, y=c(7,14,21,28), label=c(7,14,21,28))) 

Answer 1

ハッキングを避けるには、代わりにfacet_gridを使用します。データに応じて、それをより一般的なセカンダリ軸にするためにかなりカスタマイズすることができます。

library(ggplot2) 
ggplot(mtcars, aes(factor(cyl), mpg)) + 
    geom_boxplot() + 
    facet_grid(cyl ~., scales = "free")