An embedded and charset-unspecified text was scrubbed... Name: not available Url: https://stat.ethz.ch/pipermail/r-help/attachments/20080319/6e2d6db1/attachment.pl
plot with diffrent colour and plotting symbols
4 messages · Diego Culattoni, Henrique Dallazuanna, PIKAL Petr +1 more
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 at 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 at 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
Hi r-help-bounces at r-project.org napsal dne 19.03.2008 14:18:39:
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),]
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.
Like plot(tt,var2,xaxt = "n", pch=var3+1, col=var4) see ?par for customising plot parameters. Beware also that var3 is a vector and also a part of your Var data frame which is sorted differently. So this direct call to var3 and var4 reference var3 and var4 vectors not columns from data frame. Regards Petr
Diego!
____________________________________________________________________________________
Looking for last minute shopping deals? [[alternative HTML version deleted]]
______________________________________________ R-help at 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.
?points Does this do what you wanted? ------------------------------------------------- plot(tt, var2,xaxt ="n", ylim=c(min(Var[1:3]), max(Var[1:3]))) axis(1,1:length(unique(var1)), labelname) points(tt, var3, col="green") points(tt,var4, col= "red") ---------------------------------------------------
--- Diego Culattoni <diegoculattoni at 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),]
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 at 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.
[[elided trailing spam]]