Rajouter une courbe à un histogramme avec deux axes sans décalage

Bonjour,

Je veux faire un histogramme cumulé avec une courbe (avec son axe du coté droit) sur le même graph.
J'ai réussi à le faire selon le programme suivant (données en PJ sous le nom "teste"), mais mon seul problème, c'est que les points de la courbe sont décalés du centre de chaque histogramme (voir le graphe en PJ) .

Merci d'avance de m'aider à résoudre ce point.
Cordialement

Code:

---

1 2 3 4 5 6

data<-read.table(file=file.choose(), sep=",", header=TRUE, row.names=1, check.names=FALSE) par(mar=c(5, 4, 4, 6) +0.1) mp<-barplot(as.matrix(t(data[,1:2])),beside=FALSE,horiz=FALSE,col=topo.colors(2) , las=1, cex.axis=2, cex=1)#xlim=c(0,40),ann=FALSE, col = c("red","blue") par(new=TRUE) plot(data[,3], col="white", axes=FALSE, xlab="",pch=1, ylab="", type="b",ylim=c(0,4), lwd=5, cex=2, lty=2) axis(4, ylim=c(0,4), col="black",col.axis="black",las=1, cex.axis=2)

---

Bonjour,

Regarde de ce côté, ici.
Les points sont au centre des histogrammes.

Tu peux essayer ceci, il te suffit de créer un second axe si tu as des échelles différentes

Code:

---

1 2 3

mp<-barplot(as.matrix(t(data[,1:2])),beside=FALSE,horiz=FALSE,col=topo.colors(2) , las=1, cex.axis=2, cex=1)#xlim=c(0,40),ann=FALSE, col = c("red","blue") lines(mp,data[,3],type="o",pch=19,lwd=2)

---