Draw Keikenti map

Keikenti.R

# 経県値マップ*1をプロットするRスクリプト
# *1 https://uub.jp/j.cgi/

library(NipponMap)
library(stringr)

col_map <- c("white", "cyan", "yellowgreen", "yellow", "red", "purple")

# MAPの値は、都道府県コードの順にスコアを並べたものになります。

MAP <- "54443245434454445444444445444444444444441443444"

if (str_length(MAP) != 47) {
  stop("MAP文字列の長さがちがいます。")
} else {
  num_map <- sapply(1:47,
                    function(i) {
                      as.numeric(str_sub(MAP, i, i))
                    })
  keikenti <- sum(num_map)

  JapanPrefMap(col =  col_map[num_map + 1])
  print(keikenti)
}