Thanks Pascal and Tsjerk Michel Le 16/09/2013 09:42, Pascal Oettli a écrit :
Hi,Maybe the following might help you: > s <- seq(length(xx)-1) > plot(xx, yy, type="n") > segments(xx[s], yy[s], xx[s+1], yy[s], col=zz, lwd=2) > segments(xx[s+1], yy[s], xx[s+1], yy[s+1], col='grey') Regards, Pascal On 16/09/2013 15:42, Arnaud Michel wrote:Hi I have the following problem : I have 3 vectors xx, yy, zz : xx <- c(5479, 6209, 6940, 7670, 8766, 9496, 10227, 11048, 11778, 12509, 13239, 13970, 14700, 15340, 15948) yy <- c( 267, 275, 281, 287, 296, 306, 316, 325, 334, 351, 365, 377, 389, 419, 419) zz <- c( 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6) I would like a line wich join the points (xx, yy) with stair steps (as type = "s") plot(xx, yy, type="n") lines(xx, yy, type ="s") but I want to change the color according to the value of zz (exemple :col = 1 if zz =3 ; col =2 if zz= 4 ; col =3 if zz= 5 ; col =4 if zz= 6)Thank you for your help
-- Michel ARNAUD Chargé de mission auprès du DRH DGDRD-Drh - TA 174/04 Av Agropolis 34398 Montpellier cedex 5 tel : 04.67.61.75.38 fax : 04.67.61.57.87 port: 06.47.43.55.31 ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
