R语言移除含0列时报错：unexpected '}' in " }" 求助

首先，咱们先解决你遇到的语法错误：你写的if (y[r, c] == 0) { then y[,c] <- NULL ... }里的then是多余的——R语言的if语句不需要then关键字，这就是你得到Error: unexpected '}'的直接原因。

不过就算去掉then，你的循环逻辑也会有问题，我来拆解下：

• 你用了行+列的嵌套循环，但其实判断列是否包含0，根本不需要遍历每一行，只要检查整列有没有0就行
• 当你在循环中移除列y[,c] <- NULL时，数据框的列数会实时减少，后面的列索引会自动前移，但你的循环是按初始的列数迭代的，很容易出现索引越界或者遗漏列的情况
• 你试图修改循环变量r <- r-1和c <- c-1是没用的：R的for循环是基于初始序列迭代的，修改迭代变量不会影响下一次循环的取值

推荐的高效解法（向量化操作） #

R是向量式语言，处理这类列/行筛选的问题，用向量化操作比循环简洁高效得多，完全不需要写嵌套循环：

# 找出所有不包含0的列（列中0的个数为0）
cols_to_keep <- colSums(y == 0) == 0
# 保留这些列，更新数据框
y <- y[, cols_to_keep]

如果你的需求是只要列里有0就移除，上面的代码完全符合要求——colSums(y == 0)会计算每一列中0的数量，等于0就说明该列没有0，我们保留这些列。

如果一定要用循环（不推荐，但可以参考） #

如果你坚持要用循环实现，正确的做法是从最后一列往前遍历，这样移除列时不会影响前面未遍历的列索引：

# 从最后一列开始，倒序遍历每一列
for (c in ncol(y):1) {
  # 检查当前列是否存在0
  if (any(y[, c] == 0)) {
    # 移除该列
    y[, c] <- NULL
  }
}

倒序遍历的好处是：就算删除了第c列，前面的列索引（1到c-1）不会发生变化，不会出现遗漏或索引错误。

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