Discussion :

[ikuzar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lilly74]

Bonjour,
avez-vous essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

?ifelse

de la façon suivante?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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