総務省|平成27年国勢調査におけるオンライン調査の実施状況の別紙をCSV化したもの census2015net.csv を置いておく。これをもとに,日本地図に色付けしてみよう(同じことをすでに上海IIさんがされている)。 # install.packages("NipponMap") library(NipponMap) data = read.csv("https://okumuralab.org/~okumura/stat/data/census2015net.csv", fileEncoding="UTF-8", comment.char="#") x = data[,3]/data[,2] - 19175769/51950504 # 回答率から全国平均を引く x = (x / max(abs(x)) + 1) / 2 # [0,1]の範囲にスケール cols = colorRamp