It seems that there is no implementation for the "traditional artist's
color circle" in R. However I'm searching for such a wheel, because my
program needs it.
As said, the description of complementary/opposite-function in package
"colortools" is misleading since, for example
opposite("green") produces violet, not red, but the description of
complementary-function says
"Complementary or opposite color scheme is formed by colors that are
opposite each other on the color wheel (example: red and green)."
So, there must be just a lapse in the text.
I "constrained" such kind of a color wheel, which is enough near of what
I need:
library(colorspace)
ColorsRYB=rbind(colorRamp(c("red",
"violet"))((0:4)/4)[1:4,],colorRamp(c("violet",
"blue"))((0:4)/4)[1:4,],colorRamp(c("blue",
"green"))((0:4)/4)[1:4,],colorRamp(c("green",
"yellow"))((0:4)/4)[1:4,],colorRamp(c("yellow",
"orange"))((0:4)/4)[1:4,],colorRamp(c("orange", "red"))((0:4)/4)[1:4,])
LenCol=length(ColorsRYB[,1])
ColorsRYBhex=rep(0, LenCol)
for(i in 1: LenCol)
{
ColorsRYBhex[i]=rgb(ColorsRYB[i,1]/255,ColorsRYB[i,2]/255,ColorsRYB[i,3]/255)
}
pie(rep(1, 24), col = ColorsRYBhex)
Atte T.
28.7.2015, 2.23, Steve Taylor kirjoitti:
I wonder if the hcl colour space is useful? Varying hue while keeping chroma and
luminosity constant should give varying colours of perceptually the same
"colourness" and brightness.
?hcl
pie(rep(1,12),col=hcl((1:12)*30,c=70),border=NA)
-----Original Message-----
From: R-help [mailto:r-help-boun...@r-project.org] On Behalf Of Atte Tenkanen
Sent: Sunday, 26 July 2015 7:50a
To: r-help@r-project.org
Subject: [R] Opposite color in R
Hi,
I have tried to find a way to find opposite or complementary colors in R.
I would like to form a color circle with R like this one:
http://nobetty.net/dandls/colorwheel/complementary_colors.jpg
If you just make a basic color wheel in R, the colors do not form
complementary color circle:
palette(rainbow(24))
Colors=palette()
pie(rep(1, 24), col = Colors)
There is a package ”colortools” where you can find function opposite(),
but it doesn’t work as is said. I tried
library(colortools)
opposite("violet") and got green instead of yellow and
opposite("blue") and got yellow instead of orange.
Do you know any solutions?
Atte Tenkanen
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
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 -- To UNSUBSCRIBE and more, see
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.
