[R] Opposite color in R

[Atte Tenkanen]

Hi,

Nope. My point is that color pairs red-green, yellow-violet and blue-orange are physically on the opposite sides of the wheel.
I'm not 100% satisfied with this circle, because three of greens and reds are so near each other. But this is the best solution thus far :-)
The number of colors, 24, is also fixed in the application.

Atte

> Hi
>
> I plotted the 'spectrum' and it looked a little small - spectrum colours: red orange yellow green blue indigo violet.
> I suppose you could go to infinite lengths to split it up but is this an improvement?
>
> I have not gone into the "depths" of complimentary colours
>
> library(colorspace)
>
> ColorsRYB=rbind(colorRamp(c("purple","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,],
>                  colorRamp(c("red","purple"))((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, LenCol), col = ColorsRYBhex)
>
> Regards
>
> Duncan
>
> Duncan Mackay
> Department of Agronomy and Soil Science
> University of New England
> Armidale NSW 2351
> Email: home:mackay at northnet.com.au  <https://stat.ethz.ch/mailman/listinfo/r-help>
>
>
>
>
> -----Original Message-----
> From: R-help [mailto:r-help-bounces at r-project.org  <https://stat.ethz.ch/mailman/listinfo/r-help>] On Behalf Of Atte Tenkanen
> Sent: Tuesday, 28 July 2015 18:22
> To:r-help at r-project.org  <https://stat.ethz.ch/mailman/listinfo/r-help>
> Subject: [R] Opposite color in R
>
> 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-bounces at r-project.org  <https://stat.ethz.ch/mailman/listinfo/r-help>] On Behalf Of Atte Tenkanen
> />/  Sent: Sunday, 26 July 2015 7:50a
> />/  To:r-help at r-project.org  <https://stat.ethz.ch/mailman/listinfo/r-help>
> />/  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
> />


	[[alternative HTML version deleted]]