R編程（產品總和）

Question

我正在研究如何找到兩個數據框產品的總和。

data<-w1 w2 w3 w4 
     4 6 8 5 

其中，W1，W2，W3 W4是列名

，我又多了一個數據幀

data2<-p1 p2 p3 p4 
     3 4 5 6 
     5 6 8 4 
     4 6 6 8 
     3 5 8 9 

我的結果應該是這樣的：

result <- w1*P1+w2*p2+w3*p3*w4*p4  

result1 <- 4*3+6*4+8*5+5*6 # result on row 1 

result2 <- 4*5+6*6+8*8+5*4 # result on row 2 

等了數據中的每一行2

如何在一般

感謝爲此

Answer 1

最快的方法就是回來R線性代數（甚至更多的是你有大data.frame的）：

> as.matrix(data2) %*% unlist(data) 
#  [,1] 
#[1,] 106 
#[2,] 140 
#[3,] 140 
#[4,] 151 

或者sweep：

> rowSums(sweep(as.matrix(data2), 2, unlist(data), `*`)) 
#[1] 106 140 140 151 

數據

data=data.frame(a=4,b=6,c=8,d=5) 
data2=data.frame(a=c(3,5,4,3),b=c(4,6,6,5),c=c(5,8,6,8),d=c(6,4,8,9)) 

Answer 2

你可以使用mapply：

df1 <- data.frame(w1 = 4, w2 = 6, w3 = 8, w4 = 5) 
df2 <- data.frame(p1 = c(3, 5, 4, 3), p2 = c(4, 6, 6, 5), 
        p3 = c(5, 8, 6, 8), p4 = c(6, 4, 8, 9)) 

這相乘DF2的每個元素與DF1的每個元素（由元素我的意思是列 - 數據幀

> (tmp <- mapply(`*`, df2, df1)) 
    p1 p2 p3 p4 
[1,] 12 24 40 30 
[2,] 20 36 64 20 
[3,] 16 36 48 40 
[4,] 12 30 64 45 
>sum(tmp) 
[1] 537 

編輯如果你想要得到的總和○：在這種情況下的列表）處理f起上述矩陣的每一行，你可以使用apply(tmp, 1, sum)或rowSums：

> rowSums(tmp) 
[1] 106 140 140 151