R 根据参考列的最小值或最大值创建包含另一列的值的列

我觉得以前已经有人问过这个问题，但我找不到描述我正在尝试做的事情的代表。

假设我有这个数据框：

df <- data.frame(ID = c(1, 1, 1, 2, 2, 2, 3, 3, 3),
                 B = c(34, 54, 17, 2, 25, 89, 23, 93, 90),
                 C = c(1, 2, 3, 1, 2, 3, 1, 2, 3))

> df
  ID  B C
1  1 34 1
2  1 54 2
3  1 17 3
4  2  2 1
5  2 25 2
6  2 89 3
7  3 23 1
8  3 93 2
9  3 90 3

我想创建/改变列 D 和 E，列出与 C 列的最小值和最大值相匹配的 B 列的值。因此输出将是：

> df
  ID  B C  D  E
1  1 34 1 34 17
2  1 54 2 34 17
3  1 17 3 34 17
4  2  2 1  2 89
5  2 25 2  2 89
6  2 89 3  2 89
7  3 23 1 23 90
8  3 93 2 23 90
9  3 90 3 23 90

ID是分组变量；但是，我想要一个未分组的输出。

我们可以按“ID”分组，创建D通过基于子集'B'min (or firstC 的元素（如果已排序））以及类似的“E”max'C' 的索引（或last'C' 的元素）

library(dplyr)
df %>%
   group_by(ID) %>%
   mutate(D = B[min(C)], E = B[max(C)]) %>%
   ungroup

-output

# A tibble: 9 x 5
#    ID     B     C     D     E
#  <dbl> <dbl> <dbl> <dbl> <dbl>
#1     1    34     1    34    17
#2     1    54     2    34    17
#3     1    17     3    34    17
#4     2     2     1     2    89
#5     2    25     2     2    89
#6     2    89     3     2    89
#7     3    23     1    23    90
#8     3    93     2    23    90
#9     3    90     3    23    90