########################################################
# Bodó, RN
########################################################

graphics.off()   # desliga o painel gráfico
windows(record=TRUE)  # abre uma nova janela, fora do R studio, para os gráficos

# local dos dados na internet
url = 'http://ufrn.schmert.net/dados/fecund.2010.csv'

# baixando os dados para um data.frame
D = read.csv( url)

# baixar o pacote dplyr (é necessario fazer isso só uma vez)
# install.packages('dplyr')  

# use o pacote
library('dplyr')

Bodó = filter(D, UF == 24, Nome_Munic == 'Bodó' )

nasc = select(Bodó, Cr15, Cr20, Cr25, Cr30, Cr35, Cr40, Cr45)
mulh = select(Bodó, Mu15, Mu20, Mu25, Mu30, Mu35, Mu40, Mu45)

tx = nasc/mulh
names(tx) = seq(15,45,5)

TFT = 5*sum(tx)
TFT

plot( seq(15,45,5), tx, type="o", main='Taxas Esp. Bodó 2010')

# para acrescentar pontos ou símbolos a um gráfico, usa-se o comando 'points'
points( 20, tx['20'], pch='o', cex=2, col='blue')