根据 r 中同一行中其他元素的值更改数据框值

Question

我想根据同一行中的其他元素是否为某个值来更改数据框行中元素的值。

我有以下形式的数据框：

    p_id year         Id   number1    number2          result 
   <dbl> <chr>     <dbl>     <dbl>      <dbl>           <dbl> 
 1     1 1968          1         1          0              NA      
 2     1 1969          1         1         10              NA  
 3     1 1970         81         9          7              NA  
 4     1 1971          0         0          0              NA    
 5     1 1972          0         0         10              NA 
 6     1 1973          0         0          0              NA  
 7     1 1974          1         1         10              NA  

当 Id = 1、number1 = 1 且 number2 = 10 时，我想将 1 写入结果列，否则为 0。

所以它应该是这样的：

    p_id year         Id   number1    number2          result 
   <dbl> <chr>     <dbl>     <dbl>      <dbl>           <dbl> 
 1     1 1968          1         1          0               0      
 2     1 1969          1         1         10               1
 3     1 1970         81         9          7               0  
 4     1 1971          0         0          0               0    
 5     1 1972          0         0         10               0 
 6     1 1973          0         0          0               0
 7     1 1974          1         1         10               1

我猜应该有一种方法可以用 lapply() 来解决这个问题。

对不起，如果这是转发，我到目前为止找不到解决方案。

谢谢！

Answer 1

没有ifelse另一种选择

data$result <- with(data, +(Id == 1 & number1 == 1& number2 == 10))

Answer 2

假设您尝试更改的数据框称为data ，下面的代码行应该可以达到您想要的结果。

data$result < -ifelse(data$Id = 1 & data$number1 = 1 & data$number2 = 10, 1, 0)

我希望这有帮助！

Answer 3

假设您的data.frame被称为d1 ：

d1[["result"]] <-  ifelse(d1[["Id"]] == 1L & d1[["numer1"]] == 1L & d1[["number2"]] == 10L, 1L, 0L)