Dplyr: Использование выражения для вычисления нового имени при переименовании

Это работает, чтобы переименовать столбец demand в demand2 . Обратите внимание, что мы используем rename plyr, а не rename dplyr:

library(dplyr)
num <- 2
BOD %>% plyr::rename(list(demand = paste0("demand", num)))  # ok

Поскольку rename в dplyr использует new = old по сравнению с plyr, в котором используется old = new, нет простого способа сделать это с rename в dplyr. Это довольно уродливо, но в любом случае выдает сообщение об ошибке:

library(dplyr)
num <- 2
BOD %>% do({ L <- setNames(list("demand"), paste0("demand", num)); rename_(., L) }) # bad

Также следующее дает сообщение об ошибке, поскольку нельзя указать выражение, в котором идет имя:

library(dplyr)
num <- 2
BOD %>% rename(list(paste0("demand", num) = demand))  # bad

На самом деле ни rename plyr, ни rename dplyr не являются полностью общими, поскольку plyr может легко обрабатывать выражения только в новом имени, а dplyr — в старом. renameCol в пакете doBy может обрабатывать выражения как со старым, так и с новым именем, поскольку он использует синтаксис renameCol(indata, src, tgt) , где src и tgt — векторы символов имена, и любое из них или оба могут быть сложными выражениями.

# rename column named paste0(base, num) to toupper(base)
# (In this case it renames column x2 to X)
library(dplyr)
base <- "x"
num <- 2
anscombe %>% doBy::renameCol(paste0(base, num), toupper(base))