#' Scale coloumns by group Function
#'
#' This function allows you to scale/standardize columns on grouped dataframes.
#' @param .data: A dataframe/tibble. Numeric columns must be selected
#' @keywords scale(), group_by()
#' @export
#' @import dplyr
#' @examples
#' scale_by_group()
library(dplyr)
scale_by_group <- function(.data, ...){
if(dplyr::is.grouped_df(.data)){
return(dplyr::do(.data, scale_by_group(.)))
}
return(scale(.data))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.