计算记录的数量，并在data.table中的每个组中生成行号

I have the following data.table

我有下面的数据。

set.seed(1)DT <- data.table(VAL = sample(c(1, 2, 3), 10, replace = TRUE))    VAL 1:   1 2:   2 3:   2 4:   3 5:   1 6:   3 7:   3 8:   2 9:   210:   1se