R/geom_bar_RHW.R

In robinweide/RHWlib: Simple functions to make life... simpler.

#' geom_bar_RHW
#'
#' @param addition Add this fraction to the height of a plot
#' @export
geom_bar_RHW = function(addition = 1.1){
  list(geom_bar(stat = 'identity'),
       scale_y_continuous(expand = c(0,0)),
       geom_blank(aes(y=addition*value), stat="identity"))
}