Thank you very much! What I would like to have at the end a cols <- c(1,2,3,4), so
 cols = 1 if var3=0 and var4=1
 cols = 2 and pchs=1 if var3=0 and var4=1
 cols = 3 if var3=0 and var4=2
 cols = 4 and pchs=1 if var3=0 and var4=2

Can this be down similarly?

Thanks in advance,
Diego



----- Original Message ----
From: Henrique Dallazuanna <wwwhsd@gmail.com>
To: Diego Culattoni <diegoculattoni@yahoo.com>
Cc: r-help@stat.math.ethz.ch
Sent: Wednesday, March 19, 2008 3:52:06 PM
Subject: Re: [R] plot with diffrent colour and plotting symbols

Perhaps:

cols <- colors()[1:length(unique(apply(Var[3:4], 1, paste, collapse="")))*50]
plot(tt, var2, type='p', col=cols, pch=16)

On 19/03/2008, Diego Culattoni <diegoculattoni@yahoo.com> wrote:
> Dear mailing list members,
>
>  I am a new R user, I would like to plot the follewing data
>
>  var1 <- c(1,2,1,1,2,1,2,1,2,2)
>  var2 <- round(rgamma(10,2,1)/0.1)*0.1
>  var3 <- c(0,1,0,1,0,0,0,0,1,0)
>  var4 <- c(1,2,2,2,1,1,1,1,1,1)
>
>  Var <- data.frame(var1,var2,var3,var4)
>  Var <- Var[sort(Var$var1),]

I think is this what you want:
Var <- Var[order(Var$var1),]

>  tt <- Var$var1+((runif(length(Var$var1))/6)-(0.5/6))
>  labelname <- c("time 1", "time 2")
>
>  plot(tt,var2,xaxt = "n")
>  axis(1,1:length(unique(var1)), labelname)
>
>  Could you tell me please how can I get diffrent colour and plotting symbols according to var3 and var4, respectively.
>
>  Diego!
>
>
>      ____________________________________________________________________________________
>  Looking for last minute shopping deals?
>
>        [[alternative HTML version deleted]]
>
>  ______________________________________________
>  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.
>


-- 
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O


      ____________________________________________________________________________________

http://www.yahoo..com/r/hs
	[[alternative HTML version deleted]]

