<R> 各列にたしいて平均を算出して新規の列を作成

Question

dfの各列に対して平均を計算して別の列に加えることは可能でしょうか。
地道に書くとこのようなコードなのですが・・・

df <- data_frame(a=1:10, b=2:11, c=rep(1,10))
df$mean_a <- mean(df$a)
df$mean_b <- mean(df$b)
df$mean_c <- mean(df$c)

データフレームの各列に対して、平均を求めて、新しく列を作成してそこにいれるということが上手くできずに困っています。

apply やpurrr (map)を試してみたのですが、列の名前(mean_a など)を上手く規定できずにエラーになってしまいます。

実際はa/b/cだけではなく非常に多い列数を扱うので、簡略化したいのですがどなたかご教示いただけないでしょうか。

お忙しいところ恐縮ですがよろしくお願いいたします。

Answer 1

「データフレームの各列に対して」何かをしたいなら、まずsapply()の適用を考えるといいと思います。
「新しく列を作成して」というのは、文脈を考えると「新しい行に」という意味だと思いますが、これはrbind()を使えばできます。

Comments

[mourinho384]

ご回答ありがとうございます。
となると、
sapply関数でベクトルを作成して、rbindで新規の列を作るのはわかるのですが、
mean_a / mean_bのように新しい列名を作成できず困ってしまいました・・・

[KojiDoi]

そもそも、a列の平均を新しい「列」に書くというのがおかしいと思うんですが?　最終的にどんな表を作りたいのですか?

Answer 2

以下の例では
一旦平均だけを別表に書き出す処理を行い，もとの表にくっつけるといった
方法になりますが，新しい列名の作成は機械的に可能かと思います．

df <- data_frame(a=1:10, b=2:11, c=rep(1,10))

#新しい列名を作成
colName<-paste("mean",colnames(df),sep="_")


#列ごとの平均を計算

Mean_mat<-matrix(apply(df,2,mean),
                 nrow = 1,ncol = ncol(df),dimnames = list(c(),colName))

#もとのデータフレームにくっつける
df<-cbind(df,Mean_mat)

Comments

[mourinho384]

yykiさん　ありがとうございます。
望んていた形で、

#新しい列名を作成
colName<-paste("mean",colnames(df),sep="_")

#列ごとの平均を計算

Mean_mat<-matrix(apply(df,2,mean),
nrow = 1,ncol = ncol(df),dimnames = list(c(),colName))

が全く思い浮かばなかったです・・・
ありがとうございます。

KojiDoiさまもありがとうございました。またよろしくお願いいたします