カウント周波数が

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") 

の実行回数を取得：再生可能なデータ例が作る

は、 this answerとthis answer次rleを使用して、連続した日付：

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