r - 在数据帧上的 ddply / mapply 之前压缩

Question

我有一个数据框：

> s <- expand.grid(c(T,F),c(T,F))
> s
   Var1  Var2
1  TRUE  TRUE
2 FALSE  TRUE
3  TRUE FALSE
4 FALSE FALSE

并希望多次复制每一行，并将其存储在一个向量中：

> r <- c(2,3,4,1)

你知道怎么做吗？在函数式编程术语中，它只是对压缩列表、复制和收集的映射。

我不确定如何使用plyr进行 zip或使用mapply...

Answer 1

比这容易得多：

s[rep(1:4,times = r),]
     Var1  Var2
1    TRUE  TRUE
1.1  TRUE  TRUE
2   FALSE  TRUE
2.1 FALSE  TRUE
2.2 FALSE  TRUE
3    TRUE FALSE
3.1  TRUE FALSE
3.2  TRUE FALSE
3.3  TRUE FALSE
4   FALSE FALSE