R help - Oct 2005 - color for points

Hi,
I have the following code to 
randomly generate the 
points:
csr <-function(n=60){
x=runif(n)
y=runif(n)
f=cbind(x,y)
}
plot(csr())
 
I wonder how to code to make the first twenty points to be BLUE; second twenty
points to be RED; the last twenty points to be GREEN?
 
Thanks,
Sam
 




		
---------------------------------

	[[alternative HTML version deleted]]

Sam R. Smith a ??crit :
> Hi,
> I have the following code to randomly generate the points:
> csr <-function(n=60){
> x=runif(n)
> y=runif(n)
> f=cbind(x,y)
> }
> plot(csr())
>  
> I wonder how to code to make the first twenty points to be BLUE; second
twenty points to be RED; the last twenty points to be GREEN?
mynewfct = function(n=60)
{
x=runif(n)
y=runif(n)
f=cbind(x,y)
plot(f[1:20] , col='blue');
par(new=T);
plot(f[21:40] , col='red');
par(new=T);
plot(f[41:60] , col='green');
}

hih

If you know explicitly that there are just 60 points, you can use:
 plot(csr(),col=c(rep('blue',20), rep('red',20),
rep('green',20)))


 On 10/8/05, Sam R. Smith <samrobertsmith@yahoo.com>
wrote:
>
> Hi,
> I have the following code to
> randomly generate the
> points:
> csr <-function(n=60){
> x=runif(n)
> y=runif(n)
> f=cbind(x,y)
> }
> plot(csr())
>
> I wonder how to code to make the first twenty points to be BLUE; second
> twenty points to be RED; the last twenty points to be GREEN?
>
> Thanks,
> Sam
>
>
>
>
>
>
> ---------------------------------
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide!
> http://www.R-project.org/posting-guide.html
>


--
Jim Holtman
Cincinnati, OH
+1 513 247 0281

What the problem you are trying to solve?

	[[alternative HTML version deleted]]