dplyr-获取行最大值与行最大值对应的索引列

Get the value of the max within row

data %>% mutate(row.max_val = do.call(pmax, (.))) 

Get the argmax within row

data %>% mutate(row.argmax = names(.)[max.col(.)])