日本地図の色分け

暇だったので久々にRで遊んでみた．たしか青木先生のところに日本地図データがあったことを思い出し，色塗り．参考にしたのは以下のサイト．
http://aoki2.si.gunma-u.ac.jp/R/color-map.html
http://ds0.cc.yamaguchi-u.ac.jp/~fukuyo/r-map.html
http://d.hatena.ne.jp/yuka_y/20100728/1280290929

前もって"jpn.zip"をダウンロード後，解凍した中にはいっている"jpn"フォルダをワーキングディレクトリにコピーしておく必要がある．

あとは以下のように書けばOK．

source("http://aoki2.si.gunma-u.ac.jp/R/src/map.R", encoding="euc-jp")
source("http://aoki2.si.gunma-u.ac.jp/R/src/color_map3.R", encoding="euc-jp")

#県別データ
data <- numeric(47)
data[1]  <- 1 #北海道
data[2]  <- 1 #青森
data[3]  <- 0 #岩手
data[4]  <- 0 #宮城
data[5]  <- 0 #秋田
data[6]  <- 0 #山形
data[7]  <- 0 #福島
data[8]  <- 1 #茨城
data[9]  <- 1 #栃木
data[10] <- 0 #群馬
data[11] <- 2 #埼玉
data[12] <- 4 #千葉
data[13] <- 4 #東京
data[14] <- 3 #神奈川
data[15] <- 0 #新潟
data[16] <- 0 #富山
data[17] <- 1 #石川
data[18] <- 1 #福井
data[19] <- 0 #山梨
data[20] <- 0 #長野
data[21] <- 0 #岐阜
data[22] <- 0 #静岡
data[23] <- 3 #愛知
data[24] <- 2 #三重
data[25] <- 0 #滋賀
data[26] <- 1 #京都
data[27] <- 0 #大阪
data[28] <- 4 #兵庫
data[29] <- 0 #奈良
data[30] <- 0 #和歌山
data[31] <- 0 #鳥取
data[32] <- 0 #島根
data[33] <- 2 #岡山
data[34] <- 1 #広島
data[35] <- 0 #山口
data[36] <- 1 #徳島
data[37] <- 0 #香川
data[38] <- 1 #愛媛
data[39] <- 0 #高知
data[40] <- 2 #福岡
data[41] <- 0 #佐賀
data[42] <- 0 #長崎
data[43] <- 0 #熊本
data[44] <- 0 #大分
data[45] <- 0 #宮崎
data[46] <- 0 #鹿児島
data[47] <- 0 #沖縄

t <- c(1, 2, 3,4)
color.set <- c("white", "paleturquoise1", "deepskyblue1", "dodgerblue", "blue2")
color.map3(data, t, color.set)

すると下図のように日本地図への色塗りができる．