R을 먼저 집계하여 표를 만들보다 평균을 취하십시오

Question

저는 R이 매우 새롭습니다. 나는 이걸 가지고 어떤 사람이 나를 도울 수 있기를 바랍니다. 나는 다음과 같은 예를 들어 보이는하는 data.frame 있습니다

Year month d class 
2009 200901 1 a 
2009 200901 1 b 
2009 200902 2 a 
2009 200902 1 b 
2009 200902 1 c 
2009 200903 5 a 
2009 200903 1 b 
2009 200903 1 c 
2009 200903 3 a 
2010 201001 1 a 
2010 201001 4 b 
2010 201002 1 a 
2010 201002 7 b 
2010 201002 1 c 
2010 201003 2 a 
2010 201003 4 b 
2010 201003 2 c 
2010 201003 1 a 

내가 그들을 밖으로 교차 테이블을하고 싶다 그 결과이

Year  a  b  c 
2009  3.667 1  0.667 
2010  1.667 5  1 

처음과 같을 것이다 나는 요약 싶습니다 한 달에 한 달에 한 번씩 모든 데이터를 수집 한 다음, 각 달에 대한 평균을 취하여 각 반에 대한 연간 수를 얻으십시오.

고마워요.

Answer 1

이 (DF는 원래의 데이터 프레임이다) 시도 :

df 

    Year month d class 
1 2009 200901 1  a 
2 2009 200901 1  b 
3 2009 200902 2  a 
4 2009 200902 1  b 
5 2009 200902 1  c 
6 2009 200903 5  a 
7 2009 200903 1  b 
8 2009 200903 1  c 
9 2009 200903 3  a 
10 2010 201001 1  a 
11 2010 201001 4  b 
12 2010 201002 1  a 
13 2010 201002 7  b 
14 2010 201002 1  c 
15 2010 201003 2  a 
16 2010 201003 4  b 
17 2010 201003 2  c 
18 2010 201003 1  a 

library(reshape2) 
df1 <- aggregate(d ~ month + class + Year, df, sum) 
df1 <- aggregate(d ~ class + Year, df1, mean) 
dcast(df1, Year~class) 

    Year  a b c 
1 2009 3.666667 1 1.0 
2 2010 1.666667 5 1.5 

Answer 2

dat이 dataframe입니다 tidyr와 dplyr,있는 솔루션입니다.

library(tidyr) 
library(dplyr) 

dat %>% group_by(Year, month,class) %>% summarise(d=sum(d)) %>% 
    spread(class, d) %>% group_by(Year) %>% 
     summarise(a=mean(a,na.rm=T),b=mean(b,na.rm=T),c=mean(c,na.rm=T)) 

출력은 다음과 같습니다 reshape` 패키지`에서 cast``에 대한

# A tibble: 2 x 4 
    Year  a  b  c 
    <int> <dbl> <dbl> <dbl> 
1 2009 3.666667  1 1.0 
2 2010 1.666667  5 1.5