累加R中每个可能组合的值

Question

假设我有datatest（dput给定），其中list-col表示items:

test <- structure(list(items = list('a', c('b', 'c'), c('d', 'e'), 'f', c('g', 'h')),
               ID = c(1,1,1,2,2)), row.names = c(NA, 5L), class = "data.frame")

library(tidyverse)
test %>% group_by(ID) %>%
  mutate(dummy = accumulate(items, ~paste(.x, .y)))

我得到的list-col输出如下所示

  items ID        dummy
1     a  1            a
2  b, c  1     a b, a c
3  d, e  1 a b d, a c e
4     f  2            f
5  g, h  2     f g, f h

我希望第3行中有四个项目，每个项目都有可能的组合，即c（“A b D”，“A b E”，“A c D”，“A c E”）。然而，这些是否是列表中的单独项目并不重要。换句话说，dummy的输出可能是多级列表类型，其中row3将包含列表中的四个项目。我尝试使用expand.grid，但我在某处做错了什么！

Answer 1

如果要使用所有可能组合，请在.x上使用sapply

library(dplyr)
library(purrr)

test %>% 
  group_by(ID) %>%
  mutate(dummy = accumulate(items, ~c(sapply(.x, paste, .y)))) %>%
  pull(dummy)

#[[1]]
#[1] "a"

#[[2]]
#[1] "a b" "a c"

#[[3]]
#[1] "a b d" "a b e" "a c d" "a c e"

#[[4]]
#[1] "f"

#[[5]]
#[1] "f g" "f h"