Table summary

table_summary.R

# https://stackoverflow.com/questions/23629592/how-can-i-select-the-top-2-values-in-a-column-per-column-and-report-this-with-bo

t <- structure(c(0.333333333333333, 0.333333333333333, 0.333333333333333, 
0.333333333333333, 0.333333333333333, 0.333333333333333, 0.166666666666667, 
0.166666666666667, 0.166666666666667, 0.166666666666667, 0.166666666666667, 
0.166666666666667, 0.166666666666667, 0.166666666666667, 0.166666666666667, 
0.166666666666667, 0.166666666666667, 0.166666666666667, 0.333333333333333, 
0.333333333333333, 0.333333333333333, 0.333333333333333, 0.333333333333333, 
0.333333333333333), .Dim = c(6L, 4L), .Dimnames = list(c("1", 
"2", "3", "4", "5", "6"), c("123", "124", "125", "126")))

# using apply & sort
apply(t,1,function(xx)head(names(sort(xx, decreasing=T)),4))