EvaMaeRey

---
title: "ggplot tutorial"
subtitle: "with kunoichi + ninjutsu theme"
author: "<br><br> Emi Tanaka"
date: "<br>2018/09/16"
output:
  xaringan::moon_reader:
    lib_dir: libs
    css: ["kunoichi", "ninjutsu"]
    nature:

EvaMaeRey

---
title: "ggplot tutorial"
subtitle: "with kunoichi + ninjutsu theme"
author: "<br><br> Emi Tanaka"
date: "<br>2018/09/16"
output:
  xaringan::moon_reader:
    lib_dir: libs
    css: ["kunoichi", "ninjutsu"]
    nature:

EvaMaeRey

needs(rvest, tidyverse, zoo)

df <- c('minutes', 'words') %>%
  map(function(var) {
    doc <- var %>%
      sprintf(fmt = 'http://www.presidency.ucsb.edu/sou_%s.php') %>%
      read_html()
    doc %>%
      html_node('table tr:nth-of-type(2) table') %>%
      html_table(fill = T) %>%