r - 在 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