在数据框列中为连续的1生成唯一的ID。

Question

我想在我的数据框中创建一个名为“ ID”的新列，该列为“ x”列中的每个连续1集提供一个ID号，而“ x”列中的所有0都在ID中获得0 ID列。

demo <- data.frame(x=c(1,1,1,1,1,0,1,1,1,0,1,1,1,1,0,0,0,1,1,1),
                   score = c(19, 16, 16, 5, 10,15,19,20,21,5,6,3,10,15,19,20,19,15,16,5))

这就是我的想法：