catair = airfares[,c(7,8,14,15,18)] #separates out categorical columns for pivot table #VACATION v = count(catair,\'VACATION\') v = mutate(v, pct = freq/su