在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