こんな感じ。もっとうまい方法がある気もしつつ。 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_densit…