Dołącz wskazanie ekstremalnych odstających w ggplot

Question

Mam kilka bardzo, bardzo niewiele odstających w moim zbiorze dokonujące boxplots trudne do odczytania:

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

Stąd chciałbym wskazać skrajne odstających tak:

Jakieś pomysły jak to zrobić w ggplot2? Przekształcenie oś nie jest opcja dla mnie ...

Answer 1

To jest początek:

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

Określ wartość maksymalna:

maxval <- 40 

Zastosowanie dplyr (mogą być również wykonane w podstawowej R lub plyr), aby wyodrębnić wartości odstające i ułożyć ciąg tekstowy:

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

Zestaw ma wartość x y i dodać strzałkę Plus etykietę:

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