R：使用FOR循环和IF-ELSE构造在列中省略奇数

Question

对于一个项目，我被要求使用IF-ELSE构造创建一个FOR循环，在该循环中，我省略了数据帧列中的奇数。但是，当我尝试构建它时，我没有得到正确的答案。这是我的代码的样子：

for (i in 1:nrow(my_columns)) {
  if (my_columns$id[[i]] %% 2 != 0) {
    my_columns$id <- my_columns$id[[-i]]
  }
}

然后R返回此错误消息：

 Error in my_columns$id[[-i]] : 
 attempt to select more than one element in integerOneIndex

我认为我在if语句必须返回值的部分中犯了一个错误。你能告诉我我的错误是什么吗？此外，您可以帮助我创建for循环吗？

谢谢！