plotting vignette edits

Author: Carly Lovas

R/garfo_landings.R

@@ -94,14 +94,14 @@ plot_landings_trends <- function(species = "all", data = "landings") {
   # Build plots only for relevant species
   plots <- data |>
     dplyr::rename("landings" = "land") |>
-    dplyr::rename("revenue" = "value")
+    dplyr::rename("revenue" = "value") |>
     tidyr::pivot_longer(
       cols = c(landings, revenue),
       names_to = "metric",
       values_to = "value"
     ) |>
     dplyr::group_by(year, comname, state_full, metric) |>
-    dplyr::summarise(total = sum(revenue), .groups = "drop") |>
+    dplyr::summarise(total = sum(value), .groups = "drop") |>
     dplyr::group_by(comname) |>
     tidyr::nest() |>
     dplyr::mutate(
@@ -177,13 +177,14 @@ plot_state_landings <- function(species = "all", data = "landings") {
   # Build plots only for relevant species
   plots <- data |>
     dplyr::rename("landings" = "land") |>
+    dplyr::rename("revenue" = "value") |>
     tidyr::pivot_longer(
       cols = c(landings, revenue),
       names_to = "metric",
       values_to = "value"
     ) |>
     dplyr::group_by(year, comname, state_full, metric) |>
-    dplyr::summarise(state_revenue = sum(revenue, na.rm = T), .groups = "drop") |>
+    dplyr::summarise(state_revenue = sum(value, na.rm = T), .groups = "drop") |>
     dplyr::ungroup() |>
     dplyr::group_by(year, comname, metric) |>
     dplyr::mutate(total_revenue = sum(state_revenue, na.rm = T),
@@ -267,13 +268,14 @@ plot_council_landings <- function(species = "all", data = "landings") {
   # Build plots only for relevant species
   plots <- data |>
     dplyr::rename("landings" = "land") |>
+    dplyr::rename("revenue" = "value") |>
     tidyr::pivot_longer(
       cols = c(landings, revenue),
       names_to = "metric",
       values_to = "value"
     ) |>
     dplyr::group_by(year, comname, council, metric) |>
-    dplyr::summarise(council_revenue = sum(revenue, na.rm = T), .groups = "drop") |>
+    dplyr::summarise(council_revenue = sum(value, na.rm = T), .groups = "drop") |>
     dplyr::ungroup() |>
     dplyr::group_by(year, comname, metric) |>
     dplyr::mutate(total_revenue = sum(council_revenue, na.rm = T),

images/scup/scup council biomass proportion.png

@@ -192,7 +192,16 @@ plot_nefsc_edges(species = "summer flounder", data = nefsc)
 #| out-height: 400px
 knitr::include_graphics(here::here("images/summer flounder/summer flounder edges.png"))
 ```
-
+```r
+plot_council_biomass(spieces = "summer flounder", data = nefsc)
+```
+```{r}
+#| label: trawl council prop
+#| fig-align: center
+#| out-width: 500px
+#| out-height: 500px
+knitr::include_graphics(here::here("images/summer flounder/summer flounder council biomass proportion.png"))
+```
 
 ## Marine Recreational Information Program
 ### Catch estimates