### Dados FUVEST 2009

dados <- c(
rep("Pais",1476), 
rep("trabalho + família",974), 
rep("trabalho para família",108), 
rep("por conta própria",193), 
rep("bolsa/crédito",422), 
rep("bolsa/crédito + tr + fam",653), 
rep("outros",74))

library(qcc)

pareto.chart(table(dados))