R：从列表中提取一个值并将其粘贴到数据框中

我有一个数据帧列表（列表9）

我创建了一个目标数据帧（结果）

我想将列表中每个数据帧的list$TGdispInd1和list$TGdispInd2的第一个值粘贴到数据帧“result”中（也可以是list$TGdispInd1和list$TGdispInd2的平均值，因为所有64个值都相等）

这就是结果数据帧的外观

> result
  TGdispInd1 TGdispInd2                     subject
1       .317       .756 TG_75ms_Step11_v1-998-1.txt
2       .351       .784 TG_75ms_Step11_v1-999-1.txt

有人知道怎么做吗？

试试看

result[1:2] <- do.call(rbind,lapply(list9, function(x)
                x[1, c('list$TGdispInd1',  'list$TGdispInd2']))

---

非常好用，谢谢！

> result
  TGdispInd1 TGdispInd2                     subject
1       .317       .756 TG_75ms_Step11_v1-998-1.txt
2       .351       .784 TG_75ms_Step11_v1-999-1.txt

result[1:2] <- do.call(rbind,lapply(list9, function(x)
                x[1, c('list$TGdispInd1',  'list$TGdispInd2']))

result[1:2] <- do.call(rbind, lapply(list9, function(x) 
               colMeans(x[c('list$TGdispInd1',  'list$TGdispInd2'])))