ggplot2の棒グラフの上や下に値をラベルとして書き込む方法のメモ。とりあえず簡単なgeom_col()の場合で書いていく。
上に書くだけならgeom_text()で位置を調整して書けばいい。
例えば次のようなデータの場合。
library(ggplot2) df <- data.frame(X = LETTERS[1:4], value = c(10, 20, 30, 40)) df
## X value
## 1 A 10
## 2 B 20
## 3 C 30
## 4 D 40
ggplot(df, aes(x = X, y = value)) + geom_col()
この棒グラフの上に値を書き込みたいと思いたい場合、geom_text()を使い、そのままの位置に書くと棒グラフに被るので、棒グラフの上に描画するようにvjustやnudge_yを使ってラベルの位置を調整しながら次のようにかける。
ggplot(df, aes(x = X, y = value)) + geom_col() + geom_text(aes(label = value), nudge_y = 2)
ggplot(df, aes(x = X, y = value)) + geom_col() + geom_text(aes(label = value), vjust = -0.5) + ylim(0, 42)
nudge_yとvjustの違いは上のコードを見てもらえば分かる通り、nudge_yの場合はいい塩梅に描画範囲を調整してくれるが、vjustは描画範囲を調整してくれないので、自分で調整する必要がある。
じゃあ、いつもnudge_yでいいじゃないかとなるかもしれないが一部画面ではvjustのほうが都合がいい場合がある。
例えば次のようなデータで横棒グラフを描く場合を考える。
df <- data.frame(X1 = rep(LETTERS[1:4], 3), X2 = rep(LETTERS[24:26], each = 4), value = seq(10, by = 10, length.out = 12)) head(df)
## X1 X2 value
## 1 A X 10
## 2 B X 20
## 3 C X 30
## 4 D X 40
## 5 A Y 50
## 6 B Y 60
ggplot(df, aes(x = X1, y = value, fill = X2)) + geom_col(position = position_dodge())
このとき、nudge_yだと次のようになる。
ggplot(df, aes(x = X1, y = value, fill = X2)) + geom_col(position = position_dodge()) + geom_text(aes(label = value), position = position_dodge() ,nudge_y = 2)
## Error in `geom_text()`:
## ! Both `position` and `nudge_x`/`nudge_y` are supplied.
## ℹ Only use one approach to alter the position.
position = position_dodge()を使ってずらしたいと思ったとおりにいかない（ここでposition = position_dodge()をしないと積み上げグラフの位置で数字が書かれてしまう）。ドキュメントにもちゃんと、positionとnudge_xは一緒に使えないと書いている。
ここで、vjustを使うと思ったとおりに行く。
ggplot(df, aes(x = X1, y = value, fill = X2)) + geom_col(position = position_dodge()) + geom_text(aes(label = value), position = position_dodge(0.85), vjust = -0.5) + ylim(c(0, 130))
こんな感じに行く。
さらに正負の値が混じった次のようなデータを考える。
df <- data.frame(X = c("A", "B", "C", "D"), value = c(10, 20, -10, -20)) ggplot(df, aes(x = X, y = value)) + geom_col()
このとき、正の値の場合は棒グラフの上に、負の値の場合は棒グラフの下に描画したいと思った場合を考える。単純にnudge_yなどで位置を書くと正負の場合分けができない。
ggplot(df, aes(x = X, y = value)) + geom_col() + geom_text(aes(label = value), nudge_y = 2)
結論から言うとifelse()などで条件づけするとかける。
ggplot(df, aes(x = X, y = value)) + geom_col() + geom_text(aes(label = value), nudge_y = ifelse(df$value >= 0, 2, -2))
これで思ったグラフがかける。
