如何使用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_at與setdiff(colnames(xx),colsNotRename)或-colsNotRename

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

Answer 2

rename_if的另一個解決方案

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