r - 如何向列表的每个元素添加列名/列数最少为 6 个行值的列？

Question

我有一个包含 12000 个元素的列表。我想为每个元素添加一列，其中列名/编号显示为至少 6 个行值。我可以对单个元素执行此操作，但不幸的是，它不适用于所有列表元素。

到目前为止，这是我的代码：

l2<-lapply(adresults_df_list, function(x) 
  cbind(x, bf = NA))

for(i in 1:12000){
adresults_df_list[[i]]$bf <- apply(adresults_df_list[[i]][,1:6], 1, function(x) which(x==min(x)))    
}

也许我可以用 lapply 或循环来做到这一点？

标签： rlistfor-loopapplylapply