如何在R中保留列表中含指定列名的tibble？

你的循环代码有两个关键问题导致无法生效：

1. 索引引用错误：ContractHistory[['i']]是在取列表中名字为"i"的元素，而不是索引为i的元素，正确写法应该是ContractHistory[[i]]。
2. 循环索引错位：当你从前往后遍历并删除元素时，列表长度会实时缩短，后续的索引会对应到错误的元素（比如删除第1个元素后，原第2个元素变成新的第1个，但循环会继续走到i=2，跳过这个元素）。

修正后的循环写法（倒序遍历） #

倒序遍历可以避免索引错位问题，因为删除后面的元素不会影响前面元素的索引：

for (i in rev(seq_along(ContractHistory))) {
  if (!"Status" %in% names(ContractHistory[[i]])) {
    ContractHistory[[i]] <- NULL
  }
}

更简洁的替代方案（推荐） #

不需要写循环，用R内置的Filter函数或者tidyverse的keep函数可以直接完成过滤，代码更简洁且不易出错：

方案1：base R的Filter函数

ContractHistory <- Filter(function(x) "Status" %in% names(x), ContractHistory)

方案2：tidyverse的purrr::keep

如果你习惯tidyverse风格，可以用purrr包的keep函数：

library(purrr)
ContractHistory <- keep(ContractHistory, ~ "Status" %in% names(.x))

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