在r中扩展频率表

Question

大家好，我正在努力解决一些我觉得应该很容易的问题。

我有一个如下所示的数据集

Var1 Var2 Var3 Var4 Count
 a    b    c     d    10
 z    a    c     f    3

我只需要一个根据计数复制行的函数。所以我最终得到一个有13行的新数据框或数据表。

我正在尝试使用rep()函数执行此操作，但它无法正常工作。

dat <- read.table(text="Var1 Var2 Var3 Var4 Count
 a    b    c     d    10
 z    a    c     f    3", header=TRUE)

Answer 1

这样的事情是标准的：

dat[rep(1:nrow(dat), dat[["Count"]]), ]

##     Var1 Var2 Var3 Var4 Count
## 1      a    b    c    d    10
## 1.1    a    b    c    d    10
## 1.2    a    b    c    d    10
## 1.3    a    b    c    d    10
## 1.4    a    b    c    d    10
## 1.5    a    b    c    d    10
## 1.6    a    b    c    d    10
## 1.7    a    b    c    d    10
## 1.8    a    b    c    d    10
## 1.9    a    b    c    d    10
## 2      z    a    c    f     3
## 2.1    z    a    c    f     3
## 2.2    z    a    c    f     3