根据R中的条件创建重复的行 [英] Create duplicate rows based on conditions in R

问题描述

我有一个数据表，看起来像这样

I have a data.table that looks like this

dt <- data.table(ID=c("A","A","B","B"),Amount1=c(100,200,300,400),
                 Amount2=c(1500,1500,2400,2400),Dupl=c(1,0,1,0))

   ID Amount1 Amount2 Dupl
1:  A     100    1500    1
2:  A     200    1500    0
3:  B     300    2400    1
4:  B     400    2400    0

我需要复制Dupl列中具有1的每一行，并在该重复的行中将Amount1值替换为Amount2值.除此之外，我需要在Dupl中为重复的行赋予值2.这意味着它应该像这样:

I need to duplicate each row that has a 1 in the Dupl column and replace the Amount1 value with the Amount2 value in that duplicated row. Besides that I need to give that duplicated row the value 2 in Dupl. This means it should look like this:

   ID Amount1 Amount2 Dupl
1:  A     100    1500    1
2:  A    1500    1500    2
3:  A     200    1500    0
4:  B     300    2400    1
5:  B    2400    2400    2
6:  B     400    2400    0

非常感谢您的帮助！ 亲切的问候，

Any help is much appreciated! Kind regards,

蒂姆

推荐答案

您可以尝试

rbind(dt,dt[Dupl==1][,c('Amount1', 'Dupl') := list(Amount2, 2)])

这篇关于根据R中的条件创建重复的行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！