par(mfrow=c(2,1)): comment choisir le graphique

Bonjour,

J'aimerais afficher deux flèches sur deux graphiques différents. Les deux graphiques sont affichés sur une même page. J'aimerais que la flèche sur le 1er graphique soit de couleur verte si le jour courant (Sys.Date ?) est paire (2, 4, ..., 30) et la flèche sur le 2nd grahpique soit rouge. Si le jour est impaire (1, ..., 31) on fait l'opération inverse. Pour l'instant je mets la couleur en dur et je ne sais pas comment écrire le code:

Code:

---

1 2 3 4 5 6 7 8

tmp = as.POSIXlt(c("2012-02-09 00:01:00", "2012-02-09 00:02:00", "2012-02-09 00:03:00")) pow = c(1500, 1250, 1750) par(mfrow=c(2,1)) plot(tmp,pow) arrows(as.POSIXct(tmp[1]), 0, as.POSIXct(tmp[1]), pow[1], col="green") plot(tmp,pow) arrows(as.POSIXct(tmp[1]), 0, as.POSIXct(tmp[1]), pow[1], col="red")

---

PS: Je ne souhaite pas utiliser split.screen( ) car ca ne répond pas à mon besoin.

Merci d'avance pour votre aide

Bonjour,
avez-vous essayé

Code:

---

?ifelse

---

de la façon suivante?

Code:

---

1 2 3 4 5 6 7 8 9

tmp = as.POSIXlt(c("2012-02-09 00:01:00", "2012-02-09 00:02:00", "2012-02-09 00:03:00")) pow = c(1500, 1250, 1750) day <- as.numeric(format(Sys.Date(), "%d")) color <- c("green", "red") par(mfrow=c(2,1)) plot(tmp,pow) arrows(as.POSIXct(tmp[1]), 0, as.POSIXct(tmp[1]), pow[1], col=ifelse(day %% 2 ==0, color[1], color[2])) plot(tmp,pow) arrows(as.POSIXct(tmp[1]), 0, as.POSIXct(tmp[1]), pow[1], col=ifelse(day %% 2 ==0, color[2], color[1]))

---

Bonne continuation :)