summarize with totals

dk_summarize_with_totals

dk_summarize_with_totals <- function(.data, group_by_var, mean_var){

     groups_summary <- .data %>%
          dplyr::group_by({{ group_by_var }}) %>%
          dplyr::summarize(mean = mean({{ mean_var }})) %>%
          dplyr::rename("group" = {{ group_by_var }} )

     overall_summary <-.data %>%
          dplyr::summarize(mean = mean({{ mean_var }})) %>%
          dplyr::mutate(group = "Total")

     dplyr::bind_rows(groups_summary,
                      overall_summary)

}

dk_summarize_with_totals(iris, Species, Sepal.Length)