R dplyr 逐行获取 which.min 的名称

Question

我刚刚回复 this question与 data.table方法，并正在努力提供一个 dplyr等效，但失败了。

有一个简单的数据框，其列中有数值。我想获取具有最小值 的列的名称使用 dplyr .

请注意，我知道解决这个问题的其他方法:目前我唯一感兴趣的是 dplyr 方法

id <- c(1,2,3,4,5,6,7,8,9,10)
x1 <- c(2,4,5,3,6,4,3,6,7,7)
x2 <- c(0,1,2,6,7,6,0,8,2,2)
x3 <- c(5,3,4,5,8,3,4,2,5,6)

DF <- data.frame(id, x1,x2,x3)

我尝试了以下几种变体:

DF %>% select(2:4) %>% rowwise() %>% mutate(y = function(x) names(x)[which.min(x)])

DF %>% select(2:4) %>% rowwise() %>% mutate(y = apply(x1:x3, 1, which.min(x1:x3))

但还没有找到方法来做到这一点 dplyr -道路。我会很感激任何提示!

预期输出:

DF
##     id x1 x2 x3  y
##  1:  1  2  0  5 x2
##  2:  2  4  1  3 x2
##  3:  3  5  2  4 x2
##  4:  4  3  6  5 x1
##  5:  5  6  7  8 x1
##  6:  6  4  6  3 x3
##  7:  7  3  0  4 x2
##  8:  8  6  8  2 x3
##  9:  9  7  2  5 x2
## 10: 10  7  2  6 x2

Answer 1

这是另一种方法.. 我没有运行任何基准测试，但我的猜测是它会比使用 apply 表现得更好或 rowwise .

DF %>% 
  mutate(y = names(.)[max.col(.[2:4]*-1)+1L])
#    id x1 x2 x3  y
# 1   1  2  0  5 x2
# 2   2  4  1  3 x2
# 3   3  5  2  4 x2
# 4   4  3  6  5 x1
# 5   5  6  7  8 x1
# 6   6  4  6  3 x3
# 7   7  3  0  4 x2
# 8   8  6  8  2 x3
# 9   9  7  2  5 x2
# 10 10  7  2  6 x2

*-1是因为我们想要 min 而不是 max 列和 +1 因为我们只查看列 2:4 但需要正确的列名作为返回。