Theo hiểu biết của tôi, việc tìm kiếm màu sắc đặc biệt có liên quan đến tìm kiếm hiệu quả từ một khối đơn vị, trong đó 3 chiều của khối là ba vectơ dọc theo trục đỏ, lục và lam. Điều này có thể được đơn giản hóa để tìm kiếm trong một hình trụ (tương tự HSV), trong đó bạn sửa Saturation (S) và Value (V) và tìm các giá trị Hue ngẫu nhiên. Nó hoạt động trong nhiều trường hợp, và xem điều này ở đây:
https://martin.ankerl.com/2009/12/09/how-to-create-random-colors-programmatically/
Trong R,
get_distinct_hues <- function(ncolor,s=0.5,v=0.95,seed=40) {
golden_ratio_conjugate <- 0.618033988749895
set.seed(seed)
h <- runif(1)
H <- vector("numeric",ncolor)
for(i in seq_len(ncolor)) {
h <- (h + golden_ratio_conjugate) %% 1
H[i] <- h
}
hsv(H,s=s,v=v)
}
Một cách khác, là sử dụng gói R "thống nhất"
https://cran.r-project.org/web/packages/uniformly/index.html
và chức năng đơn giản này có thể tạo ra màu sắc đặc biệt:
get_random_distinct_colors <- function(ncolor,seed = 100) {
require(uniformly)
set.seed(seed)
rgb_mat <- runif_in_cube(n=ncolor,d=3,O=rep(0.5,3),r=0.5)
rgb(r=rgb_mat[,1],g=rgb_mat[,2],b=rgb_mat[,3])
}
Người ta có thể nghĩ về chức năng liên quan nhiều hơn một chút bằng cách tìm kiếm theo lưới:
get_random_grid_colors <- function(ncolor,seed = 100) {
require(uniformly)
set.seed(seed)
ngrid <- ceiling(ncolor^(1/3))
x <- seq(0,1,length=ngrid+1)[1:ngrid]
dx <- (x[2] - x[1])/2
x <- x + dx
origins <- expand.grid(x,x,x)
nbox <- nrow(origins)
RGB <- vector("numeric",nbox)
for(i in seq_len(nbox)) {
rgb <- runif_in_cube(n=1,d=3,O=as.numeric(origins[i,]),r=dx)
RGB[i] <- rgb(rgb[1,1],rgb[1,2],rgb[1,3])
}
index <- sample(seq(1,nbox),ncolor)
RGB[index]
}
kiểm tra chức năng này bằng cách:
ncolor <- 20
barplot(rep(1,ncolor),col=get_distinct_hues(ncolor)) # approach 1
barplot(rep(1,ncolor),col=get_random_distinct_colors(ncolor)) # approach 2
barplot(rep(1,ncolor),col=get_random_grid_colors(ncolor)) # approach 3
Tuy nhiên, lưu ý rằng, việc xác định một bảng màu riêng biệt với màu sắc dễ nhận biết của con người là không đơn giản. Phương pháp nào ở trên tạo ra bộ màu đa dạng vẫn chưa được thử nghiệm.
