有没有一种简单的方法可以在 ggplot2 中单独调整文本标签？

Question

我正在尝试将样本大小标签添加到我的 ggplot 箱线图中。我拥有我认为需要的一切，但我不确定如何微调标签的位置。我尝试了 position_nudge 和 position_jitter，但我希望能够单独调整每个标签，这样我就不必担心标签运行进入均值条。

我的代码和我的数据给了我这个

give.n <- function(x){
  return(c(y = mean(x), label = length(x)))
}

ggplot(ratings_county_2019_DI, aes(x=county, y=di))+
  geom_boxplot(aes(fill = county), fatten = 1.25)+
  scale_fill_manual(values = col19, aesthetics = c("colour", "fill"))+
  labs(x = "County", y = " DSI (%)")+
  theme_minimal()+
  theme(legend.position = "top")+
  stat_summary(fun.data = give.n, geom = "text")+
  ggtitle("Disease Serverity Index 2019 Survey")+
  theme(plot.title = element_text(hjust = 0.5))

Answer 1

如果您提供 position = position_nudge(y = VECTOR_OF_NUDGES)，它可能会提供您正在寻找的控件。

give.n <- function(x){
  return(c(y = mean(x), label = length(x)))
}

ggplot(mtcars, aes(x=as.character(gear), y=mpg))+
  geom_boxplot(aes(fill = cyl), fatten = 1.25) +
  stat_summary(fun.data = give.n, geom = "text",
               position = position_nudge(y = c(0, -2.5, -1)))

有没有一种简单的方法可以在 ggplot2 中单独调整文本标签？

Is there an easy way to adjust text labels individually in ggplot2?

r

ggplot2

position

boxplot