search

NEFSC / READ-SSB-CHAJI-Effort-Displacement---Scallop

Other
0 stars 0 forks source link

duplicative chunk in the scallop analysis #201

Open mle2718 opened 2 years ago

mle2718 commented 2 years ago

This is kind of duplicative with the IFQ one.

Percent of observations (Access Area and Day at Sea fleet).

`%` <- function(x) x

zone_out <- 
  scallop0322MainDataTable %>% 
  count(ZoneID) %>% 
  mutate(obs = n/sum(n) * 100) %>% 
  filter(n >= 10) %>% 
  zone_summary(project = "scallop0322",
               spat = scallop0322TenMNSQRSpatTable,
               zone.dat = "ZoneID",
               zone.spat = "MN10SQID",
               output = "tab_plot",
               count = FALSE,
               var = "obs",
               fun = "%",
               na.rm = TRUE)

zone_out$plot
zone_out$table %>% 
  pretty_lab(ignore = "ZoneID") %>% 
  pretty_tab_sb(width = "40%")