グラフィックス参考実例集：カラーパレットの編集

COLOR(red){SIZE(20){グラフィックス参考実例集：カラーパレット}}

([[グラフィックス参考実例集]]に戻る。[[Rのグラフィックスパラメータ]]を参照する。)~

Rには自然な色の階調を与えるカラーパレットが用意されている。グラフィックス関数の col パラメータにカラーパレットを指定すると見栄えの良い色調が得られる。詳しくは ?rainbow, ?palette を参照。またRに於ける個別の色の指定については [[Rにおける色の名前]]を参照。

#contents
~
** 虹色 rainbow (12段階を指定) [#i8810595]
 pie(rep(1, 12), col = rainbow(12))
#ref(rainbow.png,left)

** 熱 heat.colors [#aae53342]
 pie(rep(1, 12), col = heat.colors(12))
#ref(heatcolors.png,left)

** cm.colors (cm とは cyan-magenta の略?) [#q5dd1b44]
 pie(rep(1, 12), col = cm.colors(12))
#ref(cmcolors.png,left)

** 地質/地形/地勢 topo.colors [#n536f4a1]
 pie(rep(1, 12), col = topo.colors(12))
#ref(topocolors.png,left)

** 地形 terrain.colors [#pcd1e27d]
 pie(rep(1, 12), col = terrain.colors(12))
#ref(terraincolors.png,left)

** 灰色濃淡 grey ([0,1] の間の小数値で指定) [#p98569a4]
 pie(rep(1, 12), col = grey(0:11/12))
#ref(grey.png,left)

** カラーパレット一覧 [#k34f01d9]
  demo.pal <- function(n, border = if (n<32) "light gray" else NA,
             main = paste("color palettes;  n=",n),
             ch.col = c("rainbow(n, start=.7, end=.1)", "heat.colors(n)",
                           "terrain.colors(n)", "topo.colors(n)", "cm.colors(n)"))
     {
         nt <- length(ch.col)
         i <- 1:n; j <- n / nt; d <- j/6; dy <- 2*d
         plot(i,i+d, type="n", yaxt="n", ylab="", main=main)
         for (k in 1:nt) {
             rect(i-.5, (k-1)*j+ dy, i+.4, k*j,
                  col = eval(parse(text=ch.col[k])), border = border)
             text(2*j,  k * j +dy/4, ch.col[k])
         }
     }
     n <- if(.Device == "postscript") 64 else 16
          # Since for screen, larger n may give color allocation problem
     demo.pal(n)
#ref(palette1.png,left)

** 色の名前による指定 [#zd98da0a]

R で利用できる式名の一覧は colors() で得られる。実際の色を得るには例えば関数一覧にある青木さんの関数を利用する。Linux では xcolors, xcolorsel 関数で一覧が得られる。

タイムスタンプを変更しない