R/gg_histogram.R

In AstraZeneca/pmxplore: Customized (gg)plots for PK/PD data

#' @title histogram
#' @param df dataframe
#' @param x x variable
#' @return ggplot object
#' @rdname gg_histogram
#' @export 
gg_histogram <- function(df, x){
  # needed? (created for use with ally but did not work...)
  x <- enexpr(x)
  
  p <- rlang::quo(
    ggplot(data=df, aes(x=!!x)) + 
      geom_histogram()
  )
  
  return(eval_tidy(p))
}