[R] Selecting / creating unique colours for behavioural / transitional data

Ross Culloch ross.culloch at dur.ac.uk
Fri Mar 13 14:58:25 CET 2009 

Hi Kingsford,

Thanks yet again for your help! I have tried this, and once again i have
failed! I have put the code that i've used below (i'm sure you'll note some
bad practice) if that is any use to help explain where i'm going wrong, it
seems to run fine and feeds back just what you noted it would, but i still
get the error message as before - if you have any more suggestions i'd be
very greatful, i'm sure it is down to me missing something very simple!

Thanks again,

Ross

> mycols <- colors.plot(T)
> str(mycols$color.names)
 Factor w/ 15 levels "slategray2","snow3",..: 9 10 11 12 13 14 15 1 2 3 ...
> ##Factor w/ 4 levels "blue","green",..: 3 4 2 1
> str(as.character(mycols$color.names))
 chr [1:15] "tomato1" "tomato4" "turquoise1" "violet" "violetred4" "wheat3"
...
> ##chr [1:4] "tomato1" "yellow1" "green" "blue"
> 
> attach(dd)
> seqiplot(data.seq[1:4,], withlegend=FALSE, ylab="Seal ID", 
+ axes = F, title = "30-09-2008", cpal=mycols)
There were 12 warnings (use warnings() to see them)
> y.lab.pos <-  c(0.7, 1.9, 3.1, 4.3)
> axis(2, at=y.lab.pos, labels=paste(ID[1:4], sep=""), tick=FALSE)
> detach(dd)



Kingsford Jones wrote:
> 
> On Fri, Mar 13, 2009 at 7:19 AM, Ross Culloch <ross.culloch at dur.ac.uk>
> wrote:
>>
>> Many thanks yet again for your reply, thanks for that method, i gave it a
>> go
>> and i checked 'mycols' and sure enough it had selected the chosen colours
>> and listed their names, but when i used it for making the graph warnigs
>> informed me that the supplied colour in not numeric or character.
> 
> 
> The data frame holds is storing the colors as class factor.  You'll
> need to convert to character.  Note
> 
>> mycols <- colors.plot(T)
>> str(mycols$color.names)
>  Factor w/ 4 levels "blue","green",..: 3 4 2 1
>> str(as.character(mycols$color.names))
>  chr [1:4] "tomato1" "yellow1" "green" "blue"
> 
> 
> hth,
> Kingsford
> 
> 
>>
>> Ross
>>
>>
>>
>> Kingsford Jones wrote:
>>>
>>> One option for creating your own palette is
>>>
>>> #install.packages('epitools')
>>> mycols <- colors.plot(locator = TRUE)
>>>
>>> then left-click on 15 colors of your liking and then right-click 'Stop'.
>>>
>>> mycols will be a data.frame with the third column containing the color
>>> names.
>>>
>>> Kingsford
>>>
>>> On Fri, Mar 13, 2009 at 6:38 AM, Ross Culloch <ross.culloch at dur.ac.uk>
>>> wrote:
>>>>
>>>> Hi Kingsford,
>>>>
>>>> Thanks for the reply - some of the sets/palettes in the RColorBrewer
>>>> are
>>>> ideal, but the problem with the problem i have is that they only go up
>>>> to
>>>> 12
>>>> colours, and i need 15 colours - so i assume the only thing i can do is
>>>> create my own palette, but i'm having limited success in trying to work
>>>> out
>>>> how to do this.
>>>>
>>>>
>>>> Kingsford Jones wrote:
>>>>>
>>>>> Try
>>>>>
>>>>> #install.packages('RColorBrewer')
>>>>> example(brewer.pal, pack='RColorBrewer')
>>>>>
>>>>>
>>>>> hth,
>>>>> Kingsford Jones
>>>>>
>>>>> On Fri, Mar 13, 2009 at 3:20 AM, Ross Culloch <ross.culloch at dur.ac.uk>
>>>>> wrote:
>>>>>>
>>>>>> Dear all,
>>>>>>
>>>>>> This seems like a simple problem but i've searched the help files and
>>>>>> tried
>>>>>> various options but failed, so apologies in advance for asking what
>>>>>> i'm
>>>>>> sure
>>>>>> is an easy thing to do!
>>>>>>
>>>>>> In short, I have displayed behavioural data using the TraMineR
>>>>>> package
>>>>>> such
>>>>>> that there is a colour change between the transition of behaviours,
>>>>>> however,
>>>>>> all the methods that i have used thus far have given me gradual
>>>>>> changes
>>>>>> in
>>>>>> colour such that it is impossible to tell the difference from several
>>>>>> of
>>>>>> the
>>>>>> behaviours. I have looked in the help section here, and looked at
>>>>>> various
>>>>>> books and help files in R, but most seem intent on gradual changes in
>>>>>> colour
>>>>>> for heat, terrain, depth, etc - i may not be looking in the correct
>>>>>> places,
>>>>>> or perhaps i don't know what i'm looking for, exactly.
>>>>>>
>>>>>> The code below is the closest i can get to colours being not too
>>>>>> similar,
>>>>>> but it's still hard to tell apart:
>>>>>>
>>>>>> col <- rainbow(15,start = 0, end = 1, gamma = 0.5)
>>>>>>
>>>>>> What i ideally want to do is create a palette with random colours
>>>>>> that
>>>>>> are
>>>>>> no where near one another so that i can tell the 15 different
>>>>>> behaviours
>>>>>> apart - is this possible?
>>>>>>
>>>>>> If anyone can help i would be most greatful!
>>>>>>
>>>>>> Best wishes,
>>>>>>
>>>>>> Ross
>>>>>> --
>>>>>> View this message in context:
>>>>>> http://www.nabble.com/Selecting---creating-unique-colours-for-behavioural---transitional-data-tp22492438p22492438.html
>>>>>> Sent from the R help mailing list archive at Nabble.com.
>>>>>>
>>>>>> ______________________________________________
>>>>>> 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.
>>>>>>
>>>>>
>>>>> ______________________________________________
>>>>> 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.
>>>>>
>>>>>
>>>>
>>>> --
>>>> View this message in context:
>>>> http://www.nabble.com/Selecting---creating-unique-colours-for-behavioural---transitional-data-tp22492438p22495482.html
>>>> Sent from the R help mailing list archive at Nabble.com.
>>>>
>>>> ______________________________________________
>>>> 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.
>>>>
>>>
>>> ______________________________________________
>>> 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.
>>>
>>>
>>
>> --
>> View this message in context:
>> http://www.nabble.com/Selecting---creating-unique-colours-for-behavioural---transitional-data-tp22492438p22496241.html
>> Sent from the R help mailing list archive at Nabble.com.
>>
>> ______________________________________________
>> 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.
>>
> 
> ______________________________________________
> 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.
> 
> 

-- 
View this message in context: http://www.nabble.com/Selecting---creating-unique-colours-for-behavioural---transitional-data-tp22492438p22496949.html
Sent from the R help mailing list archive at Nabble.com.

More information about the R-help mailing list