R 创建具有一列记录的向量，该记录具有剩余列的最大值

我的语言比较生硬，在一些问答环节上工作，我被一个问题困住了，那就是我必须找到能量最大、水分最多、纤维最多的食物载体，请帮助我如何做到最好？ 下表：

Food      energy    water   fiber  
Apple     207       84      2.3  
Apricot   153       87      2.1  
Avocado   523       81      0.2  
Blueberry 204       80      8.4  
Blackberry170       85      8.7  

---

要获取列中具有最大值的行，其中df是上面的数据帧，请尝试：

maxEnergy <- df[which.max(df$energy),]
maxWater <- df[which.max(df$water),]
maxFiber <- df[which.max(df$fiber),]

---

maxEnergy您希望的输出是什么？您想在每列中找到一个最大值，然后每次将其子集吗？例如，类似于
df[，1][sappy（df[-1]，which.max）]
？（如果
df
是您的数据帧）