R - 毎週土曜日の開始日を週に1回集計します。

Question

私は毎日のデータを持っており、土曜日から週を週に変換したいと思います。

date value 
1 11/5/2016 30 
2 11/6/2016 20 
3 11/7/2016 12 
4 11/8/2016 22 
5 11/9/2016 48 
6 11/10/2016 50 
7 11/11/2016 47 
8 11/12/2016 12 
9 11/13/2016 19 
10 11/14/2016 31 
11 11/15/2016 43 
12 11/16/2016 26 
13 11/17/2016 33 
14 11/18/2016 36 
15 11/19/2016 14 
16 11/20/2016 15 
17 11/21/2016 36 
18 11/22/2016 38 
19 11/23/2016 28 
20 11/24/2016 21 
21 11/25/2016 13  

私は次のことを試してみましたが、私は、出力が週の始まりとして土曜日によって集約させたい

data = as.xts(df$value,order.by=as.Date(df$date)) 
weekly = apply.weekly(data,sum) 

月曜日の週の開始を前提としています。 xtsコールで

Answer 1

order.by文はDateクラス

data <- xts(df$value, order.by = as.Date(df$date, '%m/%d/%Y')) 
tapply(data[,1], cumsum(format(index(data), '%w')==6), sum)