R：ggplot2：如何在 stat_summary 中分隔标签

Question

我尝试使用stat_summary 函数和我编写的自定义函数在条形上方绘制标签。共有三个条，每个条都应分别标有字母 a:c。但是，不是每个条都放置一个标签，而是将所有三个标签放在彼此的顶部：

codes <- c ("a", "b", "c")

simple_y <- function(x) {
        return (data.frame (y = mean (x) + 1, label = codes))
        }


    ggplot (iris, mapping = aes (x = Species, y = Sepal.Length)) +
        geom_bar (stat = "summary", fun.y = "mean", fill = "blue", width = 0.7, colour = "black", size = 0.7) +
        stat_summary (fun.data = simple_y, geom = "text", size = 10)

我明白为什么这不起作用：每次回收 simply_y-function 时，它都会看到整个 codes - 向量。但是，我不知道如何告诉 R 将三个标签分开。是否可以告诉 R 在回收函数时随后使用输入向量的第 n 个元素？

有人有好的提示吗？

Answer 1

我会考虑做这样的事情：

labels <- 
  tibble(
    Species = factor(c("setosa", "versicolor", "virginica")),
    codes = c("a", "b", "c")
  )

iris %>% 
  group_by(Species) %>% 
  summarize(Mean = mean(Sepal.Length)) %>% 
  ungroup() %>% 
  left_join(labels, by = "Species") %>% 
  ggplot(aes(x = Species, y = Mean)) +
  geom_col(fill = "blue", width = 0.7, color = "black", size = 0.7) +
  geom_text(aes(y = Mean + 0.3, label = codes), size = 6, show.legend = FALSE)

首先，您可以分别生成带有均值的数据框，从而避免了对 geom_bar 和 stat_summary 的需要。然后将手动标签/代码加入到该汇总数据框后，使用 geom_text 添加它们非常简单。