在R中合并列表元素

Question

我有一个列表，形式为list(c(x1,x2),y,c(z1,z2))。 我想将列表中每个元素的子元素组合起来，生成如下的矩阵：

[1] x1 y z1

[2] x1 y z2

[3] x2 y z1

[4] x2 y z2

举个具体的例子，假设有：

A = list(c(1,4),2,3,c(1,4))

我希望有一个函数，能够接收A并生成与此命令生成的输出完全相同的结果：

t(matrix(c(c(1,2,3,1),1:4,c(4,2,3,1),c(4,2,3,4)),ncol=4))

- user1643809

Answer 1

使用expand.grid函数：

expand.grid(A)
#   Var1 Var2 Var3 Var4
# 1    1    2    3    1
# 2    4    2    3    1
# 3    1    2    3    4
# 4    4    2    3    4

如果顺序真的很重要，你可以这样做：

rev(expand.grid(rev(A)))
#   Var4 Var3 Var2 Var1
# 1    1    2    3    1
# 2    1    2    3    4
# 3    4    2    3    1
# 4    4    2    3    4

并可能重命名列。

- flodel