ProjectTasks: Project Plots and Tables

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# data_gl2010_map ####
#' @title Great Lakes 2010 PFAS Map Data
#'
#' @description Fish tissue data from Great Lakes 2010 survey.
#' Formatted for use with map function.
#' Analytes include PFAS only.
#' Data set is dated 2021-04-26.
#'
#' @format A data frame with 2041 observations on the following 32 variables.
#' \describe{
#'    \item{\samp{Site ID}}{a character vector}
#'    \item{\samp{EPA Sample ID}}{a character vector}
#'    \item{\samp{EPA Region}}{a character vector}
#'    \item{\code{State}}{a character vector}
#'    \item{\samp{Lake Name}}{a character vector}
#'    \item{\code{Analyte}}{a character vector}
#'    \item{\samp{CAS Number}}{a character vector}
#'    \item{\code{Amount}}{a numeric vector}
#'    \item{\samp{Pre-2018 MN HH 1 Meal/Week 40 ppb Screening Value (BW 70 kg)}}{a numeric vector}
#'    \item{\samp{Exceeds Pre-2018 MN HH 1 Meal/Week 40 ppb SV?}}{a character vector}
#'    \item{\samp{EPA HH 68 ppb Screening Value (75 kg BW; 22 g/day FCR)}}{a numeric vector}
#'    \item{\samp{Exceeds EPA HH 68 ppb SV?}}{a character vector}
#'    \item{\samp{EPA HH 50 ppb Screening Value (75 kg BW; 29.8 g/day FCR)}}{a numeric vector}
#'    \item{\samp{Exceeds EPA HH 50 ppb SV?}}{a character vector}
#'    \item{\samp{EPA HH 46 ppb Screening Value (75 kg BW; 32.4 g/day FCR)}}{a numeric vector}
#'    \item{\samp{Exceeds EPA HH 46 ppb SV?}}{a character vector}
#'    \item{\samp{EPA HH 37 ppb Screening Value (75 kg BW; 40.5 g/day FCR)}}{a numeric vector}
#'    \item{\samp{Exceeds EPA HH 37 ppb SV?}}{a character vector}
#'    \item{\samp{EPA HH 31 ppb Screening Value (75 kg BW; 48.6 g/day FCR)}}{a numeric vector}
#'    \item{\samp{Exceeds EPA HH 31 ppb SV?}}{a character vector}
#'    \item{\samp{EPA HH 8.6 ppb Screening Value (75 kg BW; 175 g/day FCR)}}{a numeric vector}
#'    \item{\samp{Exceeds EPA HH 8.6 ppb SV?}}{a character vector}
#'    \item{\samp{Unit 1}}{a character vector}
#'    \item{\samp{Unit 2}}{a character vector}
#'    \item{\code{MDL}}{a numeric vector}
#'    \item{\code{QL}}{a numeric vector}
#'    \item{\samp{Lab Qualifier Flag}}{a character vector}
#'    \item{\samp{SCC Code}}{a character vector}
#'    \item{\code{Comments}}{a character vector}
#'    \item{\samp{Sort order}}{a numeric vector}
#'    \item{\code{Latitude}}{a numeric vector}
#'    \item{\code{Longitude}}{a numeric vector}
#' }
"data_gl2010_map"
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# data_gl2010_upset ####
#' @title Great Lakes 2010 Multiple Analyte Upset Plot Data
#'
#' @description Fish tissue data from Great Lakes 2010 survey.
#' Formatted for use with update plot function.
#' Analytes include mercury, PFAS, and total PCBs.
#' Exceedance occurrence using screening values (ppb), respectively, 300, 0.52
#' , and 12.
#' Data set is dated 2021-04-26.
#'
#' @format A data frame with 157 observations on the following 4 variables.
#' \describe{
#'    \item{\code{EPA.Sample.ID}}{a character vector}
#'    \item{\code{Mercury}}{a numeric vector}
#'    \item{\code{Perfluorooctanesulfonate..PFOS.}}{a numeric vector}
#'    \item{\code{Total.PCBs}}{a numeric vector}
#' }
"data_gl2010_map"
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~