复制每一行数据.帧，并指定每一行的复制数量

Question

复制每一行数据.帧，并指定每一行的复制数量df <- data.frame(var1=c('a', 'b', 'c'), var2=c('d', 'e', 'f'), freq=1:3)最简单的方法是展开上面data.framework的前两列，以便每行显示列‘freq’中指定的次数？换句话说，从这一点出发：df  var1 var2 freq1    a    d    12    b    e    23    c    f    3对此：df.expanded  var1 var21    a    d2    b    e3    b    e4    c    f5    c    f6    c    f

Answer 1

这里有一个解决方案：

df.expanded <- df[rep(row.names(df), df$freq), 1:2]

结果：

    var1 var2

1      a    d

2      b    e

2.1    b    e

3      c    f

3.1    c    f

3.2    c    f

Answer 2

使用expandRows()从splitstackshape一揽子：

library(splitstackshape)

expandRows(df, "freq")

简单的语法，非常快，工作在data.frame或data.table.

结果：

    var1 var2

1      a    d

2      b    e

2.1    b    e

3      c    f

3.1    c    f

3.2    c    f

Answer 3

旧疑问句中的新动词：

library(tidyr) # version >= 0.8.0

df <- data.frame(var1=c('a', 'b', 'c'), var2=c('d', 'e', 'f'), freq=1:3)

df %>% 

  uncount(freq)

    var1 var2

1      a    d

2      b    e

2.1    b    e

3      c    f

3.1    c    f

3.2    c    f

Answer 4

不是为了data.table因为他们缺少row.names财产。这种方法适用于以下两种情况：

df.expanded <- df[rep(seq(nrow(df)), df$freq), 1:2]

密码data.table是一点清洁剂：

# convert to data.table by referencesetDT(df)df.expanded <- df[rep(seq(.N), freq), !"freq"]