r - 如何使用 ggplot 中的分组箱线图将 geom_text 标签放置在正确的位置

Question

在这种情况下，我在 iris 数据框中添加了一个分组变量。我希望按物种制作 Sepal.Length 的箱线图，并用带有标签标识的异常值的分组变量填充。这一切都有效，但是当我尝试用 geom_text 标记离群值时，它们现在使用分组位置打印，而不是在中心打印。似乎 geom_text 没有继承全局 aes() 但我不知道为什么。

代码:

library(tidyverse)
# function to id outlier
is_outlier <- function(x) {
  return(x < quantile(x, 0.25) - 1.5 * IQR(x) | x > quantile(x, 0.75) + 1.5 * IQR(x))
}

# make a grouping variable
iris$group <- sample(1:3, nrow(iris),replace = T)

# make a outlier variable
iris <- 
  iris %>%
  group_by(Species, group) %>%
  mutate(outlier = ifelse(is_outlier(Sepal.Length), Sepal.Length, as.numeric(NA)))
iris$outlier

# graph
iris %>%
  ggplot(aes(x = Species,y = Sepal.Length, fill = factor(group))) +
  geom_boxplot() +
  geom_text(aes(label = outlier))

标签位于中心，而不是在各自的框上方。这是怎么回事？

Answer 1

这是因为一旦你有了组，就会在箱线图中躲避。使用 position_dodge明确地控制它。您可能想在 geom_text 中尝试使用 hjust 和 vjust 参数来避免绘制超过点。

iris %>%
  ggplot(aes(x = Species,y = Sepal.Length, fill = factor(group))) +
  geom_boxplot(position = position_dodge(width = 1)) +
  geom_text(aes(label = outlier), position = position_dodge(width = 1))