毎月の合計を集計し、すべての毎月の合計

Question

の平均値を取得し、リストの下に次のコード使用して時系列に各月に対応するデータの合計です：

aggregate(data, by=list(Year=format(DateTime, "%Y"), Month=format(DateTime, "%m")), sum, na.rm=TRUE) 

Year Month  x 
1 1981 01 62426.43 
2 1982 01 70328.87 
3 1983 01 67516.34 
4 1984 01 64454.00 
5 1985 01 78801.46 
6 1986 01 73865.18 
7 1987 01 64224.96 
8 1988 01 72362.39 
9 1981 02 74835.16 
10 1982 02 75275.58 
11 1983 02 67457.39 
12 1984 02 64981.99 
13 1985 02 56490.10 
14 1986 02 62759.89 
15 1987 02 65144.44 
16 1988 02 67704.67 

この部分は簡単ですが...しかし、

aggregate(data, by=list(Month=format(DateTime, "%m")), sum, na.rm=TRUE) 

私はすべての合計を取得する：私は次のような場合、私は、各月のすべての月額の合計の平均（各月の合計のすなわち、1回の平均） を取得しようとしている上にトリップしています時系列の何ヶ月か、これは私が望んでいないものです。私は1つの集計ステートメントで望ましい結果を得ることができますか、または私はより多くのコードが必要です...任意の助けをいただければ幸いです。

Answer 1

あなたは2つのaggregate文でそれを行うことができます。

aggregate(x~Month, aggregate(data, by=list(Year=format(DateTime, "%Y"), Month=format(DateTime, "%m")), sum, na.rm=TRUE), mean) 

Answer 2

あなたはまたaggregateに1回の呼び出しでそれを行っている可能性が：私はいけない

aggregate(data, 
      by=list(Year=format(DateTime, "%Y"), Month=format(DateTime, "%m")), 
      FUN= function(x){ sum(x, na.rm=TRUE)/sum(!is.na(x))} 
      )