總和/平均值不同列

Question

我有在數據幀中4列

a <- data.frame(a=c(1,2,3,4), b=c(4,5,6,7), c=c(7,6,5,4), d=c(8,4,3,2)) 

我要平均前兩列和最後兩列以獲得一個數據幀與平均相同NROWS的兩列

5 15 
7 10 
9 8 
11 6 

Answer 1

要重現你的輸出（即總和，並不代表）：

前兩列和最後兩列

預期輸出的

library(plyr) 
ddply(a, .(), summarise, first=a+b, second=c+d)[,-1] 

它產生：

first second 
1  5  15 
2  7  10 
3  9  8 
4 11  6 

爲了data.frame與平均值：

ddply(a, .(), summarise, first=(a+b)/2, second=(c+d)/2)[,-1] 

輸出是：

first second 
1 2.5 7.5 
2 3.5 5.0 
3 4.5 4.0 
4 5.5 3.0 

如果你不知道列的名字代碼像這樣修改：

ddply(a, .(), summarise, first=a[,1]+a[,2], second=a[,3]+a[,4])[,-1] 

在這裏按順序訪問列。或者，您可以在ddply()之前運行names(a) <- letters[1:4]。

ddply是非常靈活的函數，您可以指定分組變量作爲第二個參數並獲得分組結果。但是，如果情況如問題一樣簡單，你可以直接打電話summarise：

summarise(a, first=a+b, second=c+d)     # if you know columns' names 
summarise(a, first=a[,1]+a[,2], second=a[,3]+a[,4]) # if you don't know columns' names