run KW test for multiple columns on the outcome and then rank according to the p.value

Question

I need to write a loop to run KW test for multiple column features on the outcome column and then rank according to the p.value of features. for example:

r<- k