Sharks!

suppressPackageStartupMessages(library(httr))
suppressPackageStartupMessages(library(readxl))
suppressPackageStartupMessages(library(dplyr))
suppressPackageStartupMessages(library(stringr))
suppressPackageStartupMessages(library(streamgraph))

try(GET("http://www.sharkattackfile.net/spreadsheets/GSAF5.xls",
        write_disk("sharks.xls"), progress()), silent=TRUE)

invisible(capture.output(sharks <- read_excel("sharks.xls")))
sharks <- sharks[!duplicated(names(sharks))]

sharks %>%
  select(year=Year, country=Country, sex=`Sex `, age=Age, fatal=`Fatal (Y/N)`, species=`Species `) %>%
  mutate(year=as.numeric(str_replace(year, "\\..*", "'"))) %>%
  filter(year>=1900) %>%
  mutate(fatal=str_trim(fatal)) -> sharks

sharks%>%
  count(year, fatal) %>%
  streamgraph(key="fatal", value="n", date="year") %>%
  sg_legend(TRUE, label="Fatal?") -> sg

Shark Incidents Since 1900

(Inspired by the ever-salient Rick Wicklin - http://blogs.sas.com/content/iml/2011/01/06/when-sharks-attack.html)