The Water Quality Portal provides access to water quality data from multiple agencies. However, the most recent data may not be available.

Locations

Lakes

library(leaflet)
mypalette <- colorNumeric(palette = "viridis", domain = WQP_available_lakes$activityCount, na.color = "transparent")
leaflet(WQP_available_lakes) %>%
  addProviderTiles("Stamen.Terrain") %>%
  addCircleMarkers(lng = ~lon, lat = ~lat,
             color = ~colorQuantile("YlOrRd", activityCount)(activityCount),
             popup = ~paste0(
                          MonitoringLocationName,
                                                    "<br/>Organization monitoring: ",
                          OrganizationFormalName,
                          "<br/>Number of days sampled: ",
                          activityCount,
                          "<br/>Number of samples or records: ",
                          resultCount
                          ))

IOWATER volunteer data does appear in the portal, but some records are duplicated across multiple organizations, and data from 2012-2017 was never uploaded from DNR databases.

library(leaflet)
mypalette <- colorNumeric(palette = "viridis", domain = WQP_volunteer$activityCount, na.color = "transparent")
leaflet(WQP_volunteer) %>%
  addProviderTiles("Stamen.Terrain") %>%
  addCircleMarkers(lng = ~lon, lat = ~lat,
             color = ~colorQuantile("YlOrRd", activityCount)(activityCount),
             popup = ~paste0(
                          MonitoringLocationName,
                                                    "<br/>Organization monitoring: ",
                          OrganizationFormalName,
                          "<br/>Number of days sampled: ",
                          activityCount,
                          "<br/>Number of samples or records: ",
                          resultCount
                          ))

Non-volunteer river and stream data includes sampling by Iowa DNR, USDA-ARS, and USGS.

library(leaflet)
mypalette <- colorNumeric(palette = "viridis", domain = WQP_lab$activityCount, na.color = "transparent")
leaflet(WQP_lab) %>%
  addProviderTiles("Stamen.Terrain") %>%
  addCircleMarkers(lng = ~lon, lat = ~lat,
             color = ~colorQuantile("YlOrRd", activityCount)(activityCount),
             popup = ~paste0(
                          MonitoringLocationName,
                                                    "<br/>Organization monitoring: ",
                          OrganizationFormalName,
                          "<br/>Number of days sampled: ",
                          activityCount,
                          "<br/>Number of samples or records: ",
                          resultCount
                          ))