ddply에서 회전 변수

Question

고유 한 값을 기반으로 데이터 프레임의 열에서 평균값을 얻으려고합니다. 그래서이 칼럼에서 칼럼 b와 칼럼 c의 의미를 얻으려고 시도하는 것은 칼럼 a의 고유 한 값을 기반으로합니다. 나는 (a)가 a의 고유 한 값으로 계산할 것이라고 생각했지만 (a의 고유 한 값을 제공함) 전체 b 또는 c 열의 평균을 나타냅니다.

df2<-data.frame(a=seq(1:5),b=c(1:10), c=c(11:20))  
simVars <- c("b", "c") 
for (var in simVars){ 
print(var) 

dat = ddply(df2, .(a), summarize, mean_val = mean(df2[[var]])) ## my script 
assign(var, dat) 

} 
c 

a mean_val 
1  15.5 
2  15.5 
3  15.5 
4  15.5 
5  15.5 

열의 고유 값을 기준으로 평균을 취할 수있는 방법은 무엇입니까?

감사합니다.

Answer 1

루프가 필요하지 않습니다. ddply에 대한 단일 호출 내에서 b과 c의 평균을 계산하면 수단은 a의 각 값에 대해 개별적으로 계산됩니다. 그리고, @Gregor 말했듯이, 당신은 mean() 내부의 데이터 프레임의 이름을 다시 지정할 필요가 없습니다 :

ddply(df2, .(a), summarise, 
     mean_b=mean(b), 
     mean_c=mean(c)) 

    a mean_b mean_c 
1 1 3.5 13.5 
2 2 4.5 14.5 
3 3 5.5 15.5 
4 4 6.5 16.5 
5 5 7.5 17.5 

UPDATE :

# Add a few additional columns to the data frame 
df2 = data.frame(a=seq(1:5),b=c(1:10), c=c(11:20), d=c(21:30), e=c(31:40)) 

# New data frame with means by each level of column a 
library(dplyr) 
dfmeans = df2 %>% 
    group_by(a) %>% 
    summarise_each(funs(mean)) 

# Separate each column of means into a separate data frame and store it in a list: 
means.list = lapply(names(dfmeans)[-1], function(x) { 
    cbind(dfmeans[,"a"], dfmeans[,x]) 
}) 

means.list 

[[1]] 
    a b 
1 1 3.5 
2 2 4.5 
3 3 5.5 
4 4 6.5 
5 5 7.5 

[[2]] 
    a c 
1 1 13.5 
2 2 14.5 
3 3 15.5 
4 4 16.5 
5 5 17.5 

[[3]] 
    a d 
1 1 23.5 
2 2 24.5 
3 3 25.5 
4 4 26.5 
5 5 27.5 

[[4]] 
    a e 
1 1 33.5 
2 2 34.5 
3 3 35.5 
4 4 36.5 
5 5 37.5 

: 수단의 각 열에 대한 별도의 데이터 프레임을 얻으려면