Here's a function I stole from a blog post somewhere (I forgot where
and I'm pressed for time, but I'm sure google can recover it) -- it
might be helpful to you:

`col.wheel` <- function(str, nearby=3, cex=0.75) {
    cols <- colors()
        hsvs <- rgb2hsv(col2rgb(cols))
        srt <- order(hsvs[1,], hsvs[2,], hsvs[3,])
        cols <- cols[srt]
        ind <- grep(str, cols)
        if (length(ind) <1) stop("no colour matches found",
                call.=FALSE)
        #s.ind <- ind
        #if (nearby>1) for (i in 1:nearby) {
        #       s.ind <- c(s.ind, ind+i, ind-i)
        #}
        ind <- sort(unique(as.vector(outer(ind, -nearby:nearby, "+"))))
        ind <- ind[ind <= length(cols)]
        cols <- cols[ind]
        pie(rep(1, length(cols)), labels=cols, col=cols, cex=cex)
        cols
}

Behold, a good use of the bad ink/info ratio of a pie chart!

Michael


On Wed, Mar 14, 2012 at 11:06 AM, R. Michael Weylandt
<michael.weyla...@gmail.com> wrote:
> apropos("color")
> ?colors
> colors()
>
> Michael
>
> On Wed, Mar 14, 2012 at 10:55 AM, Jie Tang <totang...@gmail.com> wrote:
>> hi everyone .
>>  Now I want to draw several lines in one frame.And it seems needs more
>> colors except for blue red,black .Where can i found these color name or
>> define some new color ?thank you .
>>
>> --
>> TANG Jie
>> Email: totang...@gmail.com
>> Tel: 0086-2154896104
>> Shanghai Typhoon Institute,China
>>
>>        [[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.

Reply via email to