Fügen Sie Anzeichen für extreme Ausreißer in ggplot

Question

ich einige sehr haben, nur sehr wenige Ausreißer in meinem Dataset die Boxplots schwer zu lesen machen:

library(ggplot2) 
mtcars$mpg[1] <- 60 
p <- ggplot(mtcars, aes(factor(cyl), mpg)) 
p + geom_boxplot() 

Daher möchte ich die extreme Ausreißer, um anzuzeigen, wie folgt aus:

Irgendwelche Ideen, wie dies zu tun in ggplot2? die Achse Umwandlung ist keine Option für mich ...

Answer 1

Dies ist ein Anfang:

library("ggplot2") 
mtcars$mpg[1:2] <- c(50,60) 
p <- ggplot(mtcars, aes(factor(cyl), mpg)) 
p + geom_boxplot() 

Maximalwert definieren:

maxval <- 40 

Verwenden dplyr (auch in der Basis R getan werden könnte oder plyr) zu Ausreißern extrahieren und die Textzeichenfolge zusammen:

library("dplyr") 
dd <- mtcars %>% filter(mpg>maxval) %>% 
    group_by(cyl) %>% 
     summarise(outlier_txt=paste(mpg,collapse=",")) 

Set ma x y-Wert, und fügen Sie einen Pfeil Plus-Label:

library("grid") # needed for arrow() function 
p2 <- p + geom_boxplot() + 
    scale_y_continuous(limits=c(min(mtcars$mpg),maxval))+ 
     geom_text(data=dd,aes(y=maxval,label=outlier_txt), 
       size=3,vjust=1.5,hjust=-0.5)+ 
      geom_segment(data=dd,aes(y=maxval*0.95,yend=maxval, 
         xend=factor(cyl)), 
       arrow = arrow(length = unit(0.1,"cm"))) 
p2