আমার বোধগম্যতে আলাদা রঙগুলি অনুসন্ধান করা ইউনিট কিউব থেকে দক্ষতার সাথে অনুসন্ধানের সাথে সম্পর্কিত, যেখানে ঘনকটির 3 টি মাত্রা লাল, সবুজ এবং নীল অক্ষের পাশাপাশি তিনটি ভেক্টর রয়েছে। এটি সিলিন্ডারে (এইচএসভি উপমা) অনুসন্ধান করতে সরল করা যেতে পারে, যেখানে আপনি স্যাচুরেশন (এস) এবং মান (ভি) ঠিক করেন এবং এলোমেলো হিউ মান খুঁজে পাবেন। এটি অনেক ক্ষেত্রে কাজ করে এবং এখানে এটি দেখুন:
https://martin.ankerl.com/2009/12/09/how-to-create-random-colors-programmatically/
আর তে,
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)
}
বিকল্প উপায় হ'ল আর প্যাকেজটি "অভিন্ন" ব্যবহার করা
https://cran.r-project.org/web/packages/uniformly/index.html
এবং এই সাধারণ ফাংশনটি স্বতন্ত্র রঙ তৈরি করতে পারে:
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])
}
গ্রিড-অনুসন্ধানের মাধ্যমে কেউ আরও কিছুটা জড়িত ক্রিয়াকলাপটি ভাবতে পারেন:
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]
}
এই ফাংশনগুলি দ্বারা পরীক্ষা করুন:
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
তবে লক্ষ করুন যে, মানুষের উপলব্ধিযোগ্য রঙগুলির সাথে একটি পৃথক প্যালেট সংজ্ঞায়িত করা সহজ নয়। উপরোক্ত পদ্ধতির মধ্যে কোনটি বিভিন্ন রঙের সেট তৈরি করে তা এখনও পরীক্ষা করা যায়নি।
