カラーユニバーサルデザイン 推奨配色セットのRGB版に準拠した色をかえす関数をつくってみた。 コード。例によってエラー処理とかはいい加減。 color.universal <- function(index, alpha = 1) { alpha <- alpha * 255 sapply(index, function(i) switch(i, # red red = rgb(255, 51, 0, alpha, maxColorValue = 255), # yellow yellow = rgb(255, 255, 0, alpha, maxColorValue = 255), # green green = rgb(51, 153, 102, alpha, maxColorValue = 255), # blue blue = rgb(0, 65, 255, alpha, maxC