scrapes wikipedia tourism table, makes chart

tourism-south-korea.R

library(tidyverse)
library(rvest)
library(magrittr)

kor_tour <- 
  read_html("https://en.wikipedia.org/wiki/Tourism_in_South_Korea") %>% 
  html_nodes('table') %>% 
  extract2(4) %>% 
  html_table()

kor_tour <- 
  kor_tour %>% 
  rename(
    year = Year, 
    num_tourists = `Number of international visitorarriving in S. Korea`, 
    pct_change = `% change fromprevious year`)

kor_tour %>% 
  mutate(num_tourists = str_replace_all(num_tourists,",","")) %>% 
  mutate_all(as.numeric) %>% 
  ggplot(aes(x = year, y = num_tourists)) + 
  geom_point() + 
  geom_line() + 
  scale_y_continuous(label = scales::comma) + 
  ylab("Number of International Visitors to South Korea") + 
  xlab("Year") + 
  ggtitle(
    label = "Tourism to South Korea Has Tripled Since 2003",
    subtitle = "Source: Wikipedia (https://bit.ly/2EhEemh)"
  )