Comment définir la couleur des valeurs aberrantes en R - réseau - bwplot

Question

par exemple quand je suis arrivé ceci:

http://i.stack.imgur.com/cWTIm.jpg

Il semble que j'ai pour définir la couleur pour chaque valeur aberrante séparément ...

Voici mon (fractionnaire) deviner le code:

...,par.settings = list(...,box.rectangle = list(col= c("red","blue")),...)),... 

thx déjà à l'avance!

Answer 1

Juste question, mais s'il vous plaît ne pas afficher "suppositions fractionnaires au code"; il est injuste de demander à d'autres de générer le problème de l'échantillon.

Voici l'exemple de code, ce qui confirme ce que vous avez trouvé:

library(lattice) 
d = data.frame(x=c(rnorm(90),20*runif(16)),group=letters[1:2]) 
cols = list(col=c("red","blue"),pch=c(1,16,13)) 
bwplot(group~x,data=d, 
     par.settings = list(
          plot.symbol=cols, 
          box.rectangle = cols, 
          box.dot = cols, 
          box.umbrella=cols 
          )) 

et voici le code qui montre que les valeurs aberrantes pch/col/alpha/CEX ne sont pas regroupés, et donc sont recyclés incorrectement.

De panel.bwplot:

panel.points(x = rep(levels.fos, sapply(blist.out, length)), 
      y = unlist(blist.out), pch = plot.symbol$pch, col = plot.symbol$col, 
      alpha = plot.symbol$alpha, cex = plot.symbol$cex, 
      fontfamily = plot.symbol$fontfamily, ...... 

Ce qui signifie que c'est un élément manquant dans treillis (je ne dirais pas un bug).