clear
set more off
set dp comma
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:\DCP854B\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:\DCP854B\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:\DCP854B\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:\DCP854B\hist_normal.wmf", replace

*World Values Survey
use "C:\DCP854B\wvs1981_2008.dta", clear
keep if s003==76
saveold "C:\DCP854B\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 line x003, by(x001)
distplot line x003, xlabel(15(10)85)
graph export "C:\DCP854B\ogiva.wmf", replace

*Gráfico de pontos (idade)
*findit beamplot
beamplot x003
beamplot x003, over(x001)
graph export "C:\DCP854B\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:\DCP854B\pareto.wmf", replace

*Gráfico de pizza
graph pie, over(x003r)
graph export "C:\DCP854B\pizza.wmf", replace

*Diagrama de dispersão de renda (x047) por idade (x003)
scatter x047 x003
graph export "C:\DCP854B\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:\DCP854B\tempo.wmf", replace