セカンダリ軸ラベルの回転テキスト

Question

ggplot2のセカンダリ軸ラベルの最近追加された機能を利用しています。 セカンダリ軸を回転させたいのですが、ドキュメントを見つけることができなかったか、またはこれを行う方法を理解できませんでした。ただ一つの軸の回転を達成するためにどのように

私が読んだ文書のいずれかに言及していないその使用して、すべてのテキストを回転させるのに十分なシンプルな...

ggplot(mtcars, aes(x = wt, y = mpg, colour = mpg)) + 
    geom_point() + 
    scale_x_continuous(name = 'Bottom Axis', 
         sec.axis = sec_axis(trans = ~ ., 
              name = 'Top Axis', 
              breaks = c(2:5), 
              labels = c('Two Two', 'Three Three Three', 'Four Four Four Four', 'Five Five Five Five Five'))) + 
## Rotate text of x-axis 
    theme(axis.text.x = element_text(angle = 90)) 

その（例えばscale_continuousとthemes） 。

これは私のデータに適用したいラベルのいくつかが長くて、水平に置いたときに重なってしまうことを避けることができますが、下の軸。あなたがggplot2の最新dev versionを実行している場合

Answer 1

、あなたはaxis.text.x.topを使用することができます。

ggplot(mtcars, aes(x = wt, y = mpg, colour = mpg)) + 
    geom_point() + 
    scale_x_continuous(name = 'Bottom Axis', 
        sec.axis = sec_axis(trans = ~ ., 
             name = 'Top Axis', 
             breaks = c(2:5), 
             labels = c('Two Two', 'Three Three Three', 'Four Four Four Four', 'Five Five Five Five Five'))) + 
    ## Rotate text of x-axis 
    theme(axis.text.x.top= element_text(angle = 45, hjust = 0))