查找最大值并识别另一列的名称单元格

Finding max and identify name's cell for another column

希望有人能解决我下面的问题

这里我有一个关于不同鸟类及其最大长度的数据:

a<-c("bird1","bird2","bird1","bird3","bird2","bird2")
b<-c(32,45,35,25,51,47)
c<-data.frame(animal=a,max=b)
  animal max
1  bird1  32
2  bird2  45
3  bird1  35
4  bird3  25
5  bird2  51
6  bird2  47

我的目的是找出长度最大的动物的名字。我知道使用 max()which.max() 很容易识别最大长度和相应的单元格,但我怎么知道动物的名字?

任何宝贵的意见都会对我有所帮助!

这将提供年龄最大的鸟的输出

修改

a<-c("bird1","bird2","bird1","bird3","bird2","bird2")
b<-c(32,45,35,25,51,47)
compined_birds<-data.frame(animal=a,max=b)
compined_birds$animal[which.max(compined_birds$max)]