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 <[EMAIL PROTECTED]>
To: Diego Culattoni <[EMAIL PROTECTED]>
Cc: [EMAIL PROTECTED]
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 <[EMAIL PROTECTED]> 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]]
______________________________________________
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.
