# look at team makeup by various categorical variables

table(vecstate)
barplot(table(vecstate), xlab="state", ylab="count", 
          main="Home States of Griz")