r - 计算最大直方图值

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值(value)。

Answer 1

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

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