1

Rのさまざまな列にさまざまな集計関数を適用するにはどうすればよいですか？このaggregate()関数は、渡される関数の引数を1つだけ提供します。

V1  V2        V3
1   18.45022  62.24411694
2   90.34637  20.86505214
1   50.77358  27.30074987
2   52.95872  30.26189013
1   61.36935  26.90993530
2   49.31730  70.60387016
1   43.64142  87.64433517
2   36.19730  83.47232907
1   91.51753  0.03056485
... ...       ...

> aggregate(sample,by=sample["V1"],FUN=sum)
  V1 V1       V2       V3
1  1 10 578.5299 489.5307
2  2 20 575.2294 527.2222

複数回呼び出すことなく、各列に異なる関数を適用するにはどうすればよいですか？つまり、関数と関数を集約V2しますか？mean()V2sum()aggregate()

4

3 に答える 3

9

そのタスクのために、私はで使用ddplyしますplyr

> library(plyr)
> ddply(sample, .(V1), summarize, V2 = sum(V2), V3 = mean(V3))
  V1       V2       V3
1  1 578.5299 48.95307
2  2 575.2294 52.72222
于 2012-05-22T13:23:26.883 に答える
5

...またはdata.table同じ名前のパッケージ内の関数：

library(data.table)

myDT <- data.table(sample) # As mdsumner suggested, this is not a great name

myDT[, list(sumV2 = sum(V2), meanV3 = mean(V3)), by = V1]

#      V1    sumV2   meanV3
# [1,]  1 578.5299 48.95307
# [2,]  2 575.2294 52.72222
于 2012-05-22T13:40:22.663 に答える
2

すでに取得されているデータフレームxではなく、データフレームを呼び出しましょう。sample

編集：

このby関数は、分割/適用/結合よりも直接的なルートを提供します

by(x, list(x$V1), f)

：編集

lapply(split(x, x$V1), myfunkyfunctionthatdoesadifferentthingforeachcolumn)

もちろん、これは列ごとに個別の関数ではありませんが、両方のジョブを実行できます。

myfunkyfunctionthatdoesadifferentthingforeachcolumn = function(x) c(sum(x$V2), mean(x$V3))

このように、結果を照合するための便利な方法が可能です（ただし、包括的なソリューションについてはplyrパッケージを確認し、この動機を考慮して、より良いものを学習してください）。

 matrix(unlist(lapply(split(x, x$V1), myfunkyfunctionthatdoesadifferentthingforeachcolumn)), ncol = 2, byrow = TRUE, dimnames = list(unique(x$V1), c("sum", "mean")))
于 2012-05-22T13:24:31.383 に答える