如何在每年内获得每周的平均销售额?

时间:2018-04-06 11:41:46

标签: r for-loop

我试图获得每年每周的平均销售额,我用过:

weekavg <- aggregate(dod$Amount,list(dod$week),mean) 

其中dod是我的df的名称,如下图所示。

结果给了我一个只有53行的列表,即仅53周 - 一年总计。

如何获得每年显示的o / p,即53 + 52 + 52 = 157行表示3年。我知道我的数据不完整,并没有完整的157周,但我想知道逻辑,所以我可以实现它。任何帮助将不胜感激。

DOD:

Date    Amount year month      wday week wdayno
1     4/1/2015  38086.24 2015     4 Wednesday   13      3
2     4/2/2015  35426.65 2015     4  Thursday   14      4
3     4/3/2015  37170.98 2015     4    Friday   14      5
4     4/4/2015  36022.90 2015     4  Saturday   14      6
5     4/5/2015  28979.28 2015     4    Sunday   14      0
6     4/6/2015  28416.63 2015     4    Monday   14      1
7     4/7/2015  34945.63 2015     4   Tuesday   14      2
8     4/8/2015  17003.61 2015     4 Wednesday   14      3
9     4/9/2015  40903.74 2015     4  Thursday   15      4
10   4/10/2015  34091.52 2015     4    Friday   15      5

**] 1

weekavg输出:

..
...
42      42 36857.81
43      43 35191.18
44      44 37929.33
45      45 37601.31
46      46 37536.39
47      47 38021.44
48      48 38130.23
49      49 40730.46
50      50 35682.76
51      51 37400.04
52      52 38200.43
53      53 49619.85

1 个答案:

答案 0 :(得分:3)

我们还需要在分组

中设置year
aggregate(Amount~ week + year, data = dod, mean)