出落ちです。

【データソース】

平成28年 京都観光総合調査について
ＵＳＪ来場者数３年連続最高　16年度、ＴＤＲは微減　　：日本経済新聞
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("年間来場者数（単位：万人）")