从列表列表中返回包含元素的列表

Question

我有一个列表列表，例如“testccffilt”下面的输入示例。我正在尝试返回一个列表，我从每个列表中选择名称和滞后。例如，对于第一个列表，它将是：

c(‘TimeToShip’,1)

我已经尝试了下面的 lapply 示例，但它并没有给出我想要的输出。我在下面也有一个我想要得到的所需输出类型的例子。非常感谢任何提示。

输入：

> testccffilt

$TimeToShip
           cor lag
3284 0.9998749   1

$TimeToRelease
           cor lag
3285 0.9997293   2

试过了：

testlist<-lapply(testccffilt,function(x)list(names(x),x$lag))

测试列表

$TimeToShip
$TimeToShip[[1]]
[1] "cor" "lag"

$TimeToShip[[2]]
[1] 1


$TimeToRelease
$TimeToRelease[[1]]
[1] "cor" "lag"

$TimeToRelease[[2]]
[1] 2

想要的输出：

[[1]]
[1] "TimeToShip" "1"         

[[2]]
[1] "TimeToRelease" "2"     

数据：

dput(testccffilt)
structure(list(TimeToShip = structure(list(cor = 0.999874880882358, 
    lag = 1), .Names = c("cor", "lag"), row.names = 3284L, class = "data.frame"), 
    TimeToRelease = structure(list(cor = 0.999729343078789, lag = 2), .Names = c("cor", 
    "lag"), row.names = 3285L, class = "data.frame")), .Names = c("TimeToShip", 
"TimeToRelease"))

Answer 1

这是一个使用 for 循环的选项

out <- vector(mode = "list", length(testccffilt))
for (i in 1:length(testccffilt)) {
  out[[i]] <- c(names(testccffilt)[[i]], testccffilt[[i]][["lag"]])
}
out
#[[1]]
#[1] "TimeToShip" "1"         

#[[2]]
#[1] "TimeToRelease" "2" 

---

另一个选项是lapply，它可能会更快。

lapply(1:length(testccffilt), function(x)
  c(names(testccffilt)[[x]], testccffilt[[x]][["lag"]]))