【R】岩手県の人口別コロプレス図
2020年8月9日
岩手県の市区町村を人口別に塗りつぶしてみます。境界の描画は「地図で見る統計(統計GIS)」の「04000 岩手県全域 世界測地系緯度経度・Shapefile」から取得します。
library(ggplot2) library(ggrepel) library(sf) library(tidyverse) library(kableExtra) map <- read_sf("shp/h27ka03.shp") # 岩手県のシェープファイル dat <- map %>% group_by(CITY_NAME) %>% # 市名でグルーピング summarize('Pop.total' = sum(JINKO)) %>% # グループ単位で領域結合, 人口計算 mutate( # 重心計算と座標値の抽出 centroid = st_centroid(geometry), x = st_coordinates(centroid)[, 1], y = st_coordinates(centroid)[, 2] ) %>% arrange(desc(Pop.total)) dat %>% ggplot() + geom_sf(aes(fill = Pop.total)) + # 人口毎に色分け coord_sf(datum = NA) + scale_fill_viridis_c(alpha = 0.6) + theme_void()+ geom_text_repel(aes(x = x, y = y, label = CITY_NAME), col="black", family = "JP4", size = 3) table_df<-data.frame(市区町村=dat$CITY_NAME, 人口=dat$Pop.total) library(clipr) table_df %>% kable(align = "c", row.names=FALSE) %>% kable_styling(full_width = F) %>% column_spec(1, bold = T) %>% collapse_rows(columns = 1, valign = "middle") %>% write_clip
市区町村 | 人口 |
---|---|
盛岡市 | 297631 |
一関市 | 121583 |
奥州市 | 119422 |
花巻市 | 97702 |
北上市 | 93511 |
宮古市 | 56676 |
滝沢市 | 55463 |
大船渡市 | 38058 |
釜石市 | 36802 |
久慈市 | 35642 |
紫波町 | 32614 |
遠野市 | 28062 |
矢巾町 | 27678 |
二戸市 | 27611 |
八幡平市 | 26355 |
陸前高田市 | 19758 |
雫石町 | 16981 |
洋野町 | 16693 |
金ケ崎町 | 15895 |
山田町 | 15826 |
岩手町 | 13692 |
一戸町 | 12919 |
大槌町 | 11759 |
岩泉町 | 9841 |
軽米町 | 9333 |
平泉町 | 7868 |
葛巻町 | 6344 |
西和賀町 | 5880 |
九戸村 | 5865 |
住田町 | 5720 |
野田村 | 4149 |
田野畑村 | 3466 |
普代村 | 2795 |