Automated viz of Oneida Lake benthos data from dataone

dataone_oneida.R

library(dataone)
cn <- CNode("PROD")
mn <- getMNode(cn, "urn:node:KNB")

dt <- getPackage(mn, id = "resourceMap_kgordon.4.57")
unzip(dt)
# list.files("resourceMap_kgordon_4_57/data")
dt <- read.csv("resourceMap_kgordon_4_57/data/cbfs.140.3-Oneida_Benthos_1956_to_present.csv", 
stringsAsFactors = FALSE)

# Plot data ####
library(dplyr)
library(ggplot2)

dt <- group_by(dt, Year)
dt <- summarise_each(dt, funs(mean), 5:17)
dt <- reshape2::melt(dt, "Year")

gg <- ggplot(data = dt) + 
        geom_line(aes(x = Year, y = value)) + 
        facet_wrap(~variable)
gg