如何找到所有最大值并使用which.max返回字段或列名称

Question

我是一名学生，我想在行中找到最大值并返回R中的列名。可以找到最大值的第一个实例（列名）。但是，我无法获得所有最大值列名称。

df<-data.frame(a=c(1,2,3,4),b=c(2,1,3,2),c=c(1,2,1,4));df
df$d<-names(df)[apply(df, MARGIN = 1, FUN = which.max)]
df##

我仅获得第一实例最大值列，而没有其他列。

如何在用逗号分隔的列中累积所有最大值？