# Michael A. Alcorn

library(ggplot2)
library(plyr)

data <- read.csv("species.csv")
data$Date <- as.Date(data$Date, "%Y-%m-%d")

ggplot(data, aes(Date, Total)) + geom_line() + scale_x_date(date_breaks = "1 month")

state.counts <- count(data$State)
ggplot(state.counts, aes(x = reorder(x, -freq), freq)) + geom_bar(stat = "identity") + labs(x = "State", y = "Count")