如何从 R 中的其他组中减go 一个组

发布于11月16日

x <- read.csv(text="Group,X,Y
1,1,2
1,2,5
1,3,8
1,4,9
2,1,1
2,2,4
2,3,8
2,4,10
3,1,6
3,2,7
3,3,8
3,4,12")

我的目标是将组1，Y减go 组1，Y，组2，Y和组3，Y.因此，结果数据帧如下所示

x <- read.csv(text="Group,X,Y,Z
1,1,2,0
1,2,5,0
1,3,8,0
1,4,9,0
2,1,1,-1
2,2,4,-1
2,3,8,0
2,4,10,1
3,1,6,4
3,2,7,2
3,3,8,0
3,4,12,3")

我怎样才能做到这一点呢？我做了一些大致如下的事情:

        group_by(Group) %>%
        mutate(Z = dataset2[Group != 1]-dataset2[Group == 1])```

推荐答案

你不需要group_by，你可以像这样用Y[Group == 1]减go 第Y列:

library(dplyr)
x %>%
  mutate(Z = Y - Y[Group == 1])
#>    Group X  Y  Z
#> 1      1 1  2  0
#> 2      1 2  5  0
#> 3      1 3  8  0
#> 4      1 4  9  0
#> 5      2 1  1 -1
#> 6      2 2  4 -1
#> 7      2 3  8  0
#> 8      2 4 10  1
#> 9      3 1  6  4
#> 10     3 2  7  2
#> 11     3 3  8  0
#> 12     3 4 12  3

^{创建于2022-11-16年第reprex v2.0.2页}