karthik/01-fisheries.md

Created July 20, 2015 14:16

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/karthik/d1a8d99fe6c3eb52ed0d.js"></script>
Save karthik/d1a8d99fe6c3eb52ed0d to your computer and use it in GitHub Desktop.

Download ZIP

Reproducible example of fisheries data

Raw

01-fisheries.md

library(rfisheries)
library(dplyr)

species <- of_species_codes()
who <- c("TUX", "COD", "VET", "NPA")
by_species <- lapply(who, function(x) of_landings(species = x)) %>% rbind_all

library(ggplot2)
ggplot(by_species, aes(year, catch)) +
  geom_line(size = 1.2) +
  facet_wrap(~species, scales = "free_y")

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment