ggplot2 boxplot stat_summary Textplatzierung nach Gruppe

Question

In der folgenden Grafik möchte ich die Anzahl der Beobachtungen (40 in diesem Fall) auf jedem Boxplot überlagern. Mein Code unten funktioniert nicht, wenn es eine fill Ästhetik gibt. Der Text muss horizontal angepasst werden (1 links, 1 Mitte, 1 in diesem Fall), so dass sie die entsprechenden Boxplots richtig überlagern.

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

Als Ihr Boxplots ausgewichen werden, wenn Sie verwenden Argument = füllen, haben Sie position_dodge() zum stat_summary() Gespräch hinzuzufügen.

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