【R】都道府県別 進学率

総務省統計局が発表している「統計でみる都道府県のすがた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

中学校卒業者の進学率は意外にも大都市圏では少なく、地方では高そうです。一方、高等学校卒業者の進学率は大都市圏周辺が高くなっています。

Add a Comment

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