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))