dplyr mutate从每行的匹配值获取列标签

Question

我想执行dplyr突变以产生一个新列，该新列提取每行中最小值的列标签。在我的示例中，任何有1的值都将等于其行中的其他值。我想提取包含rowMin的列名，并将其放在新列中。

df1 <- read.table(text = "
linear  |  quadratic  |  cubic  |  ID
1  |  1  |  0  |   1
0  |  1  |  1  |   2
1  |  0  |  1  |   3
1  |  1  |  1  |   4                  
", header = TRUE, sep = "|")

谢谢！