r - 通过将矩阵转换为列表，组合、comboGeneral 和 Comn 的输出相同

Question

我想使用安排包中的组合函数和 RcppAlgos 包中的comboGeneral 来获取与我从utils 包中的combn 函数获得的格式相同的输出。

library(arrangements); library(magrittr); library(purrr); library(RcppAlgos)

comb1 <- map(1:2, ~combn(x=names(mtcars), m = .x, simplify=F)) %>% unlist(recursive = F)

comb2 <- map(1:2, ~combinations(names(mtcars), k = .x))

comb3 <- map(1:2, ~comboGeneral(names(mtcars), m = .x))

我需要做什么才能使comb2和comb3具有与comb1相同的格式输出？

Answer 1

为此，您可以使用

comb2 <- map(1:2, ~combinations(names(mtcars), k = .x) %>% split(row(.))) %>% unlist(recursive = FALSE)
comb3 <- map(1:2, ~comboGeneral(names(mtcars), m = .x, FUN = c)) %>% unlist(recursive = FALSE)

comb2 恰好是一个命名列表；如果这是一个问题，您可以添加额外的 %>% unname。