如果第 1 列大于第 2 列，则在第 3 列中分配名称“Col1”[重复]

Question

我希望在这里找到一个解决方案，该解决方案将逐行决定 3-4 列（应用？），并在新列 [df$NAME] 中分配最高值列的名称.下面是我希望结果的样子；最好的方法是什么？谢谢！

| Bird | Cat | Dog |  NAME
| 3    |  4  |  10 |   DOG 
| 5    |  2  |   4 |   BIRD
| 3    |  6  |   2 |   CAT
| 4    |  8  |   9 |   DOG

Answer 1

Is there something like a pmax index? 非常适合您。

为了简单和高效，基于max.col() 的解决方案（链接问题中的第二个答案）优于基于apply() 的解决方案。

df$NAME <- names(df)[max.col(df)];
df;
##   Bird Cat Dog NAME
## 1    3   4  10  Dog
## 2    5   2   4 Bird
## 3    3   6   2  Cat
## 4    4   8   9  Dog

数据

df <- data.frame(Bird=c(3L,5L,3L,4L),Cat=c(4L,2L,6L,8L),Dog=c(10L,4L,2L,9L));