변환 랩 컬러 RGB의 값과 HEX는 <code>HEX</code> 값에 <code>RGB</code> 값

Question

변환 R 용이합니다 :

x <- c("165 239 210", "111 45 93") 
    sapply(strsplit(x, " "), function(x) 
    rgb(x[1], x[2], x[3], maxColorValue=255)) 
    #[1] "#A5EFD2" "#6F2D5D" 

가 어떻게 RGB 및 HEX로의 CIELab 값을 변환 할 수 있습니까? RGB, XYZ, HSV, HLS, LAB, polarLAB, LUV, polarLUV :

x <- c("20 0 0", "50 0 0") 
[...code...] 
#[1] "#303030" "#777777" 

Answer 1

여기 그것은 HEX로 직접 변환 할 수 있지만 변환 할 수 library(colorspace)

library(colorspace) 

z <- c("20 0 0", "50 0 0") 
b <- do.call(rbind, lapply(strsplit(z, split = " "), as.numeric)) 
b <- LAB(b) 
as(b, "RGB") 
#output: 
       R   G   B 
[1,] 0.02989077 0.02989025 0.02989294 
[2,] 0.18418803 0.18418480 0.18420138 

를 사용하는 한 가지 방법입니다.