كيف يمكنني تطبيق وظائف مجمعة مختلفة لأعمدة مختلفة في ص?
-
13-12-2019 - |
سؤال
كيف يمكنني تطبيق وظائف مجمعة مختلفة لأعمدة مختلفة في ص?ال aggregate()
تقدم الوظيفة وسيطة دالة واحدة فقط ليتم تمريرها:
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()
وظيفة و V2
مع ال sum()
وظيفة ، دون استدعاء aggregate()
عدة مرات?
المحلول
لهذه المهمة ، وسوف تستخدم 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
نصائح أخرى
...أو الوظيفة 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
دعونا ندعو داتافريم 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))
طرق مريحة لجمع النتيجة ممكنة مثل هذا (ولكن تحقق من حزمة بلير لحل شامل ، والنظر في هذا الدافع لتعلم شيء أفضل).
matrix(unlist(lapply(split(x, x$V1), myfunkyfunctionthatdoesadifferentthingforeachcolumn)), ncol = 2, byrow = TRUE, dimnames = list(unique(x$V1), c("sum", "mean")))
لا تنتمي إلى StackOverflow