【R】都道府県別 住民税・固定資産税

総務省統計局が発表している「都道府県・市区町村のすがた(社会・人口統計体系)」から、都道府県別の住民税(都道府県,市町村財政合計),固定資産税(都道府県,市町村財政合計)を表示します。単位はともに10億円で、2017年のデータです。

都道府県 住民税_十憶円 固定資産税_十憶円
北海道 507.1 290.5
青森 101.9 74.2
岩手 109.1 70.0
宮城 253.0 139.3
秋田 76.5 53.2
山形 95.7 59.9
福島 186.4 117.4
茨城 323.3 197.4
栃木 225.5 142.2
群馬 216.8 137.5
埼玉 880.9 455.9
千葉 785.5 407.8
東京 3101.9 1484.1
神奈川 1340.2 669.0
新潟 213.0 153.7
富山 115.3 81.3
石川 128.2 77.6
福井 84.1 61.5
山梨 88.1 56.5
長野 210.5 134.9
岐阜 212.2 135.9
静岡 435.8 286.9
愛知 1068.2 622.4
三重 200.1 135.0
都道府県 住民税_十憶円 固定資産税_十憶円
滋賀 160.2 97.5
京都 292.5 173.7
大阪 1118.3 650.9
兵庫 649.8 388.2
奈良 139.9 69.3
和歌山 85.8 56.4
鳥取 48.2 31.6
島根 60.4 41.1
岡山 195.3 127.4
広島 324.6 190.1
山口 138.9 88.8
徳島 72.1 47.3
香川 105.6 59.9
愛媛 127.4 89.7
高知 61.6 38.8
福岡 535.6 317.2
佐賀 71.2 46.8
長崎 113.6 66.4
熊本 147.4 94.7
大分 99.4 71.8
宮崎 85.9 61.8
鹿児島 129.3 91.6
沖縄 110.7 85.0
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


dat$住民税_十憶円 = round(dat$住民税_千円 / 1000000, 1)
dat$固定資産税_十憶円 = round(dat$固定資産税_千円 / 1000000, 1)

table_df<-data.frame(都道府県=dat$都道府県, 住民税_十憶円=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)]
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)]

library(NipponMap)
windowsFonts(JP4=windowsFont("Biz Gothic"))
windows(width=1600, height=800)

png("0plot1.png", width = 1600, height = 800)
par(family="JP4")
layout(matrix(1:2, 1, 2))
JapanPrefMap(datc_kcol, main="住民税_十憶円")
legend("bottomright", fill=rainbow(length(levels(datc_k)), start = col_start, end=col_end), legend=names(table(datc_k)))
JapanPrefMap(datc_mcol, main="固定資産税_十憶円")
legend("bottomright", fill=rainbow(length(levels(datc_m)), start = col_start, end=col_end), legend=names(table(datc_m)))
dev.off()

library(clipr)
t1=kable(table_df[c(1:24),], align = "c", row.names=FALSE) %>%
  kable_styling(full_width = F) %>%
  column_spec(1, bold = T) %>%
  collapse_rows(columns = 1, valign = "middle") 
t2=kable(table_df[c(25:47),], align = "c", row.names=FALSE) %>%
  kable_styling(full_width = F) %>%
  column_spec(1, bold = T) %>%
  collapse_rows(columns = 1, valign = "middle") 
paste(c('<table><tr valign="top"><td>', t1, '</td><td>', t2, '</td><tr></table>'), sep = '') %>% write_clip

Add a Comment

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