前回、都道府県の市区町村を人口で2分割するやつのコードを書いたので、関数化して全国版の地図を作ってみる。 あらかじめ人口データだけは用意しておく必要があるので、前回同様{estatapi}でデータをダウンロードして加工しておく。 gg_pref_split()という関数がそれ。pref_codeで対象の都道府県(コード)を指定する。プロットおよびラベルの描画は引数で変更可能。フォントも適当に変えられる。 gg_pref_split <- function(pref_code = 33, plot = TRUE, label = TRUE, label_font = "IPAexGothic") { p.code <- sprintf("%02d", pref_code) data.result <- d.pops %>% dplyr::filter(pref_code == p.code)