保留第一行作爲參考的Dataframe中的計算

Question

我的第一行是添加下列行的參考值（對於N列）。

數據

A B C D 
3 5 1 2 

1 4 5 3 
2 2 2 4 
3 1 3 1 
4 3 1 2 

計算如下：

• 3，是被添加的參考值，它是3應被添加到1，2，3和4中，類似地5是參考值 - 被加到4,2,1,3，然後1被參考值加到5,2,3,1等等直到n列。

  1 + 3 4 + 5 5 + 1 3 + 2 
  2 + 3 2 + 5 2 + 1 4 + 2 
  3 + 3 1 + 5 3 + 1 1 + 2 
  4 + 3 3 + 5 1 + 1 2 + 2 
  

預期輸出：

A B C D 
4 9 6 5 
5 7 3 6 
6 6 4 3 
7 8 2 4 

請幫助。謝謝。

Answer 1

也許只是這樣的：

c(mydf[1, ]) + mydf[-1, ] 
## A B C D 
## 2 4 9 6 5 
## 3 5 7 3 6 
## 4 6 6 4 3 
## 5 7 8 2 4 

---

開始data.frame：

mydf <- structure(list(A = c(3L, 1L, 2L, 3L, 4L), B = c(5L, 4L, 2L, 1L, 
    3L), C = c(1L, 5L, 2L, 3L, 1L), D = c(2L, 3L, 4L, 1L, 2L)), .Names = c("A", 
    "B", "C", "D"), row.names = c(NA, 5L), class = "data.frame") 

Answer 2

我們可以做

(df1[1,][col(df1)] + df1)[-1,] 
# A B C D 
#2 4 9 6 5 
#3 5 7 3 6 
#4 6 6 4 3 
#5 7 8 2 4 

Answer 3

如果你想在你的初始數據幀來代替值與...一起EW值，你可以做到以下幾點：

df <- data.frame(c(3,1,2,3,4), c(5,4,2,1,3), c(1,5,2,3,1), c(2,3,4,1,2)) 
names(df) <- c("A", "B", "C", "D") 

for (i in 2:nrow(df)) { 
    for (j in 1:ncol(df)) { 
    df[i,j] <- df[1,j] + df[i,j] 
    } 
} 

這也許可以矢量化運行，如果你有一個非常大的數據幀這將是有益的速度更快，但如果你需要一個快速和骯髒的解決方案，將工作。

輸出：

A B C D 
1 3 5 1 2 
2 4 9 6 5 
3 5 7 3 6 
4 6 6 4 3 
5 7 8 2 4 

希望這是有幫助的！