rleid函数的SAS等价

data.table 有一个功能 rleid 雷德 y rleid(x) .

library(data.table)
ex <- data.frame(x = c(1, 1, 4, 4, 1, 3, 3, 4, 4, 4, 1))
ex$y <- rleid(ex$x)
print(ex)

#    x y
# 1  1 1
# 2  1 1
# 3  4 2
# 4  4 2
# 5  1 3
# 6  3 4
# 7  3 4
# 8  4 5
# 9  4 5
# 10 4 5
# 11 1 6

最好的创作方法是什么 在SAS中为下面的数据集(在这里 x 与R示例相同)

data ex;
input x;
cards;
1
1
4
4
1
3
3
4
4
4
1
;
run;