R/bar_plot.R

In samuelfranssens/rlibrary: library with functions that I often use

#' ggplot2 bar plot
#'
#' @param plot plot where mean is dependent variable
#' @keywords make a ggplot2 bar plot
#' @export
#' @examples
#' plot %>% bar_plot

bar_plot <- function(plot){
  plot +
    geom_bar(stat = "identity", position = "dodge") +
    geom_text(aes(label = round(mean,2)), fontface = "bold", position = position_dodge(0.9), vjust = 3, color="black") +
    geom_errorbar(aes(ymin = lwr, ymax = upr), width = 0.3, size = 1, position = position_dodge(0.9), color = "black", alpha = .95)
}