計算を行うための方法が分からない

Question

以下の様なdataframeがある時

1. status=1の各typeの平均値を算出する
2. status=2の各typeそれぞれの値に、1で出した各typeの平均値を足す

という操作を行いたいです。

data.frame(status=rep(c(1,2),times=65),type1=rep(LETTERS,each=5),number=runif(130))

具体的には
status1のAの平均値を、status2のAのそれぞれに足す
status1のBの平均値を、status2のBのそれぞれに足す
というような感じです

1はtapplyで何とかできるんですが、2はどのように実行したらよいでしょうか。

よろしくお願いします。

Answer 1

dplyrライブラリを用いて

library(dplyr)

df<-data.frame(status=rep(c(1,2),times=65),type1=rep(LETTERS,each=5),number=runif(130))

tmp1<-as.data.frame(df %>% filter(status == 1) %>% group_by(type1) %>% summarize(mean = mean(number)))
tmp2<-as.data.frame(df %>% filter(status == 2) %>% group_by(type1) %>% summarize(mean = mean(number)))
out<-as.data.frame(left_join(tmp1, tmp2, by = 'type1'))
names(out)<-c('type1', 'mean.status_1', 'mean.status_2')

out$ans<-out$mean.status_1 + out$mean.status_2

こんな感じでoutのans列に結果が入ります。

Comments

[退会済みユーザー]

回答ありがとうございます。大変参考になりました。
やはりdplyrは便利ですね。それなりに使いこなせるようきちんと勉強致します。

お世話になりました。