【R】都道府県別 事業所数

総務省統計局が発表している「都道府県・市区町村のすがた(社会・人口統計体系)」から、都道府県別の事業所数(2006年)を表示します。

  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="事業所数(2006年) ")
  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
  
都道府県 事業所数
北海道 251883
青森 68451
岩手 68767
宮城 109589
秋田 59672
山形 65796
福島 101573
茨城 126506
栃木 95995
群馬 102705
埼玉 254835
千葉 194817
東京 690556
神奈川 288962
新潟 131405
富山 60311
石川 66948
福井 48713
山梨 48723
長野 119608
岐阜 112668
静岡 191673
愛知 335601
三重 85865
滋賀 58197
京都 128660
大阪 428247
兵庫 238879
奈良 50631
和歌山 54768
鳥取 29192
島根 41814
岡山 85427
広島 139914
山口 71651
徳島 41295
香川 52303
愛媛 71594
高知 41982
福岡 224954
佐賀 41781
長崎 70794
熊本 81452
大分 59658
宮崎 58127
鹿児島 85655
沖縄 72441

Add a Comment

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