【R】岩手県の人口別コロプレス図

岩手県の市区町村を人口別に塗りつぶしてみます。境界の描画は「地図で見る統計(統計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

Add a Comment

メールアドレスが公開されることはありません。