R语言删除数据表列表中含V25列的对应V25列方法

你写的循环没有生效的核心问题是：as.data.frame(tables[[i]])会生成列表元素的临时副本，你对这个临时副本执行的删列操作不会作用到原列表tables里的存储对象上，循环结束后临时对象会被自动回收，原列表没有任何改动。

你可以根据自己的编码习惯选以下任意一种写法：

• 修正版for循环
  直接操作列表内的原数据框，先判断列是否存在再删除，避免不存在V25列的表触发报错：

  for (i in seq_along(tables)) {
    if ("V25" %in% colnames(tables[[i]])) {
      tables[[i]]$V25 <- NULL
    }
  }
  

• lapply简洁写法
  R语言处理列表对象用apply族代码更简洁，不需要手动维护循环索引：

  tables <- lapply(tables, function(df) {
    if ("V25" %in% colnames(df)) {
      df$V25 <- NULL
    }
    df
  })
  

如果你确定所有要处理的表的最后一列都是要删除的目标列，不需要校验列名，也可以用通用的删最后一列的写法，注意加drop = FALSE参数，避免单列表删列后被转成向量类型：

# lapply通用删最后一列写法
tables <- lapply(tables, function(df) df[, -ncol(df), drop = FALSE])

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