【R】都道府県別　陸上競技場数

2020年2月18日

総務省統計局が発表している都道府県別の陸上競技場数を第六十四回日本統計年鑑（平成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$陸上競技場数)
  
  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="陸上競技場数（平成20年）　　(総務省統計局より) ")
  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, valgn = "middle") %>%
    write_clip

都道府県	陸上競技場数
北海道	240
青森	102
岩手	46
宮城	64
秋田	73
山形	35
福島	53
茨城	77
栃木	68
群馬	49
埼玉	118
千葉	97
東京	94
神奈川	64
新潟	43
富山	21
石川	23
福井	17
山梨	19
長野	39
岐阜	29
静岡	36
愛知	71
三重	26
滋賀	15
京都	25
大阪	39
兵庫	58
奈良	14
和歌山	12
鳥取	14
島根	24
岡山	29
広島	37
山口	23
徳島	8
香川	15
愛媛	16
高知	12
福岡	55
佐賀	15
長崎	22
熊本	48
大分	32
宮崎	34
鹿児島	54
沖縄	38