特に外国からの旅行者急増でホテルが足りない場所もあるようですが、総務省統計局が発表している「都道府県・市区町村のすがた（社会・人口統計体系）」から、都道府県別の2017年のホテル営業施設数【施設】とホテル営業施設客室数【室】を表示してみます。
| 都道府県 |
ホテル数 |
ホテル客室数 |
| 北海道 |
702 |
66817 |
| 青森 |
140 |
11706 |
| 岩手 |
175 |
12264 |
| 宮城 |
268 |
23210 |
| 秋田 |
91 |
7751 |
| 山形 |
133 |
8306 |
| 福島 |
264 |
18093 |
| 茨城 |
293 |
15709 |
| 栃木 |
168 |
11506 |
| 群馬 |
227 |
12561 |
| 埼玉 |
374 |
17660 |
| 千葉 |
190 |
33706 |
| 東京 |
718 |
110641 |
| 神奈川 |
338 |
32600 |
| 新潟 |
294 |
20282 |
| 富山 |
99 |
8782 |
| 石川 |
134 |
12259 |
| 福井 |
76 |
5194 |
| 山梨 |
128 |
8420 |
| 長野 |
509 |
27041 |
| 岐阜 |
210 |
11927 |
| 静岡 |
380 |
29752 |
| 愛知 |
301 |
28769 |
| 三重 |
99 |
9482 |
|
| 都道府県 |
ホテル数 |
ホテル客室数 |
| 滋賀 |
132 |
9143 |
| 京都 |
269 |
27038 |
| 大阪 |
498 |
71193 |
| 兵庫 |
434 |
29578 |
| 奈良 |
66 |
4409 |
| 和歌山 |
103 |
5924 |
| 鳥取 |
60 |
4519 |
| 島根 |
68 |
4892 |
| 岡山 |
167 |
12533 |
| 広島 |
190 |
18574 |
| 山口 |
90 |
7203 |
| 徳島 |
45 |
3195 |
| 香川 |
132 |
7999 |
| 愛媛 |
170 |
10752 |
| 高知 |
88 |
6222 |
| 福岡 |
418 |
42470 |
| 佐賀 |
58 |
4748 |
| 長崎 |
84 |
8120 |
| 熊本 |
133 |
9595 |
| 大分 |
175 |
12966 |
| 宮崎 |
139 |
11308 |
| 鹿児島 |
176 |
14858 |
| 沖縄 |
396 |
35823 |
|
|
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$ホテル数, ホテル客室数=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
