如何从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