R/BoxplotStrategybyPerformance_m2.R

In LOGAN: Log File Analysis in International Large-Scale Assessments

#' Plot: Boxplot PV1Math by Strategy var
#'
#' @param data data
#' @param strategy.var strategy.var
#' @param performance.test performance.test
#' @param ylab.text ylab.text
#' @param xlab.text xlab.text
BoxplotStrategybyPerformance <- function(data, strategy.var, performance.test,
                                         ylab.text, xlab.text) {
  ggplot2::ggplot(data, ggplot2::aes(
    x = as.factor(strategy.var),
    y = performance.test
  )) +
    ggplot2::geom_boxplot() +
    ggplot2::theme_bw() +
    ggplot2::scale_x_discrete(name = xlab.text)
}