apply每行的最大值命名為對應最大值的列名

list <- data.frame(apply(x, 1, function(t) colnames(x)[which.max(t)]))
# 上文的t代表x中的1，即代表x中的行
apply(dataframe,1/0,fun)
fun是對行或者列說的
取出x的列名，選擇某個index，這個index是這一行最大值對應的列的index