按变量拆分data.frame并引用具体行应用函数

我需要按某个变量拆分

data.frame

，并计算每行的值和其他指定行的值之间的差值

在下面的示例中，我将

df

按

v1

拆分。然后，对于每行

v3

计算实际值与

v3[v2==“C”]

之间的差值

---

v1以下是一个数据表解决方案：

library(data.table)
setDT(df)
df[, new := v3 - v3[v2=="C"], by = "v1"]

a
dplyr
备选方案：
df%>%groupby（v1）%>%mutate（res=v3-v3[v2='C']）
library(data.table)
setDT(df)
df[, new := v3 - v3[v2=="C"], by = "v1"]