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.
