メモ：ggplot2で端っこの方にラベルを付けたいときはInfにしてhjust/vjustで調整する

R ggplot2

こんな感じ。もっとうまい方法がある気もしつつ。

library(tidyverse)

set.seed(19)
d <- tibble(
  value = rgamma(10000, shape = 1)
)

q <- quantile(d$value, probs = 0:4*0.25)
l <- tibble(label = names(q), value = unname(q))

ggplot() +
  geom_density(data = d, aes(value), fill = alpha("grey", 0.7)) +
  geom_vline(data = l, aes(xintercept = value), colour = alpha("red", 0.5), linetype = "dashed", size = 2) +
  geom_label(data = l, aes(x = value, y = Inf, label = label), vjust = 1) +
  theme_minimal()

f:id:yutannihilation:20170614212537p:plain:w450

追記：