如何在 R 中构造一个循环以产生条件均值？

问：

我有一个数据集，其中的观察结果根据优先级进行排名。我想找到一个变量的条件均值（无论他们是否喜欢红色（1 或 0））乘以 100 组。也就是说，我想找到前 100 个观测值（按排名）是否像红色一样的平均值。平均值约为 0.25 或类似值。然后，观测值排名是否为 100-200 的平均值与红色相似。然后，200-300，依此类推。总共大约有 18,000 个观测值。

我尝试编写以下循环：

lb <- seq(0, 18000, by = 100)
ub <- lb + 100

redgivenrank <- numeric(length(lb))

for (i in 1:181) {
  lb1 <- lb[i]
  ub2 <- ub[i]
  subset_datans <- subset(datans, datans$rank >= lb1 & datans$rank <= ub2)
  redgivenrank[i] <- mean(subset_datans$red, na.rm = TRUE)
}

这最终给了我与手动操作时截然不同的值，然后在几轮之后，它开始给出 NA 值作为答案，所以显然有些不对劲。

手动，我这样做是为了获取值：

mean(datans$red[datans$rank <= '100'])
mean(datans$red[datans$rank >= '100' & datans$rank <= '200'])
mean(datans$red[datans$rank >= '200' & datans$rank <= '300'])
mean(datans$red[datans$rank >= '300' & datans$rank <= '400'])
mean(datans$red[datans$rank >= '400' & datans$rank <= '500'])

这给了我实际值，但我注意到一个关键的区别是，在这里，数字是“引用”的，而不是在循环中它们没有。这会带来什么不同？哪个对我想做的事情是正确的？

谢谢！