# [R] How to define desired numbers to a vector based on the present numbers

arun smartpink111 at yahoo.com
Fri Jun 21 19:13:57 CEST 2013

```HI,
May be this also works:
plot(x,col=as.numeric(factor(x)))
A.K.

----- Original Message -----
To: Suparna Mitra <suparna.mitra.sm at gmail.com>
Cc: r-help at r-project.org
Sent: Friday, June 21, 2013 11:32 AM
Subject: Re: [R] How to define desired numbers to a vector based on the
present numbers

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,

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
> 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.
>
> 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 at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> and provide commented, minimal, self-contained, reproducible code.
>

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help