General Data Import from Water Quality Portal

Imports data from Water Quality Portal web service. This function gets the data from here: https://www.waterqualitydata.us.

Usage

readWQPdata(
  ...,
  service = "Result",
  querySummary = FALSE,
  tz = "UTC",
  ignore_attributes = FALSE,
  convertType = TRUE
)

Arguments

...

see https://www.waterqualitydata.us/webservices_documentation for a complete list of options. A list of arguments can also be supplied. For more information see the above description for this help file. If no "service" argument is supplied, it will default to "ResultWQX3". One way to figure out how to construct a WQP query is to go to the "Advanced" form in the Water Quality Portal. Use the form to discover what parameters are available. Once the query is set in the form, scroll down to the "Query URL". You will see the parameters after "https://www.waterqualitydata.us/#". For example, if you chose "Nutrient" in the Characteristic Group dropdown, you will see characteristicType=Nutrient in the Query URL. The corresponding argument for dataRetrieval is characteristicType = "Nutrient". dataRetrieval users do not need to include mimeType, and providers is optional (these arguments are picked automatically).

service

character. See Details for more information.

querySummary

logical to only return the number of records and unique sites that will be returned from this query. Choosing TRUE is deprecated, readWQPsummary is recommended instead.

tz

character to set timezone attribute of dateTime. Default is "UTC", and converts the date times to UTC, properly accounting for daylight savings times based on the data's provided tz_cd column. Possible values to provide are "America/New_York","America/Chicago", "America/Denver","America/Los_Angeles", "America/Anchorage", as well as the following which do not use daylight savings time: "America/Honolulu", "America/Jamaica","America/Managua","America/Phoenix", and "America/Metlakatla". See also OlsonNames() for more information on time zones.

ignore_attributes

logical to choose to ignore fetching site and status attributes. Default is FALSE.

convertType

logical, defaults to TRUE. If TRUE, the function will convert the data to dates, datetimes, numerics based on a standard algorithm. If false, everything is returned as a character.

Value

A data frame, the specific columns will depend on the "service" and/or "dataProfile".

There are also several useful attributes attached to the data frame:

Name	Type	Description
url	character	The url used to generate the data
siteInfo	data.frame	A data frame containing information on the requested sites
headerInfo	data.frame	A data frame returned from the WQP status service
queryTime	POSIXct	The time the data was returned

Details

This function uses ... as a query input, which can be very flexible, but also has a steeper learning curve. For a quick overview, scroll down to the Examples in this help file to see many query options.

There are currently 10 legacy options for data provided by the Water Quality Portal:

Legacy:

WQP Radio Button	service argument	Base URL
Sample Results	Result	/data/Result/search
Site Data Only	Station	/data/Station/search
Sampling Activity	Activity	/data/Activity/search
Sampling Activity Metrics	ActivityMetric	/data/ActivityMetric/search
Site Summary (not advertised on WQP)	SiteSummary	/data/summary/monitoringLocation/search
Project Data	Project	/data/Project/search
Project Monitoring Location Weighting Data	ProjectMonitoringLocationWeighting	/data/ProjectMonitoringLocationWeighting/search
Result Detection Quantitation Limit Data	ResultDetectionQuantitationLimit	/data/ResultDetectionQuantitationLimit/search
Biological Habitat Metrics	BiologicalMetric	/data/BiologicalMetric/search
Organization Data	Organization	/data/Organization/search

There are 4 WQX3 options. These are still in-development, and should be used with caution.

WQP Radio Button	service argument	Base URL	dataProfile
Monitoring Locations	StationWQX3	/wqx3/Station/search
Full Physical Chemical	ResultWQX3	/wqx3/Result/search	fullPhysChem
Narrow	ResultWQX3	/wqx3/Result/search	narrow
Basic Physical Chemical	ResultWQX3	/wqx3/Result/search	basicPhysChem
Sampling Activity	ActivityWQX3	/wqx3/Activity/search

Examples

# \donttest{

nameToUse <- "pH"
pHData <- readWQPdata(siteid = "USGS-04024315", 
                      characteristicName = nameToUse)
#> GET:https://www.waterqualitydata.us/data/Result/search?siteid=USGS-04024315&characteristicName=pH&mimeType=csv&count=no
#> GET:https://www.waterqualitydata.us/data/Station/search?siteid=USGS-04024315&characteristicName=pH&mimeType=csv&count=no
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■                 
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html
ncol(pHData)
#> [1] 65
attr(pHData, "siteInfo")
#> # A tibble: 1 × 37
#>   OrganizationIdentifier OrganizationFormalName           MonitoringLocationId…¹
#>   <chr>                  <chr>                            <chr>                 
#> 1 USGS-WI                USGS Wisconsin Water Science Ce… USGS-04024315         
#> # ℹ abbreviated name: ¹​MonitoringLocationIdentifier
#> # ℹ 34 more variables: MonitoringLocationName <chr>,
#> #   MonitoringLocationTypeName <chr>, MonitoringLocationDescriptionText <chr>,
#> #   HUCEightDigitCode <chr>, DrainageAreaMeasure.MeasureValue <dbl>,
#> #   DrainageAreaMeasure.MeasureUnitCode <chr>,
#> #   ContributingDrainageAreaMeasure.MeasureValue <dbl>,
#> #   ContributingDrainageAreaMeasure.MeasureUnitCode <chr>, …
attr(pHData, "queryTime")
#> [1] "2024-12-04 16:17:59 UTC"

