根据特定列中的值重复数据框中的行

Question

这个问题已经有答案了:

Repeat each row of data.frame the number of times specified in a column (10 个回答)

已关闭 4 年前。

我想根据samples重复数据框中的整行。专栏。

我的输入:

df <- 'chr start end samples
        1   10   20    2
        2   4    10    3'
df <- read.table(text=df, header=TRUE)

我的预期输出:

df <- 'chr start end  samples
        1   10   20   1-10-20-s1
        1   10   20   1-10-20-s2
        2   4    10   2-4-10-s1
        2   4    10   2-4-10-s2
        2   4    10   2-4-10-s3'

知道如何明智地执行它吗？

Answer 1

我们可以使用expandRows根据'samples'列中的值展开行，然后转换为data.table，按'chr'分组，我们使用 sprintf 将列与行序列粘贴在一起以更新“样本”列。

library(splitstackshape)
setDT(expandRows(df, "samples"))[,
     samples := sprintf("%d-%d-%d-%s%d", chr, start, end, "s",1:.N) , chr][]
#  chr start end    samples
#1:   1    10  20 1-10-20-s1
#2:   1    10  20 1-10-20-s2
#3:   2     4  10  2-4-10-s1
#4:   2     4  10  2-4-10-s2
#5:   2     4  10  2-4-10-s3

注意:当我们加载splitstackshape时，data.table将会被加载。