In fvgls/CampR: Libreria de funciones en R para el programa CAMP

library(ggplot2)
library(mapdata)
library(CampR)
library(knitr)
library(kableExtra)
options(knitr.table.format = "markdown")

2016 Survey

Spanish Porcupine groundfish Survey in 2016 started on Sept. 10th and finished on Oct. 9th.

Survey design

armap.tot("P16","Porc",es=FALSE,leg = TRUE,bw=FALSE)

Hake abundance

hake<-datab(1,50,"P16","Porc")
kableExtra::kable(hake,digits=2,caption="Hake abundance Porcupine 2016 Survey") %>%
  kable_styling(bootstrap_options="condensed",full_width=T,position="center")

Biomass and abundance time series.

grafhistbox.comp(1,50,Psh,"Porc",es=F)

Total abundance map

Porc<-map_data(Porc.map)
hake<-maphist(1,50,"P16","Porc",out.dat=T,plot=F)
ggplot(hake)+
  geom_polygon(aes(long,lat,group=group),data=Porc,fill="white",color="black")+
  geom_point(aes(x=long,y=lat,size=sqrt(numero)),color="blue")+scale_size_continuous(name="No. inds.")+coord_fixed(1.3)

Length distribution

dtall.camp(1,50,"P16","Porc",es=F)

Recruits distribution

maphistal(1,50,"P16","Porc",1,20,ti=list(label="Merluccius merluccius\n < 20 cm",font=4),ceros=F)

Recruitment time series

recr.ts<-dattal.camps(1,50,Psh,"Porc",1,20,plot=T)
kable(t(recr.ts),digits=2,col.names = camptoyear(Psh),caption="Hake recruitment strength") %>%
  kable_styling(full_width=TRUE,position="center")