Includere indicazione di valori anomali estreme in ggplot

Question

ho alcune molto, molto pochi valori anomali nel mio set di dati che fanno i grafici a scatole di difficile lettura:

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

Quindi, vorrei indicare i valori anomali estreme in questo modo:

Delle idee come fare questo in ggplot2? Trasformare l'asse non è un'opzione per me ...

Answer 1

questo è un inizio:

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

definire il valore massimo:

maxval <- 40 

Usa dplyr (potrebbe anche essere fatto in base di R o plyr) per estrarre valori anomali e mettere insieme la stringa di testo:

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

Set mA x valore y e aggiungi freccia inclusa etichetta:

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