# NOT RUN {
data(apacpwq)
dat_wq <- apacpwq
dat_wq <- qaqc(dat_wq, qaqc_keep = c(0, 3, 5))
## Due to the volume of instantaneous data, these plots are a bit slow
x <-
threshold_criteria_plot(dat_wq, param = 'do_mgl'
, rng = 2012
, thresholds = c(2, 5)
, threshold_labs = c('Poor', 'Fair', 'Good')
, monthly_smooth = TRUE
, threshold_cols = c('#FEC596', '#FFFFCC', '#ABD9E9'))
# }
# NOT RUN {
y <-
threshold_criteria_plot(dat_wq, param = 'do_mgl'
, thresholds = c(2, 5)
, threshold_labs = c('Poor', 'Fair', 'Good')
, threshold_cols = c('#FEC596', '#FFFFCC', '#ABD9E9'))
z <-
threshold_criteria_plot(dat_wq, param = 'do_mgl'
, rng = 2012
, thresholds = c(2, 5)
, threshold_labs = c('Poor', 'Fair', 'Good')
, threshold_cols = c('#FEC596', '#FFFFCC', '#ABD9E9')
, monthly_smooth = TRUE)
## A few examples with only two thresholds
xx <-
threshold_criteria_plot(dat_wq, param = 'do_mgl'
, rng = 2012
, thresholds = c(2, 2)
# A dummy blank ('') value must be added as a threshold label
, threshold_labs = c('Poor', '', 'Good')
, threshold_cols = c('#FEC596', '#FFFFCC', '#ABD9E9')
, monthly_smooth = TRUE)
xy <-
threshold_criteria_plot(dat_wq, param = 'do_mgl'
, rng = 2012
, thresholds = c(5, 5)
# A dummy blank ('') value must be added as a threshold label
, threshold_labs = c('Poor', '', 'Good')
, threshold_cols = c('#FEC596', '#FEC596', '#ABD9E9')
, monthly_smooth = TRUE)
xz <-
threshold_criteria_plot(dat_wq, param = 'do_mgl'
, rng = 2012
, thresholds = c(2, 5)
, threshold_labs = c('Poor', 'Good', 'Poor')
, threshold_cols = c('#FEC596', '#ABD9E9', '#FEC596')
, monthly_smooth = TRUE)
data(apacpnut)
dat_nut <- apacpnut
dat_nut <- qaqc(dat_nut, qaqc_keep = c(0, 3, 5))
dat_nut <- rem_reps(dat_nut)
x <-
threshold_criteria_plot(dat_nut, param = 'chla_n'
, thresholds = c(2, 5)
, threshold_labs = c('Good', 'Fair', 'Poor'))
y <-
threshold_criteria_plot(dat_nut, param = 'chla_n'
, rng = 2012
, thresholds = c(2, 5)
, threshold_labs = c('Good', 'Fair', 'Poor'))
## Nutrient plots are not capable of accidentally displaying any kind of smooth
z <-
threshold_criteria_plot(dat_nut, param = 'chla_n'
, rng = 2012
, thresholds = c(2, 5)
, threshold_labs = c('Good', 'Fair', 'Poor')
, monthly_smooth = TRUE)
# }
Run the code above in your browser using DataLab