r - 如何使用 geom_text 仅绘制全局最大值？

Question

df%>%
  group_by(approved_date)%>%
  summarise(rev=sum(gmv))%>%
  ggplot(aes(x = approved_date, y = rev)) + 
    geom_line() + 
    geom_smooth(method = 'auto', se = FALSE) + 
    labs(x = 'Date', y = 'Revenue', title = 'Revenue by Date') +
    scale_y_continuous(labels = function(x) format(x, scientific = FALSE)) +
    stat_peaks(colour = "red", span = NULL) + 
    stat_valleys(colour = "blue", span = NULL) + 
    geom_text(aes(label = round(rev, 0)),
              vjust = "inward", 
              hjust = "inward",
              show.legend = FALSE,
              check_overlap = TRUE)

我有这段代码，它在运行时标记了 Local Maxima 和 Minima 的所有值。我只想要全局最大值和全局最小值的值。如何做到这一点？

Answer 1

由于问题中的代码因缺少数据而无法运行，因此我展示了一个从包用户指南稍作修改的示例。在这种情况下，这个不同的例子应该足以解决问题。

library(ggpmisc)
ggplot(lynx, as.numeric = FALSE) + geom_line() + 
  stat_peaks(colour = "red") +
  stat_peaks(geom = "text", colour = "red", vjust = -0.5, 
             check_overlap = TRUE, span = NULL) +
  ylim(-100, 7300)

换句话说， geom"text"应该作为参数传递给stat_peaks()以及span = NULL获取单个标签。如果geom_text()直接添加，则不会选择峰值，而是将存储在映射到label美学的变量中的所有值添加到图中。