R语言中标记向量匹配元素时遇长度不匹配错误的技术问询

我有一个向量SingleMeans$BinNumb，示例定义如下：

SingleMeans$BinNumb <- c(1,5,6,101,106,201,206,3,6,202,211,207,4,6,105,101)

希望将该向量中与CongruentCodes向量内的代码匹配的元素标记为"Congruent"，CongruentCodes定义如下：

CongruentCodes = c(101,102,103,104,109,110,111,112,201,202,203,204,209,210,211,212)

尝试用以下代码实现：

SingleMean$Congruency <- ifelse(SingleMean$BinNumb[which(SingleMean$BinNumb == CongruentCodes)],"Congruent","Incongruent")

运行后出现警告且返回空值：

Warning message:
In SingleMean$BinNumb == CongruentCodes :
longer object length is not a multiple of shorter object length

问题核心是直接用==比对长度不同的向量，R会循环短向量适配长向量，导致比对逻辑完全错误，同时which()的用法也不符合需求。正确的做法是用%in%运算符判断元素是否在目标集合中，再结合条件函数生成标记。

方法1：基础R原生实现 #

# 注意统一变量名：原代码中SingleMeans和SingleMean混用，需保持一致
SingleMeans$Congruency <- ifelse(SingleMeans$BinNumb %in% CongruentCodes, "Congruent", "Incongruent")

• %in%会逐个检查SingleMeans$BinNumb的每个元素是否存在于CongruentCodes中，返回与BinNumb长度一致的逻辑向量
• ifelse()根据逻辑向量的结果，对应位置返回"Congruent"或"Incongruent"

方法2：tidyverse风格实现（适合数据框操作） #

如果习惯使用dplyr包，可以用mutate()配合case_when()实现：

library(dplyr)
SingleMeans <- SingleMeans %>%
  mutate(Congruency = case_when(
    BinNumb %in% CongruentCodes ~ "Congruent",
    TRUE ~ "Incongruent"
  ))

验证结果 #

运行上述代码后，SingleMeans$Congruency的输出结果为：

[1] "Incongruent" "Incongruent" "Incongruent" "Congruent"   "Incongruent" "Congruent"  
[7] "Incongruent" "Incongruent" "Incongruent" "Congruent"   "Congruent"   "Incongruent"
[13] "Incongruent" "Incongruent" "Incongruent" "Congruent"

完全符合预期的标记结果。

内容的提问来源于stack exchange，提问作者SBL