added example figure and put river site IDs in a seperate csv

USGS_NWIS.R

@@ -1,14 +1,13 @@
-library(dataRetrieval, quietly = TRUE)
+library(dataRetrieval)
-library(tidyverse, quietly = TRUE)
+library(tidyverse)
-library(RColorBrewer, quietly = TRUE)
+library(RColorBrewer)
-library(scales, quietly = TRUE)
+library(scales)
 
 setwd("/home/ben/Documents/dataProjects/USGS_NWIS")
 
-rivers <- data.frame(names = c("Elwha", "Calawah", "Hoh", "Dungeness", "Duckabush", "Wenatchee", "Snake", "Wisconsin", "Cedar", "Colorado"), 
+rivers <- read_csv(file = "river_IDs.csv", col_types = c("c", "c"))
-                     siteNumber = c("12045500", "12043000", "12041200", "12048000", "12054000", "12462500", "13013650", "05407000", "12119000", "09380000"))
 
-#rivers <- rivers %>% filter(names %in% c("Elwha"))
+rivers <- rivers %>% filter(names %in% c("Elwha"))
 #rivers <- rivers %>% filter(names %in% c("Duckabush"))
 #rivers <- rivers %>% filter(names %in% c("Hoh"))
 

river_IDs.csv

@@ -0,0 +1,11 @@
+names,siteNumber
+Elwha,12045500
+Calawah,12043000
+Hoh,12041200
+Dungeness,12048000
+Duckabush,12054000
+Wenatchee,12462500
+Snake,13013650
+Wisconsin,05407000
+Cedar,12119000
+Colorado,09380000