如何根据多列其他列中的值减去一列中的值？

107

爆发

我有一个这样的数据框：

dat <- data.frame(c = c(rep(0, 3), rep(5, 3), rep(10, 3)),
                  id = c(rep(c("A","B","C"), 3)),
                  measurement = c(1:8, 1))

dat
#    c id measurement
# 1  0  A           1
# 2  0  B           2
# 3  0  C           3
# 4  5  A           4
# 5  5  B           5
# 6  5  C           6
# 7 10  A           7
# 8 10  B           8
# 9 10  C           1

我想从此列中的所有其他值中减去c为0的“测量”列中的值。这应该根据“ id”列中提供的信息单独进行。例如，应从c> 0且“ id”为A的所有值中减去c为0且“ id”为A的值。应从所有其中c为0且“ id”为B的值中减去c> 0，“ id”为B，依此类推。

如果差异为负，则结果应为0。

结果应如下所示：

result <- data.frame(c = c(rep(0, 3), rep(5, 3), rep(10, 3)),
                 id = c(rep(c("A","B","C"), 3)),
                 measurement = c(1:8, 1),
                 difference = c(0,0,0,3,3,3,6,6,0))

result
#    c id measurement difference
# 1  0  A           1          0
# 2  0  B           2          0
# 3  0  C           3          0
# 4  5  A           4          3
# 5  5  B           5          3
# 6  5  C           6          3
# 7 10  A           7          6
# 8 10  B           8          6
# 9 10  C           1          0

我使用dplyr根据其他列中的信息选择“测量”的值，但是不幸的是我不知道如何进行计算。因此，欢迎提出任何建议！

罗纳克·沙

id您可以为每个measurement值减去其中的值c = 0。使用pmax我们将负值替换为0。

library(dplyr)

dat %>%
  group_by(id) %>%
  mutate(difference = pmax(measurement - measurement[c == 0], 0))

#     c id    measurement difference
#  <dbl> <chr>       <dbl>      <dbl>
#1     0 A               1          0
#2     0 B               2          0
#3     0 C               3          0
#4     5 A               4          3
#5     5 B               5          3
#6     5 C               6          3
#7    10 A               7          6
#8    10 B               8          6
#9    10 C               1          0

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。