根据另一个 tibble 从 tibble 列中减去值

Question

假设我有一些值：

raw = tibble(
    group = c("A", "B", "C", "A", "B", "C"),
    value = c(10, 20, 30, 40, 50, 60)
)

# A tibble: 6 x 2
  group value
  <chr> <dbl>
1     A    10
2     B    20
3     C    30
4     A    40
5     B    50
6     C    60

我想从我的 tibble 中的每个值中减去一定数量，具体取决于它属于哪个组。我需要减去的金额在另一个标题中：

corrections = tibble(
    group = c("A", "B", "C"),
    corr = c(0, 1, 2)
)

# A tibble: 3 x 2
  group  corr
  <chr> <dbl>
1     A     0
2     B     1
3     C     2

实现此目的最优雅的方法是什么？以下是可行的，但我觉得它很乱 - 肯定还有另一种方法吗？

mutate(raw, corrected = value - as_vector(corrections[corrections["group"] == group, "corr"]))

# A tibble: 6 x 3
  group value corrected
  <chr> <dbl>     <dbl>
1     A    10        10
2     B    20        19
3     C    30        28
4     A    40        40
5     B    50        49
6     C    60        58

Answer 1

先加入raw和corrections，然后计算corrected怎么样？

library(dplyr)
left_join(raw, corrections, by = "group") %>% 
  mutate(corrected = value - corr) %>% 
  select(-corr) 

#> # A tibble: 6 x 3
#>   group value corrected
#>   <chr> <dbl>     <dbl>
#> 1     A    10        10
#> 2     B    20        19
#> 3     C    30        28
#> 4     A    40        40
#> 5     B    50        49
#> 6     C    60        58

根据另一个 tibble 从 tibble 列中减去值

Substract value from tibble column based on another tibble

r

dplyr

tidyverse

tibble