clear set more off set mem 400m *Montando banco de dados (idade) - Tabela 2-2 (Triola, 2008: 34) clear input idade freq 25.5 28 35.5 30 45.5 12 55.5 2 65.5 2 75.5 2 end *Tabela de frequência tab idade [fweight=freq] *Histograma de frequência hist idade [fweight=freq], frequency discrete /// xlabel(20.5(10)80.5) ylabel(0(10)30) /// xtitle("Idade das Melhores Atrizes") /// ytitle("Frequência") graph export "C:\curso\hist_id_freq.wmf", replace *Histograma de frequência relativa hist idade [fweight=freq], percent discrete /// xlabel(20.5(10)80.5) ylabel(0(10)40) /// xtitle("Idade das Melhores Atrizes") /// ytitle("Frequência Relativa") graph export "C:\curso\hist_id_perc.wmf", replace *Gráfico que exibe a função da curva normal twoway function y=normden(x), range(-4 4) graph export "C:\curso\normal.wmf", replace *Montando banco de dados (altura) - Tabela 2-5 (Triola, 2008: 38) clear input altura freq 56 10 58 64 60 178 62 324 64 251 66 135 68 32 70 6 end *Tabela de frequência tab altura [fweight=freq] *Histograma de frequência hist altura [fweight=freq], frequency discrete addlabels /// xlabel(55(5)70) ylabel(0(100)400) /// xtitle("Altura na Amostra") /// ytitle("Frequência") graph export "C:\curso\hist_normal.wmf", replace *World Values Survey use "C:\curso\wvs1981_2008.dta", clear keep if s003==76 saveold "C:\curso\brasil.dta", replace *Idade contínua tab x003 *Idade categorizada tab x003r tab x003r, nolabel *Recodificando idade gen idade=. replace idade=x003r if x003r!=14 *Histograma da idade hist idade, frequency discrete xlabel(1(1)6) xtitle("Grupo de Idade") *Histograma da idade por sexo hist idade, frequency discrete by(x001) xlabel(1(1)6) xtitle("Grupo de Idade") *Polígono de frequência (idade) *Não encontrei *Ogiva (idade) cumul x003, gen(cumid) freq equal line cumid x003, sort *Ogiva (idade) findit distplot distplot x003, over(x001) distplot x003, xlabel(15(10)85) graph export "C:\curso\ogiva.wmf", replace *Gráfico de pontos (idade) findit beamplot beamplot x003 beamplot x003, over(x001) graph export "C:\curso\pontos.wmf", replace *Ramo e folhas (idade) stem x003 *Gráficos de Pareto (família é importante) findit pdplot pdplot a001, dotsonly recast(bar) graph export "C:\curso\pareto.wmf", replace *Gráfico de pizza graph pie, over(x003r) graph export "C:\curso\pizza.wmf", replace *Diagrama de dispersão de renda (x047) por idade (x003) scatter x047 x003 graph export "C:\curso\dispersão.wmf", replace *Gráficos de séries temporais de média de renda (minc) por ano (s002) sort s002 by s002: egen minc=mean(x047) twoway line minc s002 graph export "C:\curso\tempo.wmf", replace