r - 如何定义2列指标

Question

我有这些专栏

           utility     pass
              2          None
              3          NA
              -1         None
             -2           NA        

如果:pass = None并且Utility> 0，则指示符为1

输出

我有这些专栏

           utility     pass          indicator
              2          None            1
              3          NA              0
              -1         None            0
             -2           NA             0

Answer 1

假设NA是NA而不是字符，我们可以实现所需的输出，如下所示:

使用dplyr(可以使用case_when):

df %>% 
  mutate(indicator = ifelse( !is.na(pass) & utility >0 , 1, 0))
  utility pass indicator
1       2 None         1
2       3 <NA>         0
3      -1 None         0
4      -2 <NA>         0

在不依赖外部软件包的情况下，我们可以对 base软件包执行以下操作:

df$indicator <- ifelse( !is.na(df$pass) & df$utility >0 , 1, 0)

使用 within:

within(df, {
   indicator <- ifelse(!is.na(pass) & utility >0, 1, 0)
 })
  utility pass indicator
1       2 None         1
2       3 <NA>         0
3      -1 None         0
4      -2 <NA>         0

数据:

df <- structure(list(utility = c(2L, 3L, -1L, -2L), pass = structure(c(1L, 
NA, 1L, NA), .Label = "None", class = "factor")), class = "data.frame", row.names = c(NA, 
-4L))