Как поставить префикс имен столбцов data.frame, которые являются!% В списке%, с помощью dplyr::rename?

Question

У меня есть список имен столбцов, которые я не хочу менять colsNotRename, Все остальные столбцы я хочу префикс. Способ сделать это в BaseR будет, например:

xx <- data.frame(A = 1:3, B = 3:5, Unknown = c("A","B","C"))
colsNotRename <- c("A","B")
cols <- !colnames(xx) %in% colsNotRename
colnames(xx)[cols] <- paste0("unknown.", colnames(xx)[cols])

или же:

xx <- setNames(xx, c(colnames(xx)[!cols] , paste0("unknown.", colnames(xx)[cols])))

Я ищу решение этой проблемы с dplyr::rename_

Answer 1

Другое решение с rename_if

library(dplyr)
xx %>% dplyr::rename_if(!names(.) %in% colsNotRename, ~paste0("unknown.", .))

Answer 2

Использование rename_at с setdiff(colnames(xx),colsNotRename) или же -colsNotRename

library(dplyr)
xx %>% rename_at(vars(-colsNotRename), ~paste0('unknown.',.))