R help - Sep 2013 - Change the color of the line inside of the function lines

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

Hi Michel,

lines(xx,yy,col=zz-2,type="s")

If you use a color vector, say cols, then you can also do

lines(xx,yy,col=cols[zz-2],type="s")

Hope it helps,

Tsjerk


On Mon, Sep 16, 2013 at 8:42 AM, Arnaud Michel
<michel.arnaud@cirad.fr>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<https://stat.ethz.ch/mailman/listinfo/r-help>
> PLEASE do read the posting guide http://www.R-project.org/**
> posting-guide.html <http://www.R-project.org/posting-guide.html>
> and provide commented, minimal, self-contained, reproducible code.
>


-- 
Tsjerk A. Wassenaar, Ph.D.

	[[alternative HTML version deleted]]

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
>
-- 
Pascal Oettli
Project Scientist
JAMSTEC
Yokohama, Japan