如何从汇总数据转到原始数据

Question

我首先要使用r生成多项分布式数据，然后我希望数据采用“原始”形式。举个例子，假设我已经通过

生成了数据

 set.seed(1)
 df <- as.data.frame(cbind(rmultinom(1, 13, c(0.1, 0.3, 0.4, 0.2)), seq(from = 0, to = 3, by = 1)))

我得到了

  V1 V2
  3  0
  2  1
  4  2
  4  3

然后，我想要在单个级别的向量中的数据，使其看起来像

0, 0, 0, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3

有一种简单的方法吗？我是新手，并不像我想象的那么容易。我试图创建一个类似于

的函数

xcv <- vector(length = m)


asdf <- function(x, n){
 for(i in 1:n){
   xcv[j] <-  seq(from = x[i,2], to = x[i,2], length.out = x[i,1])  

 }
return(xcv)
}

这根本不起作用，所以我希望得到一些帮助。