Pirâmide Etária

<?xml version="1.0" encoding="ISO-8859-1"?>
<Rscript>
<titulo>Pirâmide Etária</titulo>
<descricao>
Essa rotina plota uma apresentação gráfica denominada pirâmide etária. Os dados devem estar organizados de modo a conter nas colunas a variável sexo, e nas linhas a variável faixa etária, conforme os agrupamentos tradicionalmente utilizados em análises demográficas.
A função utilizada é de autoria de Juan Carlos Correa y Nelfi González, disponível em http://cran.r-project.org/other-docs.html no material intitulado "Gráficos Estadísticos con R".

A coluna contendo os dados referentes ao sexo masculino deve ser a primeira coluna do quadro.
</descricao>
<autor>Karla Ferreira</autor>
<email></email>
<versao>1.0</versao>
<parametro></parametro>
<parametro2></parametro2>
<colsel></colsel>
<colsel2></colsel2>
<script>
piramide1<-function(masculino,feminino,amplitud,escalax,edadmax,region){

max1<-max(c(feminino,masculino));n<-length(masculino)
min.x<--(max1%/%escalax+1)*escalax;max.x<-(max1%/%escalax+1)*escalax

pir<-plot(0,0,type="n",xaxt='n',yaxt='n',ylim=c(0,edadmax+5),xlim=c(min.x,max.x),xlab="",ylab="")

ejex1<-seq(0,max1,by=escalax);ejex2<--ejex1[order(-ejex1)]
ejex<-c(ejex2,ejex1)
axis(1,at=ejex,labels=as.character(abs(ejex)),cex.axis=0.8,las=2)
ejey<-c(seq(0,edadmax,by=amplitud))
axis(2,at=ejey,labels=as.character(ejey),cex.axis=0.8,las=2)
for(i in 1:n){
x1<-0;x2<-masculino[i]; x3<--feminino[i]

y1<-(i-1)*amplitud
y2<-y1+amplitud
rect(x1,y1,x2,y2,col='blue')
rect(x1,y1,x3,y2,col='red')
}

x.l1<--max1/16-1.5*escalax;x.l2<-max1/16+escalax
title(main=paste("Pirâmide Etária",sep="\n",region),ylab="idade")
legend(x.l1,edadmax+10,"Feminino",bty="n",xjust=1)
legend(x.l2,edadmax+10,"Masculino",bty="n")
}

grafico.tabwin()

Feminino <-tabela[,2];Masculino <-tabela[,1]
max(max(Feminino),max(Masculino))
amplitud<-5;escalax<-10000;edadmax<-90
#region<-"  "
region=titulo
piramide1(Masculino,Feminino,amplitud, escalax, edadmax, region)
</script>
<exemplo>
Titulo1=Internações hospitalares em dezembro de 2002
Titulo2=Freqüência por sexo segundo faixa etária
"faixa etária";"Masculino";"Feminino";"Total"
"0-4a";69336;55143;124479
"5-9a";22380;16209;38589
"10-14a";15610;13430;29040
"15-19a";15567;66263;81830
"20-24a";20846;90940;111786
"25-29a";20587;68960;89547
"30-34a";21851;49374;71225
"35-39a";23535;38746;62281
"40-44a";24135;30286;54421
"45-49a";22955;26243;49198
"50-54a";22573;23401;45974
"55-59a";21037;19828;40865
"60-64a";21566;20060;41626
"65-69a";20194;19421;39615
"70-74a";19185;18747;37932
"75-79a";14717;15763;30480
"80e+a";16873;21065;37938
"Total";392947;593879;986826
</exemplo>
</Rscript>