Используйте rle():
rle()
y <- rle(c(1,0,0,0,1,0,0,0,0,0,2,0,0)) y$lengths[y$values==0]
Простой ответ: нет, это невозможно