R ULAO Notebook

Packages

library(tidyverse)
library(readxl)
library(forcats)

Set working directory

setwd("I:/ENVA/WORK/Nick's Folder/R/Ulao")
getwd()

[1] "I:/ENVA/WORK/Nick's Folder/R/Ulao"

Pull in data

ulaodf<-read_excel("I:/ENVA/WORK/Nick's Folder/R/Ulao/ULAO_Master_2.xlsx")
view(ulaodf)

Map

DF_ULAO <- read_excel("I:/ENVA/WORK/Nick's Folder/R/Maps/DF_statusmap11_1.xlsx")%>%
  filter(County=="Ozaukee")
  dale_map <- slice(DF_ULAO,1,3,4,5)

pal <- colorFactor(palette = c( "orange", "green","blue","dark red"), 
                   levels = c( "Ulao Creek Downstream", "Ulao Creek Upstream","Helms Creek","Gateway Tributary"))


Dmap<-leaflet(data = dale_map) %>% 
  setView(lng =-87.91813 ,lat =43.30184 ,zoom =10 )%>%
  addProviderTiles("Esri.NatGeoWorldMap") %>%
  addCircleMarkers(~long, ~lat, popup = ~as.character(Nickname),
                   radius = 3,fillOpacity=6,color = ~pal(Nickname))
Dmap%>%
  addLegend(pal=pal,values=c("Ulao Creek Downstream", "Ulao Creek Upstream","Helms Creek","Gateway Tributary"))

NA
NA

Graphs

scatter<-ggplot(data = ulaodf,aes(x=Date,y=Chloride,color=Site_Name))+
  geom_point()+labs(title = "Ulao Chloride Lab Samples(mg/l)")
scatter

scatter_event<-ggplot(data = ulaodf,aes(x=Date,y=Chloride,color=Sampling_Type))+
  geom_point()+labs(title = "Ulao Chloride Lab Samples By Sample Type(mg/l)")
scatter_event

ulao_monthly<-ulaodf%>%
filter(Sampling_Type=="monthly")
view(ulao_monthly)
 scatterCL_monthly<-ggplot(data = ulao_monthly ,aes(x=Date,y=Chloride,color=Site_Name))+
  geom_line()+labs(title = "Regular Monthly Ulao Chloride Lab Samples(mg/l)")
scatterCL_monthly 

ulao_monthly<-ulaodf%>%
filter(Sampling_Type=="monthly")
 scatterCON_monthly<-ggplot(data = ulao_monthly ,aes(x=Date,y=spcon,color=Site_Name))+
  geom_line()+labs(title = "Regular Monthly Ulao Conductivity(us/cm)")
scatterCON_monthly 

Ulao Event

ulao_event<-ulaodf%>%
filter(Sampling_Type=="event")
view(ulao_event)
 scatter_event<-ggplot(data = ulao_event ,aes(x=Date,y=Chloride,color=Site_Name))+
  geom_point()+labs(title = " Ulao Chloride Lab Event Samples(mg/l)")
scatter_event 

ulao_monthly<-ulaodf%>%
filter(Sampling_Type=="monthly")
 scatter_monthly<-ggplot(data = ulao_monthly ,aes(x=Date,y=Chloride,color=Site_Name))+
  geom_boxplot()+geom_jitter(width=0.1,alpha=0.2)+labs(title = "Regular Monthly Ulao Chloride Lab Samples(mg/l)")
scatter_monthly 

Sodium

 ulao_monthly<-ulaodf%>%
filter(Sampling_Type=="monthly")
 scatter_monthly<-ggplot(data = ulao_monthly ,aes(x=Date,y=Sodium,color=Site_Name))+
  geom_boxplot()+geom_jitter(width=0.1,alpha=0.2)+labs(title = "Regular Monthly Ulao Sodium Lab Samples(mg/l)")
scatter_monthly 

NA
NA

ulao_monthly<-ulaodf%>%
filter(Sampling_Type=="monthly")
 scatter_monthly<-ggplot(data = ulao_monthly ,aes(x=Date,y=Hardness,color=Site_Name))+
  geom_boxplot()+geom_jitter(width=0.1,alpha=0.2)+labs(title = "Regular Monthly Ulao Hardness Lab Samples(mg/l)")
scatter_monthly 

ulao_monthly<-ulaodf%>%
filter(Sampling_Type=="monthly")
 scatter_monthly<-ggplot(data = ulao_monthly ,aes(x=Date,y=Magnesium,color=Site_Name))+
  geom_boxplot()+geom_jitter(width=0.1,alpha=0.2)+labs(title = "Regular Monthly Ulao Magnesium Lab Samples(mg/l)")
scatter_monthly 

ulao_monthly<-ulaodf%>%
filter(Sampling_Type=="monthly")
 scatter_monthly<-ggplot(data = ulao_monthly ,aes(x=Date,y=Potassium,color=Site_Name))+
  geom_boxplot()+geom_jitter(width=0.1,alpha=0.2)+labs(title = "Regular Monthly Ulao Potassium Lab Samples(mg/l)")
scatter_monthly 

ulao_monthly<-ulaodf%>%
filter(Sampling_Type=="monthly")
 scatter_monthly<-ggplot(data = ulao_monthly ,aes(x=Date,y=Sulfate,color=Site_Name))+
  geom_boxplot()+geom_jitter(width=0.1,alpha=0.2)+labs(title = "Regular Monthly Ulao Sulfate Lab Samples(mg/l)")
scatter_monthly