# More examples:
# querying by county
DeWitt <- readWQPdata(
  statecode = "Illinois",
  countycode = "DeWitt",
  characteristicName = "Nitrogen"
)
#> GET:https://www.waterqualitydata.us/data/Result/search?statecode=US%3A17&countycode=US%3A17%3A039&characteristicName=Nitrogen&mimeType=csv&count=no
#> GET:https://www.waterqualitydata.us/data/Station/search?statecode=US%3A17&countycode=US%3A17%3A039&characteristicName=Nitrogen&mimeType=csv&count=no
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html

# Data profile: "Sampling Activity"
activity <- readWQPdata(
  siteid = "USGS-04024315",
  service = "Activity"
)
#> GET:https://www.waterqualitydata.us/data/Activity/search?siteid=USGS-04024315&mimeType=csv&count=no
#> GET:https://www.waterqualitydata.us/data/Station/search?siteid=USGS-04024315&mimeType=csv&count=no
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■                 
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html

Dane_activity <- readWQPdata(
  statecode = "Wisconsin",
  countycode = "Dane",
  startDateLo = "2023-01-01",
  startDateHi = "2023-12-31",
  service = "Activity"
)
#> GET:https://www.waterqualitydata.us/data/Activity/search?statecode=US%3A55&countycode=US%3A55%3A025&startDateLo=01-01-2023&startDateHi=12-31-2023&mimeType=csv&count=no
#> GET:https://www.waterqualitydata.us/data/Station/search?statecode=US%3A55&countycode=US%3A55%3A025&startDateLo=01-01-2023&startDateHi=12-31-2023&mimeType=csv&count=no
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html

########################################################
# Additional examples:

pHData_legacy <- readWQPdata(siteid = "USGS-04024315", 
                      characteristicName = nameToUse,
                      service = "Result",
                      dataProfile = "narrowResult")
#> GET:https://www.waterqualitydata.us/data/Result/search?siteid=USGS-04024315&characteristicName=pH&dataProfile=narrowResult&mimeType=csv&count=no
#> GET:https://www.waterqualitydata.us/data/Station/search?siteid=USGS-04024315&characteristicName=pH&mimeType=csv&count=no
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■                 
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html
 
# Data profiles: "Organization Data" 
org_data <- readWQPdata(
  statecode = "WI",
  countycode = "Dane",
  service = "Organization"
)
#> GET:https://www.waterqualitydata.us/data/Organization/search?statecode=US%3A55&countycode=US%3A55%3A025&mimeType=csv&count=no
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■                 
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
#> GET:https://www.waterqualitydata.us/data/Station/search?statecode=US%3A55&countycode=US%3A55%3A025&mimeType=csv&count=no
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html

# Data profiles: "Project Data"  
project_data <- readWQPdata(
  statecode = "WI",
  countycode = "Dane",
  service = "Project"
)
#> GET:https://www.waterqualitydata.us/data/Project/search?statecode=US%3A55&countycode=US%3A55%3A025&mimeType=csv&count=no
#> GET:https://www.waterqualitydata.us/data/Station/search?statecode=US%3A55&countycode=US%3A55%3A025&mimeType=csv&count=no
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html

# Data profiles: "Project Monitoring Location Weighting Data"
proj_mlwd <- readWQPdata(
  statecode = "WI",
  countycode = "Dane",
  service = "ProjectMonitoringLocationWeighting"
)
#> GET:https://www.waterqualitydata.us/data/ProjectMonitoringLocationWeighting/search?statecode=US%3A55&countycode=US%3A55%3A025&mimeType=csv&count=no
#> New names:
#> • `ResourceSubjectText` -> `ResourceSubjectText...13`
#> • `ResourceSubjectText` -> `ResourceSubjectText...15`
#> GET:https://www.waterqualitydata.us/data/Station/search?statecode=US%3A55&countycode=US%3A55%3A025&mimeType=csv&count=no
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html

# Data profiles: "Sample Results (physical/chemical metadata)" 
samp_data <- readWQPdata(
  siteid = "USGS-04024315",
  dataProfile = "resultPhysChem",
  service = "Result"
)
#> GET:https://www.waterqualitydata.us/data/Result/search?siteid=USGS-04024315&dataProfile=resultPhysChem&mimeType=csv&count=no
#> GET:https://www.waterqualitydata.us/data/Station/search?siteid=USGS-04024315&mimeType=csv&count=no
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■                 
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html

