在列表数据框上用管道迭代报错：select方法不适用于数值对象

问题出在你创建列表的方式上：c(d1, d2)不会把两个tibble作为独立元素放进列表，而是会把每个tibble的列拆成单独的数值向量，最终d_list里的元素都是单个向量，不是完整的tibble。所以循环里的d是向量，select函数只适用于数据框类对象，自然就报了那个错误。

1. 正确创建包含tibble的列表 #

把创建列表的代码改成下面这样，才能保留每个tibble作为列表的独立元素：

# 基础方式
d_list <- list(d1, d2)

# 如果需要给列表元素命名，方便后续识别
d_list <- list(d1 = d1, d2 = d2)

2. 修正for循环（保存处理结果） #

现在循环里的d就是完整的tibble了，注意要把处理后的结果存起来，不然循环结束后不会保留任何输出：

# 创建空列表存储处理后的数据
processed_data <- list()

for(i in seq_along(d_list)){
  processed_data[[i]] <- d_list[[i]] %>% 
    select(c(1, 3:5)) %>% 
    na.omit()
}

3. 更简洁的管道风格处理（推荐用purrr包） #

如果你习惯用管道操作，purrr::map()可以批量处理列表里的每个tibble，代码更简洁：

library(purrr)

processed_data <- d_list %>% 
  map(~ .x %>% 
        select(c(1, 3:5)) %>% 
        na.omit())

这里~代表列表中的每个元素，.x就是当前正在处理的tibble，一行代码就能完成所有数据框的批量操作。

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