2017-12-27 58 views
0

我的第一行是添加下列行的參考值(對於N列)。保留第一行作爲參考的Dataframe中的計算

數據

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 

請幫助。謝謝。

回答

5

也許只是這樣的:

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") 
+0

能否請你解釋c實際上在這裏意味着什麼 – Pradnya

+0

@pradnya,它只是將'data.frame'部分剝離,留給我們一個'list'。 – A5C1D2H2I1M1N2O1R2T1

+0

@pradnya,把它想成'mydf [-1,] + list(3,5,1,2)'.... – A5C1D2H2I1M1N2O1R2T1

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 
0

如果你想在你的初始數據幀來代替值與...一起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 

希望這是有幫助的!