RがHSVの色が正しく表示されない

Question

RGBとHSVの両方の形式のカラーを使用しています。[0-255]と[0-1]ですので、両方向に正しく変換したいと考えています。

Iは、RGBカラー値のセットがあるとします

x_order<-structure(list(X1 = c(247, 202, 201), X2 = c(247, 120, 107), 
    X3 = c(145, 168, 208), X4 = c(3, 79, 132), X5 = c(251, 227, 
    55), X6 = c(152, 221, 222), X7 = c(152, 150, 164), X8 = c(220, 
    68, 58), X9 = c(177, 143, 106), X10 = c(113, 204, 81)), .Names = c("X1", 
"X2", "X3", "X4", "X5", "X6", "X7", "X8", "X9", "X10"), row.names = c(NA, 
-3L), class = "data.frame") 

よう

> x_order 
    X1 X2 X3 X4 X5 X6 X7 X8 X9 X10 
1 247 247 145 3 251 152 152 220 177 113 
2 202 120 168 79 227 221 150 68 143 204 
3 201 107 208 132 55 222 164 58 106 81 

をだから変換をチェック：

library(grDevices) 

plot(1, type="n", xlab="", ylab="", xlim=c(0, 25), ylim=c(0, 1)) 

for (i in 1:10){ 
    points(i*2,0.8,pch=19,col=rgb(x_order[1,i],x_order[2,i], 
           x_order[3,i],maxColorValue = 255), cex=5) 

    points(i*2,0.4,pch=19,col=hsv(rgb2hsv(x_order[,i], 
           maxColorValue = 255)), cex=5)  
} 

結果は：

RGB値をHSVに正しく変換して出力するにはどうすればよいですか？

もう1つのことは、記事の色セットの色相値を持っているため、rgb2hsvの正しい作業で確実です。

UPD：あなたはそれはあなたが期待している方法で受け入れていないhsvに値のベクトルに渡している

> hsv(rgb2hsv(x_order[,10],maxColorValue = 255)) 
[1] "#42FF00" "#0061FF" "#CC00FF" 
> rgb(x_order[1,10],x_order[2,10],x_order[3,10],maxColorValue = 255) 
[1] "#71CC51" 

Answer 1

。あなたは、引数h、sに渡し、v別途、適切な変換を得ることができます。

hsvColors <- rgb2hsv(x_order) 

plot(1, type="n", xlab="", ylab="", xlim=c(0, 25), ylim=c(0, 1)) 

for (i in 1:10){ 
    points(i*2, 0.8, pch=19, 
      col=rgb(x_order[1,i],x_order[2,i], x_order[3,i], maxColorValue = 255), 
      cex=5) 

    points(i*2, 0.4, pch=19, 
      col = hsv(hsvColors[1, i], hsvColors[2, i], hsvColors[3, i]), 
      cex=5)  
}