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