r - 如何以简单的方式处理多个 if 条件？

Question

假设我有多个 if 条件，在这些条件下，不同的值被分配给一个变量。例如:

x <- rep(c(1, 2, 3, 4, 5, 6, 7, 8), 4)
for(i in length(x)) {
    if(x[i] == 2) {
      x[i] <- 10
    }
    if(x[i] == 4) {
      x[i] <- 12
    }
    ## and there are more similar if conditions 
    ## ......
}

一般来说，我会根据具体情况，将这个vector中的数字替换成其他数字。有没有更简单的方法来做到这一点而无需编写这么长的循环？

Answer 1

如果您的 x 是小的非零整数，请将查找表制作成一个简单的向量:

lut=c(10,12,13,55,99,12,12,12,99,1010)
lut[x]
 [1] 10 12 13 55 99 12 12 12 10 12 13 55 99 12 12 12 10 12 13 55 99 12 12 12 10
 [26] 12 13 55 99 12 12 12

对于其他键，使用列表并表征所有事物:

> lut = list("999"=1, "8"=2, "foo"=223)
> unlist(lut[c("999","999","8","8","8","foo")])
 999 999   8   8   8 foo 
   1   1   2   2   2 223