京都の観光客数とテーマパークのゲスト数との比較

年間来場者数(2016年)

出落ちです。

【データソース】

平成28年 京都観光総合調査について
USJ来場者数3年連続最高 16年度、TDRは微減  :日本経済新聞
Tourism in Paris – Key Figures 2016

【分析コード】

#R
library(tibble)
library(dplyr)
library(ggplot2)
attendance <- tribble(
                      ~label, ~detail, ~attendance,
                      "京都", "日本人", 4861,
                      "京都", "外国人", 661,
                      "東京ディズニーリゾート\n(TDL+TDS)", "", 3000,
                      "USJ", "", 1460
                      )
gp.atte <- attendance %>%
        mutate(label = label %>% factor %>% reorder(attendance * -1, sum)) %>%
        ggplot(aes(label, attendance)) +
          geom_col(aes(fill = detail), position = position_stack(reverse = TRUE)) +
          geom_text(aes(label = detail, group = detail), position = position_stack(vjust = 0.5, reverse = TRUE)) +
          guides(fill = FALSE) +
          xlab("") + ylab("年間来場者数(単位:万人)")

コメントを残す