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

vector に格納されている各行を何度も複製したいと考えています。

> 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