为什么R的for循环仅最后一次迭代执行测试？如何对字符串字符逐个测试

问题根因 #

strsplit() 函数的返回值为列表类型：传入单个字符串拆分时，它会返回长度为1的列表，列表的第一个元素才是拆分后的字符向量。你原有代码中的for循环实际仅执行了1次，循环变量letter是完整的c("A","B")字符向量：writeLines(letter)会一次性打印向量内的两个字符，identical('A', letter)是拿单个字符和长度为2的向量比较，自然返回FALSE，也就出现了你看到的输出结果。

修复方案 #

只需取出strsplit返回列表的第一个元素再遍历即可，修改后代码如下：

str <- 'AB'
# 取列表第一个元素，得到拆分后的字符向量
strs <- strsplit(str, '')[[1]]
for (letter in strs) {
    writeLines(letter)
    print(identical('A', letter))
}

运行输出结果：

A
[1] TRUE
B
[1] FALSE

你也可以用unlist()处理strsplit的返回结果，效果完全一致：

strs <- unlist(strsplit(str, ''))

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