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]]
Apparently Analagous Threads
- square and points on the same figure
- Compare data between two groups/countries on 5-point Likert scale questionnare?
- setClass question
- Namespaces, coercion and setAs
- [LLVMdev] [PATCH][REQUEST] Could someone submit this CSR Kalimba definitions patch please?