R/plot_parameters.R

In maxikellerbauer/stAirPol: Spatio-temporal Modelling of Air Pollution Data

#' plot.stAirPol.parameters
#'
#' Plot boxplot for each parameter.
#'
#' @param parameter an object as returned by \link{fit_subintervalls} with the
#' option \code{return = 'parameters'}
#'
#' @return a ggplot2 object
#' @export

plot.stAirPol.parameters <- function(parameter) {
  g2 <- ggplot(data = parameter, aes(x = name, group = name, y = Mean)) +
    geom_boxplot() +
    geom_hline(yintercept = 0, col = 'red', lty = 2) +
    facet_wrap(name ~ ., scales = 'free') +
    theme_classic() +
    theme(legend.position = 'none') +
    xlab(NULL) +
    ylab('est. parameter')
  g2
}