R function to produce nicelooking and readable frequency tables