ggplot2 boxplot stat_summary按组别排列的文字

Question

在下面的图表中，我希望观察的数量（在这种情况下为40）叠加在每个箱形图上。如果有fill美学，我下面的代码不起作用。文本需要水平调整（在这种情况下，左侧1个中心，右侧1个），以便正确覆盖相应的箱形图。

dt <- data.table(
    x = factor(rep(1:2, each=120)) 
    , f = rep(letters[1:3], 40) 
    , y = c(rnorm(120, 1:3), rnorm(120, 1:3*2)) 
) 
table(dt$x, dt$f) 

+--------------+ 
|  a b c | 
+--------------+ 
| 1 40 40 40 | 
| 2 40 40 40 | 
+--------------+ 

frequencyAnnotation <- function(x) { 
    c(y = (quantile(x, .75, names = F) + median(x))/2, label=length(x)) 
} 
ggplot(dt, aes(x=x, y=y, fill=f)) + 
    geom_boxplot() + 
    stat_summary(fun.data = frequencyAnnotation, geom='text') 

Answer 1

，当您使用参数填写=您的箱线图都躲开了，你必须添加position_dodge()到stat_summary()通话。

ggplot(dt, aes(x=x, y=y, fill=f)) + 
     geom_boxplot() + 
     stat_summary(fun.data = frequencyAnnotation, geom='text', 
        position = position_dodge(width = 0.75))