Gráficos de Razão de Sexo no Brasil por estados nos anos de 1980, 1991, 2000 e 2010.
Os dados aqui trabalhados já encontravam-se "limpos". Fiz esse procedimento através do Excel. Preciso priorizar em modificar a tabela através do próprio R.
Meu maior desafio na elaboração do gráfico foi trazer os anos como um "factor".
Qualquer sugestão, encaminhe-me.
gustavoalcantara
commented
3 years ago 
Gráficos de Razão de Sexo no Brasil por estados nos anos de 1980, 1991, 2000 e 2010. Os dados aqui trabalhados já encontravam-se "limpos". Fiz esse procedimento através do Excel. Preciso priorizar em modificar a tabela através do próprio R. Meu maior desafio na elaboração do gráfico foi trazer os anos como um "factor". Qualquer sugestão, encaminhe-me.
importando as bibliotecas
require( dplyr ) require( data.table ) require(ggplot2) require(forcats) getwd()
trazendo os dados
dados_teste_txt <- read.table('C:/Users/User/Desktop/Gustavo/Unicamp/Mestrado/1sem2021/dm026/trabalho_1dm026/teste_txt_rsu_todos.txt', sep = '\t', header = T)
elaborando os gráficos para a população urbana
ggplot(data = dados_teste_txt,(aes(y=fctreorder(localidade, rsu, .desc=TRUE),x = rsu_, color=as.factor(ano)))) +geom_point() + xlab("Razão de Sexo Masculino na população urbana") + ylab("Estados") + geom_vline(xintercept=100, color="red") + guides(color=guide_legend("Ano"))
trazendo os dados para a populacao rural
dados_teste_rural_txt <- read.table('C:/Users/User/Desktop/Gustavo/Unicamp/Mestrado/1sem2021/dm026/trabalho_1dm026/teste_txt_rsr_todos.txt', sep = '\t', header = T)
elaborando os gráficos para a população rural
ggplot(data = dados_teste_rural_txt,(aes(y=fctreorder(localidade, rsr, .desc=TRUE),x = rsr_, color=as.factor(ano)))) +geom_point() + xlab("Razão de Sexo Masculino na População Rural") + ylab("Estados") + geom_vline(xintercept=100, color="red") + guides(color=guide_legend("Ano"))
fim do código