R - boîte à moustaches avec de multiples facteur étiquettes

Je travaille à essayer de faire une boîte à moustaches dans la R-cran qui est classé par deux différents facteurs sur l'axe des abscisses. Mon problème réside dans la création d'étiquettes pour un facteur de +20 niveaux qui s'étend sur l'ensemble du graphe de façon appropriée lors de l'utilisation d'une légende de l'étiquette de la deuxième facteur qui a seulement 2 à 3 niveaux.

Voici un script de test qui imite à peu près mon dataset:

d<-data.frame(x=rnorm(1500),f1=rep(seq(1:20),75),f2=rep(letters[1:3],500))
# first factor has 20+ levels
d$f1<-factor(d$f1)
# second factor a,b,c
d$f2<-factor(d$f2)

boxplot(x~f2*f1,data=d,col=c("red","blue","green"),frame.plot=TRUE,axes=FALSE)

# y axis is numeric and works fine
yts=pretty(d$x,n=5)
axis(2,yts)

# I know this doesn't work; what I'd like is to spread the factors out 
# so the each group of three(a,b,c) is labeled correctly
axis(1,at=seq(1:20))

# Use the legend to handle the f2 factor labels
legend(1, max(d$x), c("a", "b","c"),fill = c("red", "blue","green"))

Merci pour toute aide

OriginalL'auteur Kerry | 2012-05-04