【R】都道府県別 幼稚園・保育所数
2020年2月16日
総務省統計局が発表している都道府県別の幼稚園数と保育所数(分校含む)を第六十四回日本統計年鑑(平成27年)から取得し、地図上にプロットしてみます。
library(leaflet) library(knitr) library(kableExtra) library(dplyr) library(tidyr) library(stringr) dat <- read.csv("http://www.dinov.tokyo/Data/JP_Pref/Pref_data.csv", header = TRUE, fileEncoding="UTF-8") col_start <- 0.2 col_end <- 0.0 table_df<-data.frame(都道府県=dat$都道府県, 幼稚園数=dat$幼稚園数, 保育所数=dat$保育所数) datc_k <- cut(dat$幼稚園数, hist(dat$幼稚園数, plot=FALSE)$breaks, right=FALSE) datc_kcol <- rainbow(length(levels(datc_k)), start = col_start, end=col_end)[as.integer(datc_k)] datc_m <- cut(dat$保育所数, hist(dat$保育所数, plot=FALSE)$breaks, right=FALSE) datc_mcol <- rainbow(length(levels(datc_m)), start = col_start, end=col_end)[as.integer(datc_m)] windowsFonts(JP4=windowsFont("Biz Gothic")) windows(width=1600, height=800) par(family="JP4") par(family="JP4") layout(matrix(1:2, 1, 2)) library(NipponMap) JapanPrefMap(datc_kcol, main="幼稚園数(平成25年) (総務省統計局より) ") legend("bottomright", fill=rainbow(length(levels(datc_k)), start = col_start, end=col_end), legend=names(table(datc_k))) JapanPrefMap(datc_mcol, main="保育所数(平成25年) (総務省統計局より) ") legend("bottomright", fill=rainbow(length(levels(datc_m)), start = col_start, end=col_end), legend=names(table(datc_m))) library(clipr) kable(table_df, align = "c") %>% kable_styling(full_width = F) %>% column_spec(1, bold = T) %>% collapse_rows(columns = 1, valign = "middle") %>% write_clip
都道府県 | 幼稚園数 | 保育所数 |
---|---|---|
北海道 | 547 | 850 |
青森 | 120 | 470 |
岩手 | 142 | 358 |
宮城 | 282 | 341 |
秋田 | 93 | 253 |
山形 | 109 | 241 |
福島 | 344 | 314 |
茨城 | 366 | 490 |
栃木 | 198 | 353 |
群馬 | 207 | 418 |
埼玉 | 626 | 1003 |
千葉 | 569 | 790 |
東京 | 1039 | 1864 |
神奈川 | 724 | 1151 |
新潟 | 155 | 708 |
富山 | 89 | 303 |
石川 | 73 | 362 |
福井 | 125 | 272 |
山梨 | 74 | 238 |
長野 | 119 | 579 |
岐阜 | 188 | 426 |
静岡 | 511 | 510 |
愛知 | 521 | 1220 |
三重 | 254 | 433 |
滋賀 | 193 | 262 |
京都 | 229 | 482 |
大阪 | 774 | 1240 |
兵庫 | 698 | 879 |
奈良 | 202 | 194 |
和歌山 | 106 | 213 |
鳥取 | 35 | 192 |
島根 | 108 | 286 |
岡山 | 330 | 403 |
広島 | 305 | 616 |
山口 | 202 | 311 |
徳島 | 189 | 215 |
香川 | 175 | 209 |
愛媛 | 185 | 324 |
高知 | 56 | 258 |
福岡 | 491 | 905 |
佐賀 | 106 | 221 |
長崎 | 175 | 438 |
熊本 | 145 | 588 |
大分 | 216 | 281 |
宮崎 | 134 | 401 |
鹿児島 | 240 | 475 |
沖縄 | 274 | 400 |
やはり人口の多い都道府県はあ幼稚園・保育所が多いですね。両親共働きの要望が多いからか、ほとんどの都道府県で幼稚園より保育所の方が多いですね。