Introdução

Diversos professores e alunos já me perguntaram quantos alunos estão na Universidade. Lembro que eu não consegui responder rapidamente a essa pergunta. Todavia, com uma maior experiencia com o R e com acesso aos dados do inep já podemos responder a essa pergunta.

Neste artigo vamos descobrir quantos alunos a UNIRIO tem. Mais do que isso, vamos ver o perfil do aluno. Paraa isso, temos que acessar os microdados do INEP e fazer um filtro para os alunos da Unirio. Felizmente, o DATAUNIRIO já fez isso e colocou a base de dados da UNIRIO para download. Logo, neste tutorial, vamos aprender a usar o R para fazer uma análise sobre a Universidade.

A base de dados está no formato RDS e pode ser baixada do repositório de dados do DATAUNIRIO. Para carregar a base de dados no R precisamos utilizar o código abaixo.

Carregando a Base de Dados

# Metodo 1 ('Nao funcionou')
#library(RCurl)
#siteURL <- ("https://raw.githubusercontent.com/DATAUNIRIO/microdados_censo_superior_2016/master/ALUNO_UNIRIO16.rds")
#download.file(siteURL,"ALUNO_UNIRIO16.rds", method="curl")
#ALUNO_UNIRIO16<-readRDS("ALUNO_UNIRIO16.rds")

# Metodo 2 
library(curl)
siteURL <- ("https://raw.githubusercontent.com/DATAUNIRIO/microdados_censo_superior_2016/master/ALUNO_UNIRIO16.rds")
tmp <- tempfile()
curl_download(siteURL, tmp)
ALUNO_UNIRIO16<-readRDS(tmp)
# Eliminar os niveis dos fatores nao utilizado (drop factor levels in a dataset)
ALUNO_UNIRIO16<-droplevels(ALUNO_UNIRIO16)

Já com o download da base de dados, podemos importar para o R com o comando:

readRDS(nomedabasededados)

Com a base de dados importada para o R, podemos verificar quantos alunos a UNIRIO tem (de acordo com o INEP)

Quantos alunos a UNIRIO tem?

"
Para fazer isso no R, precisamos executar os comandos: nrow(ALUNO_UNIRIO16) ou dim(ALUNO_UNIRIO16)

De acordo com o INEP, a UNIRIO tem quase 19 mil alunxs.

Qual o curso da Universidade mais frequentado?

Para saber quais são as variáveis que o INEP disponibiliza sobre a UNIRIO, precisamos executar o comando:names(ALUNO_UNIRIO16). Outros comandos interessantes são str(ALUNO_UNIRIO16) e head(ALUNO_UNIRIO16)

Após esta etapa, você pode escolher uma variável para fazer análise, ou seja, uma variável de interesse. (escolhi verficar quantos alunos temos em cada curso). Para fazer esta etapa, podemos usar o comando table. Esta função é aplicada na base de dados ALUNO_UNIRIO16 e na variável NO_CURSO. Desse modo, temos:

table(ALUNO_UNIRIO16$NO_CURSO)

Qual a cor declarada pelos alunos da UNIRIO?

Podemos fazer tantas perguntas para a base de dados quanto quiser. Por exemplo, qual a cor autodeclarada pelos alunos da Universidade?

Para responder a essa pergunta, vamos fazer uma visualização da tabela. Em primeiro lugar, vamos criar o mesmo código que o anterior, mas vamos utiliza-lo na variável DS_COR_RACA_ALUNO (Descrição da Cor/Raça do Aluno). Depois vamos “guarda” essa tabela em um objeto chamado tabela1. Após esse comando, vamos gerar o gráfico. O nome desse gráfico é mosaíco (em inglês, mosaicplot). Para ver o código em R, clique em Code.

tabela1<-table(ALUNO_UNIRIO16$DS_COR_RACA_ALUNO)
par(mar = c(0.5, 8.5, 0.5, 0.5), mgp = c(5, 1, 0),bg="#e0feff")
library(RColorBrewer)
pal<-brewer.pal(7,"Reds")
mosaicplot(tabela1,col=pal,cex.axis = 0.8,las = 3,main="Cor declarada pelos alunos da UNIRIO")

Qual a situação dos alunos da UNIRIO?

Uma variável que parece ser interessante é a situação dos alunos da Universidade. Nela podemos ver que 19,16% dos alunos tem a matrícula trancada. Isto quer dizer que um em cada cinco alunos trancada.

tabela1<-table(ALUNO_UNIRIO16$DS_ALUNO_SITUACAO)
par(mar = c(0.5, 8.5, 0.5, 0.5), mgp = c(5, 1, 0),bg="#e0feff")
pal<-brewer.pal(6,"Blues")
mosaicplot(tabela1,col=pal,cex.axis = 0.8,las = 3,main="Situação dos alunos da UNIRIO")

"

Outros dois aspectos interessantes sobre a universidade são a Modalidade de Ensino e Grau Acadêmico. Eles podem ser vistos nos gráficos abaixo.

contagem = table(ALUNO_UNIRIO16$DS_MODALIDADE_ENSINO)
nomes = levels(ALUNO_UNIRIO16$DS_MODALIDADE_ENSINO)
porcent = round(contagem/sum(contagem)*100,2)
rotulo=paste(nomes," (",porcent,"%",")",sep="")
par(bg="#e0feff")
pie(table(ALUNO_UNIRIO16$DS_MODALIDADE_ENSINO),labels=rotulo, main="Modalidade de Ensino",col=c("#ffab44","#155a96"))

contagem = table(ALUNO_UNIRIO16$DS_GRAU_ACADEMICO)
nomes = levels(ALUNO_UNIRIO16$DS_GRAU_ACADEMICO)
porcent = round(contagem/sum(contagem)*100,2)
rotulo=paste(nomes," (",porcent,"%",")",sep="")
par(bg="#e0feff")
pie(table(ALUNO_UNIRIO16$DS_GRAU_ACADEMICO),labels=rotulo, main="Grau Acadêmico",col=c("#ffab44","#155a96"))