R语言中含数值与字符的向量使用大小比较的异常问题求解

• 第一次尝试错误：R的原子向量仅支持存储同类型数据，构造test <- c("A", 1, 2)时，数值1、2会被自动转换为字符型，test实际存储值为c("A", "1", "2")。字符与数值做比较时，R会将数值转为字符按字典序匹配，由于字母ASCII码大于数字，"A" > 1会返回TRUE，导致第一个位置被错误替换。
• 第二次尝试错误：as.numeric(test > 1)的执行逻辑是先完成字符比较得到逻辑值c(TRUE, FALSE, TRUE)，再将逻辑值转为数值c(1,0,1)作为索引，全程没有做test内容的数值转换，因此仅会替换第一个位置的内容，和预期逻辑不符。

先将test安全转换为数值，非数字内容转换后为NA，判断时排除NA值再做大小比较，全程不会触发强制转换的警告或错误：

# 初始测试数据
test <- c("A", 1, 2)    
out <- rep("ON", 3)

# 安全转数值，屏蔽非数字转换的提示
test_num <- suppressWarnings(as.numeric(test))
# 仅替换 转换成功且数值大于1 的位置
out[!is.na(test_num) & test_num > 1] <- "OFF"

执行后out返回结果为[1] "ON" "ON" "OFF"，完全符合需求。

你使用的判断语句grepl("^[0-9.]+$", test) & test < 10返回全FALSE，核心原因是比较逻辑顺序错误：test是字符向量，直接执行test < 10时，R会把10转为字符"10"按字典序比较，而非按数值大小比较。比如字符"3"和"10"比对时，第一个字符"3"的字典序大于"1"，因此"3" < "10"会返回FALSE，所有字符型数字按这个逻辑比对都无法满足小于10的条件，最终结果全为FALSE。
修正代码如下：

# 测试数据
test <- c("25", "38", "40", "38", "207", "16", "31", "18", "22", "20", 
"3", "19", "4", "43", "20", "15", "21", "36", "36", "23", "33", 
"31", "48")

# 先匹配纯数字格式项，再转数值做大小判断
is_num <- grepl("^[0-9.]+$", test)
test_num <- as.numeric(test[is_num])
result <- is_num
result[is_num] <- test_num < 10

执行后值为"3"、"4"的位置会正确返回TRUE，其余位置返回FALSE，无警告抛出。

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