if else语句运行结果错误

有如下表格


那么此表格中 加上一列参数 参数名为NS_inv,

如果intervention_code 的前两个字符等于 “1A”，那么此参数赋值为TRUE，如果不等于1A，那么赋值为FALSE
我的CODE如下，可是发现所有NS_inv的所有值都是TRUE，请教一下问题出现在哪里

if("1A" %in% substr(SDH_inv$intervention_code,1,2)) {
  SDH_inv$NS_inv=TRUE} else {
    SDH_inv$NS_inv=FALSE

}

你这代码的意思是 substr(xx, 1, 2) 构成的向量里是否有 "1A" 这个元素，如果有就把 NS_inv 列赋值全为 TRUE。也就是说你的代码是对整个数据集进行的操作，而你需要的是对每行分别进行判断和赋值，所以代码可以改成：

1. library(dplyr)
   
2. data %>%
   
3.     mutate(NS_inv = ifelse(substr(intervention_code, 1, 2) == "1A", TRUE, FALSE))

复制代码

请自动忽略第二个表格