【R】都道府県別 事業所数
2020年4月17日
総務省統計局が発表している「都道府県・市区町村のすがた(社会・人口統計体系)」から、都道府県別の事業所数(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 |