Rでマゼンタ-黒-緑になるバリアフリーなカラーパレットを生成する
バリアフリーなヒートマップを描くために、マゼンタ-黒-緑のカラーパレットが使いたかったのですが、R でどうやって良いのかわからなかったので自作しました。簡単な方法を知っている人がいれば教えてください。 [code] magentablackgreen <- function(n) { r <- c( round( seq.int(236, 0, by=-236/(n-1)) ), rep(0, n) ) g <- c( rep(0, n), round( seq.int(0, 255, by=255/(n-1)) ) ) b <- c( round( seq.int(140,0, by=-140/(n-1)) ), rep(0, n) ) rgb(r, g, b, max=255) } [/code] [code] cols <- magentablackgreen(25) [/code]
R: カラーユニバーサルデザイン: Taglibro de H
カラーユニバーサルデザイン 推奨配色セットの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
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
株式会社Yostar
