我如何使用dplyr根据两列值给出相同的行号

Question

数据集看起来

var1 var2
a    1
a    1
b    2
b    2
a    1
a    1
c    3 
c    3

新数据集应为：

var1 var2 id
a    1    1
a    1    1
b    2    2
b    2    2
a    1    3
a    1    3
c    3    4
c    3    4

Answer 1

我使用data.table

df1<-
data.table::fread("var1 var2
a    1
a    1
b    2
b    2
a    1
a    1
c    3 
c    3")

df1$id <- data.table::rleidv(df1)

#   var1 var2 id
#1:    a    1  1
#2:    a    1  1
#3:    b    2  2
#4:    b    2  2
#5:    a    1  3
#6:    a    1  3
#7:    c    3  4
#8:    c    3  4