Как пометить только модальный пик на графике geom_col

Question

Я бы хотел поставить метку над только модальной полосой (самый высокий пик) на моем графике geom_col, давая значение оси X (CAG). Вот пример, но я могу заставить его пометить только каждый пик.

x <- seq(-20, 20, by = .1)
y <- dnorm(x, mean = 5.0, sd = 1.0)
z <- data.frame(CAG = 1:401, height = y)
ggplot(z, aes(x=CAG, y=height)) +
  geom_col() +
  geom_text(aes(label = CAG))

Я был бы очень благодарен за помощь в маркировке только верхнего пика

Answer 1

Просто установите подмножество вашего набора данных в geom_text, чтобы сохранить только максимальное значение y:

ggplot(z, aes(x=CAG, y=height)) +
  geom_col() +
  geom_text(data = subset(z, y == max(y)), aes(label = CAG))