daily pastebin goal
55%
SHARE
TWEET

Untitled

a guest Apr 21st, 2018 52 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. # Michael A. Alcorn
  2.  
  3. library(ggplot2)
  4. library(plyr)
  5.  
  6. data <- read.csv("species.csv")
  7. data$Date <- as.Date(data$Date, "%Y-%m-%d")
  8.  
  9. ggplot(data, aes(Date, Total)) + geom_line() + scale_x_date(date_breaks = "1 month")
  10.  
  11. state.counts <- count(data$State)
  12. ggplot(state.counts, aes(x = reorder(x, -freq), freq)) + geom_bar(stat = "identity") + labs(x = "State", y = "Count")
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top