R - 如果在列表中找不到，则更改值

Question

我正在处理一列就业数据。我想以以下值结束：

• 失业
• 退休
• 自雇人士
• 已禁用
• 受雇

我已经清理了所有值的所有不同迭代，除了就业。我正在尝试制定一个声明，该声明将执行以下操作：

如果不在此列表中，“失业 | 退休 | 自雇 | 残疾”将值更改为“已就业”。

我一直在尝试使用 %notin% 函数和 replace() 函数，但缺少一些东西。任何为我指明正确方向的帮助将不胜感激。

更新/编辑：

根据@Rui Barradas 的建议，我得到了可以运行的代码，但是在清理和注释代码时，我破坏了一些东西，我终生无法弄清楚我做错了什么。下面的代码不会引发错误，但当我使用table(df7$patient_employment) 验证时，它不会将值更改为“已使用”

`%notin%` <- Negate(`%in%`)
x <- c(df7$patient_employment, "Unemployed", "Retired", "Self-Employed", "Disabled")
x[x %notin% df7$patient_employment] <- "Employed"

已解决：

在一些额外的帮助之后，有人指出我在使用示例中的 x 时应该使用我的数据名称。在这方面工作太久了。是时候伸展我的腿了。谢谢@Rui Barradas

Answer 1

看看以下是否回答了问题。

`%notin%` <- Negate(`%in%`)

set.seed(2020)
status <- c("Unemployed", "Retired", "Self-Employed", "Disabled")
x <- sample(c(status, "Employed", "ABC"), 20, TRUE)

i <- x %notin% status
x[i]
#[1] "ABC"      "ABC"      "Employed" "ABC"      "Employed"
#[6] "Employed"

x[i] <- "Employed"
x[i]
#[1] "Employed" "Employed" "Employed" "Employed" "Employed"
#[6] "Employed"

上面的代码很简单，不需要逻辑索引向量i。创建此向量是为了使代码更具可读性，但以下代码等效于上面的代码。

x[x %notin% status] <- "Employed"

在 OP 发表评论后，使用 df7$patient_employment 而不是 x，它应该可以工作。

df7$patient_employment[df7$patient_employment %notin% c("Unemployed", "Retired", "Self-Employed", "Disabled")] <- "Employed"