grayskripko

x <- data.frame(a=1, b=2)

x %>% rename_at(vars(names(.)), ~letters[3:4])

x %>% rename_all(~letters[3:4])

x %>% rename_all(funs(str_c('prefix_', .)))

x %>% rename_at(vars(-starts_with("a")), ~str_c(., "_b"))  # approx.