计算最大直方图值

Question

如何在制作绘图时计算最大直方图值？

我想在带有注释的图上放置一条线,我希望文本的位置与y轴最大值成比例.例如:

library(ggplot2)
df <- data.frame(x = runif(1000))


p <- ggplot(data=df, aes(x)) + geom_histogram()
p + geom_vline(aes(xintercept=0.5),color='red') + geom_text(aes(0.55, 10, label='line'), angle = 90, color='red')

产生以下内容:

我想传递给一个说法geom_text()是1/3,因为我觉得这是一贯的定位文本的最好方式最大直方图值的,但我不知道如何计算这个count值.

Answer 1

stat_bin默认使用 binwidth=range/30 。我不确定它是如何计算的，但这应该是一个相当合理的近似值：

max(table(cut(df$x,seq(min(df$x),max(df$x),dist(range(df$x))/30))))