Kruskal-Wallis test: create lapply function to subset data.frame?

Question

I have a data set of values (val) grouped by multiple categories (distance & phase). I would like to test each category by K