Boxplot à 2 groupes + 1 courbe

Bonjour à tous,

Je tente de créer un boxplot avec 2 groupes et de superposer une courbe sur un axe secondaire y différent mais avec le même axe des x.
L'axe des x représente une unité de temps, or le boxplot ne respecte pas l'échelle.

Dans l'idéal, j'aimerais également n'avoir qu'une seule étiquette centrée pour les boxplots et ajouter une légende sur l'axe 4.

Pouvez-vous me venir en aide?

Pour que ce soit pus clair je vous joins mon script et le résultat graphique :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

InterF5Pos <- read.table("Inter F5 Positifs.csv",sep=";",header=T) head(InterF5Pos)   #Création boxplot boxplot(formula=Expression.level ~ Time, data=InterF5Pos, outline=T, boxwex=0.25, at=1:5 - 0.2)   InterF5Neg<-read.table("Inter F5 Negatifs.csv",sep=";",header=T) head(InterF5Neg)   par(xaxs="i",yaxs="r") boxplot(Expression.level ~Time, data=InterF5Neg,outline=T, boxwex=0.25, at= 1:5+0.2, add=TRUE,col="grey",xlab="Time (H)",ylab="Expression level")   par(ann=F,new=T,xaxs="r",yaxs="r") plot.default(ADN,axes=F,type="l",xlim=c(4,72))   # Tracage courbe points(ADN,pch=20,lty=1, xaxt="n",yaxt="n",ylab="Quantity of DNA copies",xlim=c(4,72)) axis(4)   # Titres title(main=paste("Main","\n",sep=""),cex.main=2) title(main=paste("\n","Sub",sep=""),cex.main=1.5)   #Légende legend("topleft",legend=c("Infected", "Non Infected"),fill=c("white","grey"),bty="n")

---

http://img5.imageshack.us/img5/6683/b1uc.jpg