从所有后续行中减去第一行

Question

从以下数据集中，我想从所有后续行（它们的标签的片段）中减去标记为“BLK”的行中的值。

 label   Int_A Int_B Int_C
 BLK     10    20    30    
 SMP     12.5  22.5  35    
 STD     15    25    40    

期望的输出：

 label   Int_A Int_B Int_C 
 BLK     10    20    30    
 SMP     2.5   2.5   5    
 STD     5     5     10   

BLK行保持不变或将设置为零无关紧要。

不幸的是，我发现的所有答案只考虑一个变量，而不是全部。 我尝试使用dplyr包，尤其是rowwise()和rowwise() transmute()不需要保留旧值）但是在调用整行而不仅是某个变量时也失败了。 在基本的RI中也尝试过（并且失败了）但是使用dplyr会更好，因为整个数据集可能存在多个这些部分，并且group_by()使用单独的列很容易进行子集化。

如果你能给我一些建议或所需的代码，我将非常高兴。

Answer 1

如果我们需要从其他行中减去first行，请使用mutate_at指定数字列的索引或mutate_if ，然后从列的所有元素中减去第first元素

library(dplyr)
df1 %>% 
    mutate_at(2:4, funs(c(first(.), (. - first(.))[-1])) )

---

或者使用mutate_if

df1 %>%
    mutate_if(is.numeric, funs(c(first(.), (. - first(.))[-1])) )

Answer 2

df[-1, -1] <- df[-1 , -1] - df[rep(1, nrow(df) - 1), -1]
df
#   label Int_A Int_B Int_C
# 1   BLK  10.0  20.0    30
# 2   SMP   2.5   2.5     5
# 3   STD   5.0   5.0    10

从相关的行和列df[-1 , -1] ，减去rep所需行数的第一行（ nrow(df) - 1 ）。

Answer 3

作为替代使用没有包：

diff是与df相同大小的矩阵，第一行为0，其余为df中的第一行。 然后简单地减去。

df <- mtcars

diff <- matrix(c(rep(0,ncol(df)),rep(as.numeric(df[1,]),nrow(df)-1)),nrow=nrow(df),ncol=ncol(df),byrow=T)

df - diff