R/plot.R

In NaraaAltai/oneway: One-way Analysis of Variance

#' Plot one-way ANOVA
#'
#' plot.oneway creates group comparisons for a one-way ANOVA.
#'
#' @param x an object of class 'oneway'.
#' @param ... additional arguments passed to geom_boxplot function.
#'
#' @return ggplot2 graph
#' @import ggplot2
#'
#' @export
#' @examples
#' mileage <- oneway(mpg~cyl, mtcars)
#' plot(mileage)
plot.oneway <- function(x, ...){
  if(!inherits(x, "oneway"))
    stop("Must be class 'oneway'")

  g <- as.character(x$anova$terms[[3]]) ## "cyl"
  y <- as.character(x$anova$terms[[2]]) ## "mpg"

  ggplot(x$anova$model, aes(x = factor(.data[[g]]), y = .data[[y]], fill = factor(.data[[g]]))) + ## x is cyl, y = mpg
    geom_boxplot(...) +
    labs(x=g) + theme(legend.position = "none")
}