我的原始数据截取如下：
1 1 1 0 0 0 1 1 0 0 1 0 0 1 1 1 1 0 0 0

“1”表示出现A事件，“0”表示出现B事件，“1 1 1 ”表示事件A持续3天，“0 0 0”表示事件B持续3天。

现想把原始数据转换如下：
0 0 3 0 0 0 0 2 0 0 1 0 0 0 0 0 4 0 0 0

转换后数据 “3”表示A事件第一次出现，持续3天，“2”表示A事件第二次出现，持续2天，“1”表示A事件第三次出现，持续1天，“4”表示A事件第四次出现，持续4天。


不知道R如何实现这种数据的形式转换，
求助，感谢感谢！！！