R：如何一次重新编码多个变量

Question

我试图不纠缠于循环和复杂的代码中，这些代码比简单地重复代码行需要更长的时间才能正确完成。

我想对 R 中的多个变量进行以下重新编码。 我连接了变量，但它们并没有改变原始数据文件的内容。

recode(d$var1,"1=50; 2=70; 3=100; 4=140; 5=190")

重复d$var2到d$var20 ....

如果更好地利用编码时间复制代码 20 次，请告诉我！

非常感谢。

Answer 1

让

d = data.frame(var1 = c(1, 2, 3, 4, 5), 
               var2 = c(1, 2, 3, 4, 5), 
               var3 = c(1, 2, 3, 4, 5))

然后通过一个简单的apply我们得到

A = apply(d, 
          2, 
         function(x) dplyr::recode(x, "1" = "50", "2" = "70", 
                                       "3" = "100" , "4" = "140", 
                                       "5" = "190")) %>% 
    as.data.frame(stringsAsFactors = FALSE)

output

> A
  var1 var2 var3
1   50   50   50
2   70   70   70
3  100  100  100
4  140  140  140
5  190  190  190

Answer 2

如果所有变量都在同一个 dataframe 中，则可以使用var1:var999编辑var1:var3以重新编码所有变量。

使用dplyr ：

A <- d %>%
  mutate_at(vars(var1:var3), .funs = list(
    ~case_when(
      . == 1 ~ 50,
      . == 2 ~ 70,
      . == 3 ~ 100,
      . == 4 ~ 140,
      . == 5 ~ 190
    )
  ))

如果您在多个数据帧或列表中有var1:var3 ，您可以创建一个 function，例如：

recode_func <- function(x) {

df <- df %>%
  mutate_at(vars(x), .funs = list(
    ~case_when(
      . == 1 ~ 50,
      . == 2 ~ 70,
      . == 3 ~ 100,
      . == 4 ~ 140,
      . == 5 ~ 190
    )
  ))
}

然后调用 function 到 dataframe 或列表。

给我们：

  var1 var2 var3
1   50   50   50
2   70   70   70
3  100  100  100
4  140  140  140
5  190  190  190