Fonction "par" graphique couleur des points

Bonjour,

je fais un graphique avec le code ci-dessous pour représenter la moyenne du rendement en fonction de ma date de récolte.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

attach(fi)   palette(rainbow(5)) par(mfrow=c(1,2),las=1) stripchart(rendement~date_recolte, vertical=T, pch=21, cex = 1.5, xlab="date_recolte", ylab="rendement", main="evolution du rendement en fonction de la date de recolte", sub="(toutes les variétés, années et tous traitements engrais et herbicides confondus)", col.main="red", col.lab="blue", col.sub="black", col = fi$var)   legend(x = "topleft", legend = levels(fi$var), col =rainbow(5), pch = 21, cex = 1) ########## ici la légende se met bien mais je n'ai pas une couleur par variété   detach(fi)

---

J'ai plusieurs questions:
-la fonction représente bien tous les points? c à d toutes les données sans rien moyenner?
- avec la fonction j'arrive à mettre une légende avec une couleur par variété sauf que les couleurs n'apparaissent pas sur le graphique, comme cela se fait-il? (tout est rouge pour les 2 variétés)
- en plus d'une couleur par variété, y a t-il possibilité de mettre un symbole différent pour les différents engrais et une taille de point différente pour les différents herbicide?


J'ai aussi essayé d'utiliser la fonction "plot" et j'ai le même souci pour la couleur des variétés:

Code:

---

1 2 3 4 5 6 7 8

palette(rainbow(5))   plot(fi$date_recolte, fi$rendement, pch = 21, cex = 1.5, main = "......", xlab = "Date_recolte ", ylab = "Rendement", col = fi$var)   legend(x = "topleft", legend = levels(fi$var), col = rainbow(5), pch = 21, cex = 1)

---

Voici le fichier en PJ.
Par avance, merci.
Salutations.

Bonjour,

avec "plot" j'arrive à avoir une couleur par variété sur le graphique en mettant les x en numérique.
Du coup j'aimerais trouver une solution pour remettre mes labels en texte sur l'axe des x, avez-vous une idée? par exemple pour x = 1 voir écrit "date1" et pour x=2 voir écrit "date2"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

fi<-read.csv2("plot-test.csv", na.strings = "NA",header = TRUE)   str(fi) head(fi) dim(fi)   #fi<-subset(fi, select = c(var, date_recolte,rendement)) fi <- transform(fi, engrais = as.factor(engrais), rendement = as.numeric(rendement), date_recolte= as.numeric(date_recolte))   attach(fi) palette(rainbow(2)) plot(fi$date_recolte, fi$rendement, pch = 21, cex = 1.5, main = "rendement", xlab = "date", ylab = "rdt", xlim = c(0, 3), ylim = c(0, 100), col = fi$var) legend(x = "topleft", legend = levels(fi$var), col = rainbow(2), pch = 21, cex = 1) detach(fi)

---