ggplot2の回転および間隔軸ラベル

https://stackoverflow.com/questions/1330989

19-09-2019
|

質問

X軸がラベルが長い要因であるプロットがあります。おそらく理想的な視覚化ではありませんが、今のところ、これらのラベルを垂直に回転させるだけです。以下のコードを使用してこの部分を見つけましたが、ご覧のとおり、ラベルは完全には見えません。

data(diamonds)
diamonds$cut <- paste("Super Dee-Duper",as.character(diamonds$cut))
q <- qplot(cut,carat,data=diamonds,geom="boxplot")
q + opts(axis.text.x=theme_text(angle=-90))

解決

最後の行を変更します

q + theme(axis.text.x = element_text(angle = 90, hjust = 1))

デフォルトでは、軸は回転した場合でもテキストの中心に揃っています。 +/- 90度を回転させると、通常、代わりにエッジで整列する必要があります。

alt text

上の画像はからですこのブログ投稿.

他のヒント

ティックラベルのテキストを完全に見えるようにし、y軸ラベルと同じ方向に読み取るには、最後の行をに変更します

q + theme(axis.text.x=element_text(angle=90, hjust=1))

使用する `coord_flip()`

data(diamonds)
diamonds$cut <- paste("Super Dee-Duper",as.character(diamonds$cut))

qplot(cut,carat,data = diamonds, geom = "boxplot") +
  coord_flip()

ofの3.9で データサイエンス用, 、ウィッカムとグロレムンドはこの正確な質問に語っています。

coord_flip() x軸とy軸を切り替えます。これは（たとえば）水平ボックスプロットが必要な場合に便利です。また、長いラベルにも役立ちます。X軸に重複することなくフィットするようにするのは困難です。

代替ソリューションを提供したいと思います。私が提案しようとしているものと同様の堅牢なソリューションが最新バージョンで必要でした ggtern, 、キャンバス回転機能を導入してから。

基本的に、次のような関数を構築することにより、三角法を使用して相対位置を決定する必要があります element_text 指定された角度（つまり、程度）と位置決め（つまり、x、y、上、または右）情報（つまり、x、y、右、または右）。

#Load Required Libraries
library(ggplot2)
library(gridExtra)

#Build Function to Return Element Text Object
rotatedAxisElementText = function(angle,position='x'){
  angle     = angle[1]; 
  position  = position[1]
  positions = list(x=0,y=90,top=180,right=270)
  if(!position %in% names(positions))
    stop(sprintf("'position' must be one of [%s]",paste(names(positions),collapse=", ")),call.=FALSE)
  if(!is.numeric(angle))
    stop("'angle' must be numeric",call.=FALSE)
  rads  = (angle - positions[[ position ]])*pi/180
  hjust = 0.5*(1 - sin(rads))
  vjust = 0.5*(1 + cos(rads))
  element_text(angle=angle,vjust=vjust,hjust=hjust)
}

率直に言って、私の意見では、「自動」オプションをで利用できるようにする必要があると思います ggplot2 のために hjust と vjust とにかく、角度を指定するとき、引数は、上記の仕組みを示すことができます。

#Demonstrate Usage for a Variety of Rotations
df    = data.frame(x=0.5,y=0.5)
plots = lapply(seq(0,90,length.out=4),function(a){
  ggplot(df,aes(x,y)) + 
    geom_point() + 
    theme(axis.text.x = rotatedAxisElementText(a,'x'),
          axis.text.y = rotatedAxisElementText(a,'y')) +
    labs(title = sprintf("Rotated %s",a))
})
grid.arrange(grobs=plots)

これは次のとおりです。

ggpubr パッケージは、デフォルトで正しいことを行うショートカットを提供します（右のアラインテキスト、中央のアラインテキストボックスにチェックする）：

library(ggplot2)
diamonds$cut <- paste("Super Dee-Duper", as.character(diamonds$cut))
q <- qplot(cut, carat, data = diamonds, geom = "boxplot")
q + ggpubr::rotate_x_text()

^{2018-11-06に作成されました Reprexパッケージ（v0.2.1）}

関連する引数名を検索するgithubで見つかりました： https://github.com/search?l=r＆q = element_text+angle+90+vjust+org%3acran&type=code

ライセンス： CC-BY-SA と帰属

所属していません StackOverflow

ggplot2の回転および間隔軸ラベル

使用する coord_flip()

使用する `coord_flip()`