替换R中多个变量的值

问题描述 投票:1回答:1

我有一个带有82个变量的数据框。许多变量包含字母字母,我想将其更改为一组数字。我可以使用下面的代码按列,按列进行此操作:

 library(tibble)
 mydf <- tribble(~Var1, ~Var2.a, ~Var3.a, ~Var4.a,
            "A", "b", "b", "d",
            "B", "w", NA, "w",
            "C", "g", "k", "b",
            "D", "k", NA, "j")

 newdf <- mydf %>%
   mutate(Var2.a = ifelse(Var2.a %in% c("m", "p", "w", "h", "n"), 1, Var2.a),           
          Var2.a = ifelse(Var2.a %in% c("k", "b", "g", "j", "f", "d"), 2, Var2.a),
          Var3.a = ifelse(Var3.a %in% c("m", "p", "w", "h", "n"), 1, Var3.a),           
          Var3.a = ifelse(Var3.a %in% c("k", "b", "g", "j", "f", "d"), 2, Var3.a),
          Var4.a = ifelse(Var4.a %in% c("m", "p", "w", "h", "n"), 1, Var4.a),           
          Var4.a = ifelse(Var4.a %in% c("k", "b", "g", "j", "f", "d"), 2, Var4.a))

但是对于我需要更改的70多个列,这将花费很多时间!

[所有感兴趣的变量在变量名称中都有匹配的字母组合(示例数据中的“ .a”),因此我应该能够在使用ifelse的这些列上使用contains()语句。但是我不知道该怎么做!

我看过this answer,我认为这很接近我,但我无法弄清楚如何将if语句嵌入其中:

 newdf <- mydf %>%
   mutate_at(vars[2:4] = ifelse(vars %in% c("m", "p", "w", "h", "n"), 1, vars)

但是我得到了错误Error in vars[2:4] : object of type 'closure' is not subsettable。我认为这里的括号是错误的,可能还使用了vars

r if-statement dplyr
1个回答
0
投票

尝试以下示例:

# custom function, I prefer case_when (we could use nested if_else if needed.)
foo <- function(x){
  case_when(
    x %in%  c("m", "p", "w", "h", "n") ~ 1L,
    x %in%  c("k", "b", "g", "j", "f", "d") ~ 2L,
    TRUE ~ NA_integer_)
}

mydf %>% 
  mutate_at(vars(Var2.a:Var4.a), foo)

# # A tibble: 4 x 4
#   Var1  Var2.a Var3.a Var4.a
#   <chr>  <int>  <int>  <int>
# 1 A          2      2      2
# 2 B          1     NA      1
# 3 C          2      2      2
# 4 D          2     NA      2
© www.soinside.com 2019 - 2024. All rights reserved.