I suspect the OP may want
rep(1:length(unique(x)), rle(x[order(x)])$lengths)[order(order(x))]
to allow for variable numbers of unique values.
Clint
Clint Bowman INTERNET: cl...@ecy.wa.gov
Air Quality Modeler INTERNET: cl...@math.utah.edu
Department of Ecology VOICE: (360) 407-6815
PO Box 47600 FAX: (360) 407-7534
Olympia, WA 98504-7600
USPS: PO Box 47600, Olympia, WA 98504-7600
Parcels: 300 Desmond Drive, Lacey, WA 98503-1274
On Fri, 21 Jun 2013, Rui Barradas wrote:
Hello,
I'm not sure I understand. You want to attribute a color number 1:7 to each
element of your vector? Maybe the following will do.
x <- scan(text = "
43 43 43 43 0 39 13 39 50 39 39 23 23 32 0 13 32 23 32 23 0 13 13 0
")
cols <- rep(1:7, rle(x[order(x)])$lengths)[order(order(x))]
plot(x, col = cols)
Hope this helps,
Rui Barradas
Em 21-06-2013 16:13, Suparna Mitra escreveu:
Hello R experts,
I want to define desired numbers to a vector based on the present
numbers. Can anybody please help me?
Obviously I found worst ways to do it, but I believe there must be any
better way.
I have vector as
X
[1] 43 43 43 43 0 39 13 39 50 39 39 23 23 32 0 13 32 23 32 23 0 13 13
0
Now I want to colour a plot with unic cols based on this vector. I want to
baseplot.
But now the problem in normal col pallet these nos has repetition. Thus I
tried to
library(RColorBrewer)
coll<-colorRampPalette(brewer.pal(9, "Set1"))(50)
and then use this vector as col.
But there also the colours are not enough bright.
So I am trying to set new a vector reading this present vector.
Obviously I can type out manually as
coll=c(rep(1,4),0,2 ....
But rather I am trying for some automation with which function or similar
But still now I am struggling with this.
Can anybody please help me.
Basic thing is some way to reads the vector and define a new col vector
from 1:7
Thanks a lot,
Mitra
[[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.
______________________________________________
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.
______________________________________________
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.
