如何在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))

​

​