# Data profiles: "Sample Results (biological metadata)"
samp_bio <- readWQPdata(
  siteid = "USGS-04024315",
  dataProfile = "biological",
  service = "Result"
)
#> GET:https://www.waterqualitydata.us/data/Result/search?siteid=USGS-04024315&dataProfile=biological&mimeType=csv&count=no
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■                 
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
#> GET:https://www.waterqualitydata.us/data/Station/search?siteid=USGS-04024315&mimeType=csv&count=no
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html

# Data profiles: "Sample Results (narrow)" 
samp_narrow <- readWQPdata(
  siteid = "USGS-04024315",
  service = "Result",
  dataProfile = "narrowResult"
)
#> GET:https://www.waterqualitydata.us/data/Result/search?siteid=USGS-04024315&dataProfile=narrowResult&mimeType=csv&count=no
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■                 
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
#> GET:https://www.waterqualitydata.us/data/Station/search?siteid=USGS-04024315&mimeType=csv&count=no
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■                 
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html

# Data profiles: "Sampling Activity"  
samp_activity <- readWQPdata(
  siteid = "USGS-04024315",
  dataProfile = "activityAll",
  service = "Activity"
)
#> GET:https://www.waterqualitydata.us/data/Activity/search?siteid=USGS-04024315&dataProfile=activityAll&mimeType=csv&count=no
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
#> GET:https://www.waterqualitydata.us/data/Station/search?siteid=USGS-04024315&mimeType=csv&count=no
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html

# Data profile: "Sampling Activity Metrics"
act_metrics <- readWQPdata(
  statecode = "WI",
  countycode = "Dane",
  service = "ActivityMetric"
)
#> GET:https://www.waterqualitydata.us/data/ActivityMetric/search?statecode=US%3A55&countycode=US%3A55%3A025&mimeType=csv&count=no
#> GET:https://www.waterqualitydata.us/data/Station/search?statecode=US%3A55&countycode=US%3A55%3A025&mimeType=csv&count=no
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html

# Data profile: "Result Detection Quantitation Limit Data"  
dl_data <- readWQPdata(
  siteid = "USGS-04024315",
  service = "ResultDetectionQuantitationLimit"
)
#> GET:https://www.waterqualitydata.us/data/ResultDetectionQuantitationLimit/search?siteid=USGS-04024315&mimeType=csv&count=no
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■                 
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
#> GET:https://www.waterqualitydata.us/data/Station/search?siteid=USGS-04024315&mimeType=csv&count=no
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html

# other options:
Phosphorus <- readWQPdata(
  statecode = "WI", countycode = "Dane", 
  characteristicName = "Phosphorus",
  startDateLo = "2023-01-01",
  ignore_attributes = TRUE,
  convertType = FALSE
)
#> GET:https://www.waterqualitydata.us/data/Result/search?statecode=US%3A55&countycode=US%3A55%3A025&characteristicName=Phosphorus&startDateLo=01-01-2023&mimeType=csv&count=no
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■                 
#> Waiting 2s for throttling delay ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html

rawPHsites_legacy <- readWQPdata(siteid = c("USGS-05406450", "USGS-05427949", "WIDNR_WQX-133040"),
                        characteristicName = "pH",
                        service = "Result",
                        dataProfile = "narrowResult" )
#> GET:https://www.waterqualitydata.us/data/Result/search?siteid=USGS-05406450%3BUSGS-05427949%3BWIDNR_WQX-133040&characteristicName=pH&dataProfile=narrowResult&mimeType=csv&count=no
#> GET:https://www.waterqualitydata.us/data/Station/search?siteid=USGS-05406450%3BUSGS-05427949%3BWIDNR_WQX-133040&characteristicName=pH&mimeType=csv&count=no
#> NEWS: Data does not include USGS data newer than March 11, 2024. More details:
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html

rawPHsites <- readWQPdata(siteid = c("USGS-05406450", "USGS-05427949", "WIDNR_WQX-133040"),
                        characteristicName = "pH",
                        service = "ResultWQX3",
                        dataProfile = "narrow" )
#> GET:https://www.waterqualitydata.us/wqx3/Result/search?siteid=USGS-05406450&siteid=USGS-05427949&siteid=WIDNR_WQX-133040&characteristicName=pH&dataProfile=narrow&mimeType=csv
#> GET:https://www.waterqualitydata.us/wqx3/Station/search?siteid=USGS-05406450&siteid=USGS-05427949&siteid=WIDNR_WQX-133040&characteristicName=pH&mimeType=csv
#> WQX3 services are in-development, use with caution.

# }