More sturgeon data

InteragencyEcologicalProgram · May 8, 2023 · 1955f6c · 1955f6c
1 parent 47919d3
commit 1955f6c
Show file tree

Hide file tree

Showing 40 changed files with 738 additions and 727 deletions.
diff --git a/1_plot_scripts/winter/BayStudyFishPlots.R b/1_plot_scripts/winter/BayStudyFishPlots.R
@@ -14,8 +14,8 @@ library(lubridate)
 # Longfin smelt
 load("data/BayStudyFish.RData")
 
-# White sturgeon - Jason's calculated YCI dataset
-whistu.orig <- read_csv(file.path(data_root,"yci_bs.csv"))
+# White sturgeon - Dyllan's calculated YCI dataset
+whistu.orig <- read_csv(file.path(data_root,"1980_2021_BS_WST_YCI.csv"))
 
 
 # 2. Clean Data and Calculate CPUE ----------------------------------------
@@ -48,7 +48,7 @@ whistu.orig <- read_csv(file.path(data_root,"yci_bs.csv"))
 # White sturgeon
   # Clean and modify data and average YCI for each year
   whistu.clean <- whistu.orig %>% 
-    filter(Year != 2018) %>% 
+    mutate(WYCI = as.numeric(year_class_index)) %>%
     select(Year, WYCI) %>% 
     rename(
       Year.Index = Year,
@@ -81,6 +81,7 @@ whistuText <- tibble(
 )
 
 
+
 # 4. Create Plots ---------------------------------------------------------  
 
 # Create function for the plots

diff --git a/2_bookdown/figures/svg/BayStudy_fish_winter$lonsme_plot_allYears.svg b/2_bookdown/figures/svg/BayStudy_fish_winter$lonsme_plot_allYears.svg
diff --git a/2_bookdown/figures/svg/BayStudy_fish_winter$lonsme_plot_recent.svg b/2_bookdown/figures/svg/BayStudy_fish_winter$lonsme_plot_recent.svg