r - 如何正确选择标签以放置在分面分隔图 Y 轴最高点的顶部？

Question

我有一个情节，我按每个组的方面分开。在 Y 轴的最高点我想放置相应的 Y 值，为此我使用ggtext包和geom_richtext()函数。虽然我group = Group在geom_richtext()函数内使用，但标签并没有像我预期的那样出现。

在 MWE 中，我希望 A、B 和 C 组的面分别具有 100、500 和 1000 的值，分别出现在每个峰的顶部。有人可以帮我提个建议吗？

library(ggplot2)
library(ggtext)

Group <- c("A", "B", "C")
Time <- 0:10

DF <- expand.grid(Time = Time,
                  Group = Group)

DF$Y <- c(rep(1,5), 100, rep(1,5),
          rep(1,5), 500, rep(1,5),
          rep(1,5), 1000, rep(1,5))

ggplot(data = DF,
       aes(x = Time,
           y = Y)) +
  geom_line() +
  facet_grid(Group ~ .) +
  geom_richtext(aes(label = max(Y),
                    group = Group)) +
  theme_bw()

Answer 1

一种选择是传递一个过滤的数据集，geom_richtext其中仅包含每个最大值Group：

library(ggplot2)
library(ggtext)
library(dplyr)

ggplot(data = DF,
       aes(x = Time,
           y = Y)) +
  geom_line() +
  facet_grid(Group ~ .) +
  geom_richtext(data = DF %>% group_by(Group) %>% slice_max(Y, n = 1), aes(label = Y,
                    group = Group)) +
  theme_bw()