R语言移除4的倍数元素代码仅删除8的问题排查与修复

• 核心错误1：删除元素时误用元素值作为索引。循环中遍历的是向量的元素值n，执行y2[-n]时，是删除y2中第n位的元素，而非删除值为n的元素。比如调用示例中第一个匹配的4的倍数是值为4的元素，它在初始向量中的位置是第2位，你执行y2[-4]反而删除了第4位的元素8，这也是仅看到8被移除的直接原因。
• 核心错误2：动态修改向量长度会导致索引错位。就算改用索引遍历，每次删除元素后y2的长度会变小，后续的索引位置会和原向量不匹配，依然会出现删除错误。
• 冗余设计：R是向量化编程语言，这类筛选操作完全不需要写循环实现，循环反而会降低执行效率。

优先使用向量化逻辑筛选，代码简洁效率更高：

multipleoffour <- function(y){
  # 保留所有不是4的倍数的元素
  return(y[!(y %% 4 == 0)])
}

如果确实需要用循环实现（仅做逻辑演示，不推荐），可以先收集所有需要删除的索引，最后统一删除，避免动态修改向量长度：

multipleoffour <- function(y){
  del_idx <- c()
  for (i in seq_along(y)) {
    if (y[i] %% 4 == 0) {
      del_idx <- c(del_idx, i)
    }
  }
  if (length(del_idx) > 0) {
    y <- y[-del_idx]
  }
  return(y)
}

调用示例multipleoffour(c(2,4,6,8,10,12,14))，输出结果为：

[1]  2  6 10 14

符合预期。

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