カラーユニバーサルデザイン 推奨配色セットの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
![R: カラーユニバーサルデザイン: Taglibro de H](https://cdn-ak-scissors.b.st-hatena.com/image/square/7a9b799717789e26c0cc3717d45e1c91eec859f2/height=288;version=1;width=512/https%3A%2F%2Fito-hi.c.blog.ss-blog.jp%2F_images%2Fblog%2F_5c3%2Fito-hi%2FRplot001-0f7e9.png%3Fc%3Da1)