Importação de base de dados

Vamos importar a base de dados do INEP http://inep.gov.br/microdados usando o pacote readr.

Nessa aula vamos usar o Censo da Educação Superior no ano de 2016.

library(readr)
BASE_2 <- read_delim("Dados/DM_DOCENTE.CSV", 
    "|", escape_double = FALSE, col_types = cols(CO_DOCENTE_IES = col_character()), 
    locale = locale(encoding = "ISO-8859-1"), 
    trim_ws = TRUE)
str(BASE_2)
## Classes 'tbl_df', 'tbl' and 'data.frame':    397611 obs. of  50 variables:
##  $ CO_IES                     : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ NO_IES                     : chr  "UNIVERSIDADE FEDERAL DE MATO GROSSO" "UNIVERSIDADE FEDERAL DE MATO GROSSO" "UNIVERSIDADE FEDERAL DE MATO GROSSO" "UNIVERSIDADE FEDERAL DE MATO GROSSO" ...
##  $ CO_CATEGORIA_ADMINISTRATIVA: int  1 1 1 1 1 1 1 1 1 1 ...
##  $ DS_CATEGORIA_ADMINISTRATIVA: chr  "Pública Federal" "Pública Federal" "Pública Federal" "Pública Federal" ...
##  $ CO_ORGANIZACAO_ACADEMICA   : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ DS_ORGANIZACAO_ACADEMICA   : chr  "Universidade" "Universidade" "Universidade" "Universidade" ...
##  $ IN_CAPITAL_IES             : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ CO_DOCENTE_IES             : chr  "559840" "559841" "559839" "559842" ...
##  $ CO_DOCENTE                 : num  669 670 719 894 1446 ...
##  $ CO_SITUACAO_DOCENTE        : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ DS_SITUACAO_DOCENTE        : chr  "Em exercício" "Em exercício" "Em exercício" "Em exercício" ...
##  $ CO_ESCOLARIDADE_DOCENTE    : int  5 5 4 3 5 5 4 4 5 5 ...
##  $ DS_ESCOLARIDADE_DOCENTE    : chr  "Doutorado" "Doutorado" "Mestrado" "Especialização" ...
##  $ CO_REGIME_TRABALHO         : int  2 1 1 1 1 1 1 1 1 1 ...
##  $ DS_REGIME_TRABALHO         : chr  "Tempo Integral sem dedicação exclusiva" "Tempo Integral com dedicação exclusiva" "Tempo Integral com dedicação exclusiva" "Tempo Integral com dedicação exclusiva" ...
##  $ IN_SEXO_DOCENTE            : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ DS_SEXO_DOCENTE            : chr  "Masculino" "Masculino" "Masculino" "Masculino" ...
##  $ NU_ANO_DOCENTE_NASC        : int  1957 1952 1969 1955 1951 1974 1946 1959 1957 1951 ...
##  $ NU_MES_DOCENTE_NASC        : int  1 2 3 6 8 1 2 4 5 2 ...
##  $ NU_DIA_DOCENTE_NASC        : int  28 26 11 16 23 26 15 19 27 27 ...
##  $ NU_IDADE_DOCENTE           : int  59 64 47 61 65 42 70 57 59 65 ...
##  $ CO_COR_RACA_DOCENTE        : int  3 3 3 4 3 3 0 1 1 1 ...
##  $ DS_COR_RACA_DOCENTE        : chr  "Parda" "Parda" "Parda" "Amarela" ...
##  $ CO_PAIS_DOCENTE            : int  76 76 76 76 76 76 76 76 76 76 ...
##  $ CO_NACIONALIDADE_DOCENTE   : int  1 1 1 1 1 1 1 1 1 1 ...
##  $ DS_NACIONALIDADE_DOCENTE   : chr  "Brasileira" "Brasileira" "Brasileira" "Brasileira" ...
##  $ CO_UF_NASCIMENTO           : int  51 41 51 51 51 41 51 41 43 50 ...
##  $ CO_MUNICIPIO_NASCIMENTO    : int  5103007 4104808 5103403 5103403 5103403 4108601 5103403 4123907 4319604 5002100 ...
##  $ IN_DOCENTE_DEFICIENCIA     : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ IN_DEF_CEGUEIRA            : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ IN_DEF_BAIXA_VISAO         : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ IN_DEF_SURDEZ              : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ IN_DEF_AUDITIVA            : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ IN_DEF_FISICA              : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ IN_DEF_SURDOCEGUEIRA       : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ IN_DEF_MULTIPLA            : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ IN_DEF_INTELECTUAL         : int  NA NA NA NA NA NA NA NA NA NA ...
##  $ IN_ATU_EAD                 : int  0 0 0 0 0 1 0 0 0 0 ...
##  $ IN_ATU_EXTENSAO            : int  0 0 0 1 0 0 0 0 0 1 ...
##  $ IN_ATU_GESTAO              : int  1 1 0 1 1 1 0 0 1 1 ...
##  $ IN_ATU_GRAD_PRESENCIAL     : int  0 1 0 1 0 1 1 0 1 1 ...
##  $ IN_ATU_POS_EAD             : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ IN_ATU_POS_PRESENCIAL      : int  0 1 0 0 1 0 0 0 1 0 ...
##  $ IN_ATU_SEQUENCIAL          : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ IN_ATU_PESQUISA            : int  0 1 1 1 1 1 0 1 1 1 ...
##  $ IN_BOLSA_PESQUISA          : int  NA 1 0 0 0 0 NA 0 0 0 ...
##  $ IN_SUBSTITUTO              : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ IN_EXERCICIO_DT_REF        : int  1 1 1 1 1 1 0 0 1 1 ...
##  $ IN_VISITANTE               : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ IN_VISITANTE_IFES_VINCULO  : chr  NA NA NA NA ...
##  - attr(*, "spec")=List of 2
##   ..$ cols   :List of 50
##   .. ..$ CO_IES                     : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ NO_IES                     : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CO_CATEGORIA_ADMINISTRATIVA: list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ DS_CATEGORIA_ADMINISTRATIVA: list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CO_ORGANIZACAO_ACADEMICA   : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ DS_ORGANIZACAO_ACADEMICA   : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ IN_CAPITAL_IES             : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CO_DOCENTE_IES             : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CO_DOCENTE                 : list()
##   .. .. ..- attr(*, "class")= chr  "collector_double" "collector"
##   .. ..$ CO_SITUACAO_DOCENTE        : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ DS_SITUACAO_DOCENTE        : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CO_ESCOLARIDADE_DOCENTE    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ DS_ESCOLARIDADE_DOCENTE    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CO_REGIME_TRABALHO         : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ DS_REGIME_TRABALHO         : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ IN_SEXO_DOCENTE            : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ DS_SEXO_DOCENTE            : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ NU_ANO_DOCENTE_NASC        : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ NU_MES_DOCENTE_NASC        : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ NU_DIA_DOCENTE_NASC        : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ NU_IDADE_DOCENTE           : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CO_COR_RACA_DOCENTE        : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ DS_COR_RACA_DOCENTE        : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CO_PAIS_DOCENTE            : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CO_NACIONALIDADE_DOCENTE   : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ DS_NACIONALIDADE_DOCENTE   : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   .. ..$ CO_UF_NASCIMENTO           : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ CO_MUNICIPIO_NASCIMENTO    : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_DOCENTE_DEFICIENCIA     : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_DEF_CEGUEIRA            : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_DEF_BAIXA_VISAO         : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_DEF_SURDEZ              : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_DEF_AUDITIVA            : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_DEF_FISICA              : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_DEF_SURDOCEGUEIRA       : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_DEF_MULTIPLA            : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_DEF_INTELECTUAL         : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_ATU_EAD                 : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_ATU_EXTENSAO            : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_ATU_GESTAO              : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_ATU_GRAD_PRESENCIAL     : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_ATU_POS_EAD             : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_ATU_POS_PRESENCIAL      : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_ATU_SEQUENCIAL          : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_ATU_PESQUISA            : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_BOLSA_PESQUISA          : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_SUBSTITUTO              : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_EXERCICIO_DT_REF        : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_VISITANTE               : list()
##   .. .. ..- attr(*, "class")= chr  "collector_integer" "collector"
##   .. ..$ IN_VISITANTE_IFES_VINCULO  : list()
##   .. .. ..- attr(*, "class")= chr  "collector_character" "collector"
##   ..$ default: list()
##   .. ..- attr(*, "class")= chr  "collector_guess" "collector"
##   ..- attr(*, "class")= chr "col_spec"