※2024/7/29時点 Rで描画するのを前提としています。
コロプレスマップを描くにあたり、必要な準備はこちらのページで書きました。
あわせて読みたい
コロプレス図描画の前に（R言語版） コロプレス図は、行政区画単位ごとの集計データを階級で区分分けして色で塗り分けた図のことです。行政区画なので大きな視点で見れば国単位の図もあれば、小さな視点で…
では実際に書いていきます。
準備するもの
国土数値情報ダウンロードサイトから必要な都道府県のデータをダウンロードします。（アンケート回答が必要です）
| N03_004 | N03_007 |
| 大阪市都島区 | 27102 |
| 大阪市福島区 | 27103 |
| ・・・ | ・・・ |
| 南河内郡千早赤阪村 | 27383 |
行政区をlabel列に格納し、さらに塗りつぶしたいパラーメータを任意の数だけ用意した表
| label | keycode | ○○の数 | △△の数 | ・・・ |
| 大阪市都島区 | 27102 | aaa | ddd | ・・・ |
| 大阪市福島区 | 27103 | bbb | eee | ・・・ |
| ・・・ | ・・・ | ・・・ | ・・・ | ・・・ |
| 南河内郡千早赤阪村 | 27383 | ccc | fff | ・・・ |
都道府県別
市町村別
library(tidyverse)
library(udunits2)
library(units)
library(sf)
map <- st_read("N03-23_27_230101.geojson") # geojsonの読み込み
dat <- read.csv('df_osaka_1.csv', header=T) # 塗りつぶしに使う数値情報の読み込み
dat2 <- left_join(map, dat, by = c('N03_004'='label')) # labelをキーにして結合
ggplot() + geom_sf(mapping = aes(fill = total), data = dat2) +
colorspace::scale_fill_continuous_sequential("YlGn") # aesの引数に塗りつぶしたいパラメーターの列名を入れる
