Комбинации из сгруппированных элементов

Question

У меня есть список сгруппированных элементов, и я хочу сделать все возможные комбинации этих элементов, однако я хочу только взять один элемент из каждой группы. Заказ не имеет значения.

vars_list <- list(Group1 = letters[1:5], Group2 = letters[6:9], 
        Group3 = letters[10:11], Group4 = letters[12:15]) 

Скажем, я хочу, чтобы сделать комбинации при п = 2, п = 3, п = 4, где п число групп, я хочу использовать.

Я нашел решение, чтобы сделать это при п = число групп (Combinations from recursive lists):

lengths <- c(1, 1, 1, 1) 
combos <- expand.grid(mapply(function(element, n) combn(element, m=n, 
FUN=paste0, collapse=""), vars_list, lengths, SIMPLIFY = F)) 

Как я могу сделать это для п < числа групп?

Answer 1

Вы можете использовать combn для получения всех комбинаций ваших групп при п = 1, п = 2, п = 3 и п = 4, а затем использовать expand_grid:

n = 2 
apply(combn(1:length(vars_list), n), 2, function(x){expand.grid(vars_list[x])}) 

так при п = 4, то будет так же, как и в вашем вопросе. Это то, что вы имели в виду?