在不使用列名的情况下重命名数据框列变量

Question

我想创建一个函数，将列中的特定值重命名为由函数指定的其他值，类似这样（尽管实际上还有更多需要重命名）：

func <- function(x) x %>%
                    mutate(col_name = ifelse(col_name =="something","something else", 
                                      ifelse(col_name == "something2","something_else2")))

请注意，我要更改的不是列名，而是列中的值本身。但是，无论值在哪个列中，我都希望它能够工作（例如，该函数在整个数据框中工作）。此外，这仅在函数中命名的值存在时才有效，并且我希望它忽略列中不存在的值。这是一个可重现的小例子：（列值是任意的）

col1 <- c("a","b","c","d","e")
col2 <- c("b","f","d","c","g")

df <- data.frame(col1, col2)

col3 <- c("a","h","i","b","c")
col4 <- c("c","d","j","a","g")

df2 <- data.frame(col3, col4)

看起来像这样：

df1:
  col1 col2
1    a    b
2    b    f
3    c    d
4    d    c
5    e    g

df2:
  col3 col4
1    a    c
2    h    d
3    i    j
4    b    a
5    c    g

说我想这样重命名：

df1:

   col1 col2
1  can  chi
2  chi  pig
3  equ  she
4  she  equ
5  fox  bov

df2:

   col3 col4
1  can  equ
2  avi  she
3  tyr  asp
4  chi  can
5  equ  bov

所以我希望得到一个函数，它可以更改数据框列中多个值的名称，而不管其在数据框中的位置如何，并且它会忽略该函数在数据框中未找到的值。

Answer 1

重新编码所有列

library(dplyr)
func = function(x, originals = letters[1:10], 
                rename_tos = c("can", "chi", "equ", "she", "fox", "pig", "bov", "avi", "tyr", "asp")){
  names(rename_tos) = originals
  x %>%
    mutate_if(is.factor, as.character) %>%
    lapply(function(y){
      y = rename_tos[y]
    }) %>%
    data.frame(row.names = NULL) 
}

结果：

> func(df)
  col1 col2
1  can  chi
2  chi  pig
3  equ  she
4  she  equ
5  fox  bov

> func(df2)
  col3 col4
1  can  equ
2  avi  she
3  tyr  asp
4  chi  can
5  equ  bov

注意事项：

我使用的方法基本上是为重命名创建一个查找表（命名向量）并使用列值索引rename_tos 向量。在这里，我将原件和重命名设置为函数的默认值，但您也可以提供自己的。

用户提供的列名

如果您希望能够重命名指定的列并使其他列保持不变，您可以执行以下操作：

library(dplyr)
library(rlang)

func = function(x, ..., originals = letters[1:10], 
                rename_tos = c("can", "chi", "equ", "she", "fox", "pig", "bov", "avi", "tyr", "asp")){
  names(rename_tos) = originals
  dots = quos(...)
  x %>%
    mutate_at(vars(!!! dots), as.character) %>%
    mutate_at(vars(!!! dots), funs(rename_tos[.])) %>%
    data.frame(row.names = NULL) 
}

结果：

> func(df, col2)
  col1 col2
1    a  chi
2    b  pig
3    c  she
4    d  equ
5    e  bov

> func(df2, col3, col4)
  col3 col4
1  can  equ
2  avi  she
3  tyr  asp
4  chi  can
5  equ  bov

> func(df2, c(col3, col4))
  col3 col4
1  can  equ
2  avi  she
3  tyr  asp
4  chi  can
5  equ  bov

注意事项：

在这里，我添加了... 参数以允许用户输入他们自己的列名。我使用rlang 中的quos 引用... 参数，然后使用!!! 在vars 到mutate_at 中取消引用它们。例如，如果用户提供了func(df, col2)，则mutate_at 的第一个参数的计算结果为vars(col2)。这适用于多个参数以及可以在结果中看到的参数向量。