Pinned Loading

1. Plotting fisheries data Plotting fisheries data

   1

   library(ggplot2)

   2

   library(reshape)

   3

   4

   p <- ggplot(subset(reclas))

   5

   p1 <- p + geom_bar(aes(factor(length), obs), stat = "identity") 

2. Kobe plot using ggplot Kobe plot using ggplot

   1

   kobePlot <- function(dta, v, saveF = TRUE,...)

   2

     {

   3

       F20 <- v[1]

   4

       F40 <- v[2]

   5

       F40.F20 <- F40/F20