【R】都道府県別 進学率
2020年3月6日
総務省統計局が発表している「統計でみる都道府県のすがた2020」から、都道府県別の中学校卒業者の進学率(%)、高等学校卒業者の進学率(%)を表示します。2017年のデータです。
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") layout(matrix(1:2, 1, 2)) library(NipponMap) JapanPrefMap(datc_kcol, main="中学校卒業者の進学率 % (総務省統計局より) ") legend("bottomright", fill=rainbow(length(levels(datc_k)), start = col_start, end=col_end), legend=names(table(datc_k))) JapanPrefMap(datc_mcol, main="高等学校卒業者の進学率 % (総務省統計局より) ") 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
都道府県 | 中学校卒業者進学率 | 高等学校卒業者進学率 |
---|---|---|
北海道 | 96.8 | 45.4 |
青森 | 98.0 | 46.9 |
岩手 | 98.4 | 44.6 |
宮城 | 97.1 | 49.3 |
秋田 | 98.4 | 45.3 |
山形 | 98.8 | 45.2 |
福島 | 95.7 | 46.3 |
茨城 | 96.7 | 50.5 |
栃木 | 96.0 | 52.5 |
群馬 | 97.7 | 51.9 |
埼玉 | 95.7 | 57.1 |
千葉 | 97.1 | 55.6 |
東京 | 96.3 | 64.7 |
神奈川 | 95.5 | 60.9 |
新潟 | 97.5 | 45.8 |
富山 | 98.7 | 51.9 |
石川 | 98.9 | 55.0 |
福井 | 98.4 | 56.8 |
山梨 | 96.5 | 57.2 |
長野 | 97.0 | 47.7 |
岐阜 | 94.7 | 55.5 |
静岡 | 95.1 | 52.9 |
愛知 | 93.1 | 58.2 |
三重 | 95.2 | 50.6 |
滋賀 | 97.1 | 54.6 |
京都 | 96.9 | 65.8 |
大阪 | 95.4 | 59.5 |
兵庫 | 95.8 | 60.6 |
奈良 | 97.6 | 58.2 |
和歌山 | 98.6 | 47.8 |
鳥取 | 97.3 | 43.8 |
島根 | 97.9 | 46.7 |
岡山 | 96.6 | 51.0 |
広島 | 95.5 | 60.6 |
山口 | 96.9 | 44.1 |
徳島 | 98.0 | 52.0 |
香川 | 96.5 | 52.2 |
愛媛 | 97.5 | 53.7 |
高知 | 97.5 | 49.3 |
福岡 | 96.3 | 53.4 |
佐賀 | 96.6 | 44.7 |
長崎 | 97.8 | 45.0 |
熊本 | 97.5 | 46.8 |
大分 | 98.3 | 47.8 |
宮崎 | 97.1 | 45.9 |
鹿児島 | 97.3 | 44.2 |
沖縄 | 95.2 | 39.7 |
中学校卒業者の進学率は意外にも大都市圏では少なく、地方では高そうです。一方、高等学校卒業者の進学率は大都市圏周辺が高くなっています。