R 将复杂的组合列表转换为数据框架

我创建了以下代码，该代码会生成组合列表

experiment <- expand.grid(
  flavor=c("chocolate", "vanilla", "strawberry"), 
  price=c("$1.50", "$2.00", "$2.50"), 
  container=c("cone", "cup"), 
  topping=c("yes", "no"))

# Dividir el conjunto de datos en grupos de 3 filas
grupos <- split(experiment, rep(1:ceiling(nrow(experiment)/3), each=3, 
                                length.out=nrow(experiment)))

# Crear escenarios para cada grupo
escenarios <- lapply(grupos, function(grupo) {
  # Mostrar los objetos de cada grupo
  for (i in 1:nrow(grupo)) {
    cat("Objeto", i, ":\n")
    print(grupo[i, ])
    cat("\n")
  }
})

获取以下对象列表

Objeto 1 :
     flavor price container topping
1 chocolate $1.50      cone     yes

Objeto 2 :
   flavor price container topping
2 vanilla $1.50      cone     yes

Objeto 3 :
      flavor price container topping
3 strawberry $1.50      cone     yes

Objeto 1 :
     flavor price container topping
4 chocolate $2.00      cone     yes

Objeto 2 :
   flavor price container topping
5 vanilla $2.00      cone     yes

Objeto 3 :
      flavor price container topping
6 strawberry $2.00      cone     yes

Objeto 1 :
     flavor price container topping
7 chocolate $2.50      cone     yes

Objeto 2 :
   flavor price container topping
8 vanilla $2.50      cone     yes

Objeto 3 :
      flavor price container topping
9 strawberry $2.50      cone     yes

Objeto 1 :
      flavor price container topping
10 chocolate $1.50       cup     yes

Objeto 2 :
    flavor price container topping
11 vanilla $1.50       cup     yes

Objeto 3 :
       flavor price container topping
12 strawberry $1.50       cup     yes

Objeto 1 :
      flavor price container topping
13 chocolate $2.00       cup     yes

Objeto 2 :
    flavor price container topping
14 vanilla $2.00       cup     yes

Objeto 3 :
       flavor price container topping
15 strawberry $2.00       cup     yes

Objeto 1 :
      flavor price container topping
16 chocolate $2.50       cup     yes

Objeto 2 :
    flavor price container topping
17 vanilla $2.50       cup     yes

Objeto 3 :
       flavor price container topping
18 strawberry $2.50       cup     yes

Objeto 1 :
      flavor price container topping
19 chocolate $1.50      cone      no

Objeto 2 :
    flavor price container topping
20 vanilla $1.50      cone      no

Objeto 3 :
       flavor price container topping
21 strawberry $1.50      cone      no

Objeto 1 :
      flavor price container topping
22 chocolate $2.00      cone      no

Objeto 2 :
    flavor price container topping
23 vanilla $2.00      cone      no

Objeto 3 :
       flavor price container topping
24 strawberry $2.00      cone      no

Objeto 1 :
      flavor price container topping
25 chocolate $2.50      cone      no

Objeto 2 :
    flavor price container topping
26 vanilla $2.50      cone      no

Objeto 3 :
       flavor price container topping
27 strawberry $2.50      cone      no

Objeto 1 :
      flavor price container topping
28 chocolate $1.50       cup      no

Objeto 2 :
    flavor price container topping
29 vanilla $1.50       cup      no

Objeto 3 :
       flavor price container topping
30 strawberry $1.50       cup      no

Objeto 1 :
      flavor price container topping
31 chocolate $2.00       cup      no

Objeto 2 :
    flavor price container topping
32 vanilla $2.00       cup      no

Objeto 3 :
       flavor price container topping
33 strawberry $2.00       cup      no

Objeto 1 :
      flavor price container topping
34 chocolate $2.50       cup      no

Objeto 2 :
    flavor price container topping
35 vanilla $2.50       cup      no

Objeto 3 :
       flavor price container topping
36 strawberry $2.50       cup      no

我想将其转换为数据帧.我try 过以下代码:

f <- as.data.frame(do.call(cbind, grupos))

得到不想要的结果

我想把它放在摇篮里的方式是

我try 了下面显示的代码

# Crear un dataframe para almacenar los escenarios reconfigurados
df_escenarios <- data.frame(matrix(ncol=3, nrow=length(escenarios)))
colnames(df_escenarios) <- c("Object 1", "Object 2", "Object 3")

# Llenar el dataframe con los escenarios
for (i in 1:length(escenarios)) {
  if (length(escenarios[[i]]) > 0) {  # Verificar que haya escenarios en el grupo
    df_escenarios[i, ] <- unlist(escenarios[[i]])
  } else {
    df_escenarios[i, ] <- NA  # Si no hay escenarios, llenar con NA
  }
}
# Imprimir el dataframe
print(df_escenarios)

但try 是空的

     Object 1 Object 2 Object 3
1        NA       NA       NA
2        NA       NA       NA
3        NA       NA       NA
4        NA       NA       NA
5        NA       NA       NA
6        NA       NA       NA
7        NA       NA       NA
8        NA       NA       NA
9        NA       NA       NA
10       NA       NA       NA
11       NA       NA       NA
12       NA       NA       NA 

提前感谢你的帮助