R/gghist.R

In itsaquestion/TPlot: What the Package Does (One Line, Title Case)

#' gghist
#'
#' @param x a vector
#' @param bins bins
#' @param density add density if TRUE
#' @param color
#'
#' @return
#' @export
#'
#' @examples
gghist = function(x,bins = 30, density=F, color = "grey95", ...){
  #df = unlist(x)
  checkmate::assertNumeric(x)

  df = data.frame(x)

  if(density){
    ggplot(df, aes(x=x),...) +
      geom_histogram(aes(y=..density..),color="black", fill=color,bins=bins)+
      geom_density()
  }else{
    ggplot(df, aes(x=x),...) +
      geom_histogram(color="black", fill=color,bins=bins)
  }
  
}