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 : Sélectionner tout - Visualiser dans une fenêtre à part
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")