1 Setup 2 Define a function 3 Let’s go 3.1 Way 2 3.2 Way 3 4 Reproducibility 1 Setup library(tidyverse) # data wrangling library(easystats) data(mtcars) 2 Define a function Unquoted variable names plot_descriptives <- function(data, var, group) { var_string <- deparse(substitute(var)) data %>% select({{var}}, {{group}}) %>% drop_na() %>% group_by({{group}}) %>% mutate({{group}} := as.factor({{group}})) %>% describe_distribution(iqr = FALSE, range = TRUE, quartiles = TRUE) %>% select(Variable, Mean, SD, …