R：从列表中获取数据

Question

我有以下简化示例：

list1 <- list(Value1=c('9','6','5','5'),Value2=c('4','3'))
list2<-list(Value1=c('9','2','3','5'),Value2=c('4','8'))
TotalList <- list()
TotalList[['time1']] <- list1
TotalList[['time2']] <- list2

我如何获得以下TotalList[1:2]$Value1（伪代码）来获取Value1和time1中的所有time2？

Answer 1

尝试

lapply(TotalList, function(x) x[names(x)=='Value1'])