edit code

lindseylabrie · Nov 13, 2023 · de8a323 · de8a323
1 parent 662441a
commit de8a323
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 3 deletions.
diff --git a/plots/AllIndividuals.png b/plots/AllIndividuals.png
diff --git a/plots/MeanPosteriors.jpg b/plots/MeanPosteriors.jpg
diff --git a/plots/MeanPosteriorsDistanceBubbles.jpg b/plots/MeanPosteriorsDistanceBubbles.jpg
diff --git a/silver_carp_telemetry.R b/silver_carp_telemetry.R
@@ -9,6 +9,7 @@ library(readxl)
 library(ggplot2)
 library(ggbreak)
 library(brms)
+library(tidybayes)
 
 # load data
 
@@ -43,9 +44,9 @@ All_Individuals <- rkm_tracker_date %>%
   ggplot(aes(color=as.character(color), group=transmitter_id,x=date, y=distance))+
   geom_line(alpha=0.8)+
   geom_point(shape=20, size=0.5, alpha=0.8) +
-  labs(y = "Minimum Distance Traveled, rkm",
+  labs(y = "Distance Traveled, rkm",
        x = "") +
-  theme_classic()+
+  theme_linedraw()+
   theme(legend.position="none")+
   ylim(-475,200)+
   ggtitle("Telemetered Silver Carp Movement Over Time")
@@ -516,7 +517,8 @@ mean_posterior_with_distances <- binom5_medians %>%
   geom_line() +
   geom_ribbon(aes(ymin = .lower, ymax = .upper), alpha = 0.2) + 
   geom_point(data = max_movement, aes(y = move_no_move, size = total_movement))+
-  labs(y="Predicted Probability of Movement")+
+  labs(y="Probability of Movement",
+       x="Flow in CFS")+
   scale_x_log10()