#Code to plot Figure S8, growth curves
plot$Rep= factor(plot$Rep, levels = unique(plot$Rep))

ggplot(plot, aes(adjusted_time, Count, color = Rep)) + geom_line() + theme_bw() + scale_color_manual(values = cbbPalette) + facet_wrap(~Media) + scale_y_log10()

#Code to plot Figure 4, Growth Rate for Salinity and Temperature
plot$Rep<- factor(plot$Rep, levels = unique(plot$Rep))

plot$Salinity<- factor(plot$Salinity, levels = unique(plot$Salinity))

plot$Temp<- factor(plot$Temp, levels = unique(plot$Temp))

#Salinity
ggplot(plot, aes(Salinity, Rate, Color=Rep)) +geom_boxplot(outlier.shape=NA) + geom_jitter(size=3) + theme_bw()

#Temp
ggplot(plot, aes(Temp, Rate, Color=Factor)) +geom_boxplot(outlier.shape=NA) + geom_jitter(size=3) + theme_bw()