如何统计R语言vector中小于给定值的元素个数并解决相关警告

if 条件语句仅支持接收长度为1的逻辑值作为判断依据，你代码中的test.seq < 10000会返回和test.seq长度相同的逻辑向量，因此R触发警告，且仅会使用向量的第一个元素完成判断，完全无法实现逐元素统计的需求。同时你定义的for循环声明了索引变量i，但判断逻辑中完全没有调用该索引，循环本身也是失效的。

方案1：使用向量化操作（推荐） #

R的逻辑值在做数值计算时，TRUE会被自动识别为1，FALSE会被识别为0，直接对逻辑向量求和即可得到符合条件的元素个数，无需写循环，代码简洁且运行效率更高：

test.seq <- seq(from = 20000, to = 0, length.out = 100) 
n.lower <- sum(test.seq < 10000)

你也可以通过筛选子集后计数的方式实现，效果完全一致：

n.lower <- length(test.seq[test.seq < 10000])

方案2：修正循环逻辑 #

如果需要使用循环实现逻辑，只需要在判断时通过索引i取出单个元素做判断即可：

test.seq <- seq(from = 20000, to = 0, length.out = 100) 
n.lower <- 0 # 直接用标量存储计数即可，无需定义矩阵
for(i in 1:length(test.seq)){
   if(test.seq[i] < 10000){
      n.lower <- n.lower + 1
   }
}

如果确实需要将结果存储在1行1列的矩阵中，只需要把计数逻辑替换为n.lower[1,1] <- n.lower[1,1] + 1即可。

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