Подсчет частоты Непрерывные Даты

Question

У меня есть data.frame в виде:

Date 
2011-08-16 
2011-08-17 
2011-08-28 
2011-09-01 
2011-09-05 
2011-09-06 
2011-10-01 
2011-10-02 
2011-10-03 
2011-10-04 

То, что я хотел бы сделать, это принять отсчет пробега, когда даты происходят в порядке т.е. они бок о бок.

В приведенном выше примере, мы имели бы 2,1,1,2,4

Answer 1

Как об этом:

Сделать воспроизводимый пример данные:

dat <- read.table(text = "2011-08-16 
2011-08-17 
2011-08-28 
2011-09-01 
2011-09-05 
2011-09-06 
2011-10-01 
2011-10-02 
2011-10-03 
2011-10-04") 

Получить счетчик пробега последовательные даты с помощью rle, следующие this answer и this answer:

(rle (cumsum(c(0, diff(as.Date(dat$V1)) > 1))))$lengths 
[1] 2 1 1 2 4