Наиболее часто встречающийся бин в гистограмме ggplot2 в R

Question

Я использую ggplot2, чтобы нарисовать гистограмму образца размером 1000, взятого из нормального распределения. Мне нужно поместить букву «А» в центр гистограммы и сделать это с помощью функции annotate.

Поскольку этот вектор является случайным, «центр» чертежа будет меняться немного каждый раз, когда я запускаю код, поэтому мне нужно найти способ, которым функция знает, как разместить «А» в соответствии с этим конкретный образец. Для оси x я взял медиану образца для оси Y, я думал о том, чтобы принимать частоту наиболее частого бина и делить на 2.

Кто-нибудь знает, есть ли функция, которая дает вам частота каждого бина?

Вот воспроизводимый пример:

library(ggplot2) 
set.seed(123) 
x <- rnorm(1000) 
qplot(x, geom="histogram") 

Answer 1

Вот способ, чтобы получить координаты выходного участка (на воспроизводимой примере):

library(ggplot2) 
x <- runif(10) 
h <- qplot(x, geom="histogram") 
ggplot_build(h)$data 

Это даст вам все виды информацию о гистограмме.

Таким образом, чтобы получить высоту наиболее частом класса и разделить на две части, вам просто нужно сделать

height <- max(ggplot_build(h)$data[[1]]$count)/2 

---

Используя такую ​​же информацию, вы также можете поместить текст всегда прямо середина участка:

ranges <- ggplot_build(h)$panel$ranges 
xtext <- mean(ranges[[1]]$x.range) 
ytext <- mean(ranges[[1]]$y.range) 
h + annotate("text", xtext, ytext, 
    label="A", size=30, color="blue", alpha=0.5)