R/base_summary.R

In ND-open/nd.tidytuesday: Tidy Tuesday visualisation

#' Statistical summary using mostly base functions 
#'
#' @param df a dataframe
#'
#' @return a data.frame with summary statistics
#' @export
#' @importFrom magrittr %>% 
#' @importFrom tibble as_tibble
#' @importFrom stats var sd quantile
#'
#' @examples
#' base_summary(mtcars)

base_summary <- function(df){
        
        if(sum( unlist( lapply(df, is.numeric) ) ) < ncol(df)){stop("Some variable is not numeric.")}
        
        lapply(df, function(x) c("mean" = round(mean(x), 2), 
                                "var" = round(stats::var(x), 2),
                                "sd" = round(stats::sd(x), 2),
                                "min" = min(x),
                                "1q" = stats::quantile(x, .25, names = FALSE),
                                "median" = stats::quantile(x, .5, names = FALSE),
                                "3q" = stats::quantile(x, .75, names = FALSE),
                                "max" = max(x)
        )
        ) %>% 
                cbind.data.frame() %>% 
                t() %>% tibble::as_tibble(rownames = "variable")
}