【R】都道府県別　消防署数

2020年3月9日

総務省統計局が発表している「統計でみる都道府県のすがた2020」から、都道府県別の消防署数(可住地面積100k㎡当たり)を表示します。2018年のデータです。

  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$消防署数)
  
  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)]

  windowsFonts(JP4=windowsFont("Biz Gothic"))
  windows(width=800, height=800)
  par(family="JP4")
  
  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)))
  
  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

都道府県	消防署数
北海道	1.9
青森	3.1
岩手	2.4
宮城	3.3
秋田	2.9
山形	2.3
福島	2.7
茨城	3.8
栃木	2.8
群馬	4.0
埼玉	8.5
千葉	6.7
東京	21.6
神奈川	19.6
新潟	3.0
富山	2.9
石川	4.8
福井	5.2
山梨	6.3
長野	3.3
岐阜	5.8
静岡	5.5
愛知	8.4
三重	5.1
滋賀	4.5
京都	9.6
大阪	20.8
兵庫	7.0
奈良	6.2
和歌山	5.8
鳥取	3.2
島根	4.7
岡山	4.4
広島	5.5
山口	4.3
徳島	4.6
香川	4.4
愛媛	4.4
高知	4.7
福岡	6.1
佐賀	3.0
長崎	5.7
熊本	3.4
大分	3.8
宮崎	2.4
鹿児島	3.5
沖縄	5.9