3

如何创建两个不均匀列表的所有组合并将名称映射到结果上？我已经使用 purrr 包的cross2函数来生成组合，但是我无法通过组合原始列表中的名称来找到一种优雅的方式来命名结果列表。

a <- list(
  "alpha" = c(1, 2, 3),
  "beta" = c(4, 5, 6),
  "gamma" = c(7, 8, 9)
)

b <- list(
  "charlie" = c("a", "b"),
  "foxtrot" = c("x", "y")
)

library(purrr)

cross2(a, b)
#> [[1]]
#> [[1]][[1]]
#> [1] 1 2 3
#> 
#> [[1]][[2]]
#> [1] "a" "b"
#> 
#> 
#> [[2]]
#> [[2]][[1]]
#> [1] 4 5 6
#> 
#> [[2]][[2]]
#> [1] "a" "b"
#> 
#> 
#> [[3]]
#> [[3]][[1]]
#> [1] 7 8 9
#> 
#> [[3]][[2]]
#> [1] "a" "b"
#> 
#> 
#> [[4]]
#> [[4]][[1]]
#> [1] 1 2 3
#> 
#> [[4]][[2]]
#> [1] "x" "y"
#> 
#> 
#> [[5]]
#> [[5]][[1]]
#> [1] 4 5 6
#> 
#> [[5]][[2]]
#> [1] "x" "y"
#> 
#> 
#> [[6]]
#> [[6]][[1]]
#> [1] 7 8 9
#> 
#> [[6]][[2]]
#> [1] "x" "y"

我想保持相同的列表结构，但将名称映射到列表的两个级别，如下所示：

list(
  "alpha.charlie" = list(
    "a" = c(1, 2, 3),
    "b" = c("a", "b")),
  "alpha.foxtrot" = list(
    "a" = c(1, 2, 3),
    "b" = c("x", "y"))
  # ETC
)
#> $alpha.charlie
#> $alpha.charlie$a
#> [1] 1 2 3
#> 
#> $alpha.charlie$b
#> [1] "a" "b"
#> 
#> 
#> $alpha.foxtrot
#> $alpha.foxtrot$a
#> [1] 1 2 3
#> 
#> $alpha.foxtrot$b
#> [1] "x" "y"
4

2 回答 2

3

事后 您总是可以使用setNames（或）。set_names

文档中有一个简单的示例，用和cross2命名每个列表中的元素。在你的情况下，这看起来像mapsetNames

cross2(a, b) %>% 
    map(setNames, c("a", "b"))

[1]]
[[1]]$a
[1] 1 2 3

[[1]]$b
[1] "a" "b"


[[2]]
[[2]]$a
[1] 4 5 6

[[2]]$b
[1] "a" "b"
...

然后，您需要命名更高级别的列表，这可以通过从列表的原始名称a和b. 我采用了levels其中interaction的名称来创建名称。根据您的实际情况，这可能无法很好地扩展。

cross2(a, b) %>% 
    map(setNames, c("a", "b")) %>% 
    setNames(levels(interaction(names(a), names(b))))

$alpha.charlie
$alpha.charlie$a
[1] 1 2 3

$alpha.charlie$b
[1] "a" "b"


$beta.charlie
$beta.charlie$a
[1] 4 5 6

$beta.charlie$b
[1] "a" "b"
...
于 2016-06-16T18:32:27.417 回答
1

这个嵌套lapply在更高级别上获取名称：

myList <- unlist(lapply(a, function(i) lapply(b, function(j) list(i, j))), recursive = F)

myList
$alpha.charlie
$alpha.charlie[[1]]
[1] 1 2 3

$alpha.charlie[[2]]
[1] "a" "b"


$alpha.foxtrot
$alpha.foxtrot[[1]]
[1] 1 2 3

$alpha.foxtrot[[2]]
[1] "x" "y"

...

您可以使用 second 添加第二级名称lapply：

myList <- lapply(myList, function(i) {names(i) <- c("a", "b"); i})

myList
$alpha.charlie
$alpha.charlie$a
[1] 1 2 3

$alpha.charlie$b
[1] "a" "b"


$alpha.foxtrot
$alpha.foxtrot$a
[1] 1 2 3

$alpha.foxtrot$b
[1] "x" "y"

...
于 2016-06-16T16:47:34.843 回答