dplyr standard evaluation recipes

se.R

library(dplyr)

diamonds = ggplot2::diamonds

filterBy = 'color'
diamonds %>% filter(!!rlang::sym(filterBy) == 'E')

diamonds %>% group_by(!!rlang::sym(filterBy))

diamonds %>% mutate(!!rlang::sym('new_col'):='yes')


# take in name

# quote is the same thing as substitute
group_by2 = function(df,group_var){
    group_var = enquo(group_var)
    df %>% group_by(!! group_var)
}
diamonds %>% group_by2(color)

# new syntax
group_by3 = function(df,group_var){
  df %>% group_by({{group_var}})
}