将 max 函数应用于多行

apply max function to multiple rows

我有一个这样的数据框 df

我想添加一个新列,显示 5 个变量中最大值的名称。例如,对于第一行:最大值为5,最大值的名称为Olfactory。对其他行同样重复。预期的数据框应该是:

我的代码是:

find_max<-apply(across(.cols=c(12:16),MARGIN=1), FUN=max)
Error: `across()` must only be used inside dplyr verbs.

是否有解决此错误的想法?提前谢谢你!

   df$Main_Mode <- names(df)[12:16][max.col(df[12:16])]