如何從r中的其他行中減去一行？

Question

我有一個數據幀與許多列和行，我需要爲每列減去其他行的第一行 。

C1 C2 C3 
3 7 9 
4 9 4 
7 6 11 
9 4 8 

Answer 1

實際上，你可以很直接相減，但你需要提供第一行作爲list：

mydf - as.list(mydf[1, ]) 
# C1 C2 C3 
# 1 0 0 0 
# 2 1 2 -5 
# 3 4 -1 2 
# 4 6 -3 -1 

## OR 
mydf - c(mydf[1, ]) 

Answer 2

我們可以複製的第一行創建長度相同，然後做差價。

df1-df1[1,][col(df1)] 
# C1 C2 C3 
#1 0 0 0 
#2 1 2 -5 
#3 4 -1 2 
#4 6 -3 -1 

或者另一種選擇是調換（t）數據集，得到的差異，又轉了，這可能是低效率的

t(t(df1)- unlist(df1[1,])) 
#  C1 C2 C3 
#[1,] 0 0 0 
#[2,] 1 2 -5 
#[3,] 4 -1 2 
#[4,] 6 -3 -1