【R】都道府県別　産業廃棄物排出量

2020年2月19日

総務省統計局が発表している都道府県別の産業廃棄物排出量（1000トン）を第六十九回日本統計年鑑　令和2年から取得し、地図上にプロットしてみます。また、総人口100人当たりの産業廃棄物排出量を計算し、併せてプロットします。

  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$都道府県, 産業廃棄物排出量1000トン=dat$産業廃棄物排出量)
  
  dat$単位産業廃棄物排出量<-dat$産業廃棄物排出量/dat$総人口*100
    
  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="産業廃棄物排出量　1000トン　(総務省統計局より) ")
  legend("bottomright", fill=rainbow(length(levels(datc_k)), start = col_start, end=col_end), legend=names(table(datc_k)))
  JapanPrefMap(datc_mcol, main="100人当たりの産業廃棄物排出量　1000トン ")
  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

都道府県	産業廃棄物排出量1000トン
北海道	36722
青森	5246
岩手	6329
宮城	11833
秋田	3388
山形	3620
福島	9296
茨城	11781
栃木	7810
群馬	5544
埼玉	9780
千葉	20716
東京	27557
神奈川	16988
新潟	8425
富山	4574
石川	3246
福井	3330
山梨	1819
長野	4735
岐阜	5011
静岡	10292
愛知	21138
三重	9061
滋賀	3602
京都	4322
大阪	13720
兵庫	18259
奈良	1446
和歌山	3139
鳥取	1645
島根	2309
岡山	6502
広島	8732
山口	7589
徳島	2761
香川	2644
愛媛	7848
高知	1323
福岡	11960
佐賀	3045
長崎	4466
熊本	7245
大分	3651
宮崎	7992
鹿児島	11156
沖縄	3436