batch_renaming_variables

# batch edit column names based on a particular phrase

# store data in global environment, modify
mpg <- ggplot2::mpg
colnames(mpg) <- paste("depression", colnames(mpg), sep = "_")

# as a function
rename_by_phrase <- function(.data, pattern, replacement){
  
  # modify variable names based on input
  colnames(.data) <- stringr::str_replace_all(string = colnames(.data),
                                              pattern = pattern,
                                              replacement = replacement)
  
  # return output
  return(.data)
  
}

# test function
rename_by_phrase(mpg, pattern = "depression", replacement = "dep")