library(dplyr)
library(rgdal)
library(leaflet)
library(rstudioapi)
library(readxl)
library(tidyverse)
library(readr)
library(DT)
setwd("C:/Users/geisa.vasconcelos/workspace/trabalho/cluster_federais/")
IES<-read.csv2("C:/Users/geisa.vasconcelos/Downloads/microdados_censo/DADOS/DM_IES.CSV",sep="|")
IES = as.data.frame(IES, stringsAsFactors = FALSE)
IES = IES[c("NO_IES", "NO_MUNICIPIO_IES", "IN_CAPITAL_IES", "QT_TEC_FUND_INCOMP_FEM",
"QT_TEC_FUND_INCOMP_MASC","QT_TEC_FUND_COMP_FEM", "QT_TEC_FUND_COMP_MASC","QT_TEC_MEDIO_FEM",
"QT_TEC_MEDIO_MASC", "QT_TEC_SUPERIOR_FEM", "QT_TEC_SUPERIOR_MASC", "QT_TEC_ESPECIALIZACAO_FEM",
"QT_TEC_ESPECIALIZACAO_MASC", "QT_TEC_MESTRADO_FEM", "QT_TEC_MESTRADO_MASC", "QT_TEC_DOUTORADO_FEM",
"QT_TEC_DOUTORADO_MASC", "IN_ACESSO_PORTAL_CAPES", "IN_ACESSO_OUTRAS_BASES", "IN_REPOSITORIO_INSTITUCIONAL",
"IN_BUSCA_INTEGRADA", "IN_SERVICO_INTERNET", "IN_PARTICIPA_REDE_SOCIAL", "IN_CATALOGO_ONLINE",
"QT_PERIODICO_ELETRONICO", "QT_LIVRO_ELETRONICO", "VL_RECEITA_PROPRIA", "VL_TRANSFERENCIA",
"VL_OUTRA_RECEITA", "VL_DES_PESSOAL_REM_DOCENTE", "VL_DES_PESSOAL_REM_TECNICO", "VL_DES_PESSOAL_ENCARGO",
"VL_DES_CUSTEIO", "VL_DES_INVESTIMENTO", "VL_DES_PESQUISA", "VL_DES_OUTRAS")]
IES %>% dplyr::filter(., grepl('FEDERAL', NO_IES)) %>% dplyr::filter(., !grepl('INSTITUTO|CENTRO', NO_IES)) %>%
dplyr::filter(., !grepl('CAPITAL|DISTRITO', NO_IES)) -> teste
#summary(teste)
universidades = as.character(teste[,1])
cidades = as.character(teste[,2])
dados = teste[,-c(1,2)]
convert <- function(x) as.numeric(as.character(x))
# Padronizando:
dados %>% apply(., 2, convert) %>% scale -> dados
# Clustering: Kmeans
set.seed(2)
clusters = kmeans(dados, 4)
# Spliting groups:
grupo_1 = teste[clusters$cluster == 1, ]
grupo_2 = teste[clusters$cluster == 2, ]
grupo_3 = teste[clusters$cluster == 3, ]
grupo_4 = teste[clusters$cluster == 4, ]
classificacao = cbind(universidades, cidades, clusters$cluster)
classificacao <- read_csv("classificacao.csv",
locale = locale(encoding = "ISO-8859-1"))
# point colors
pal <- colorFactor(
palette = c('red', 'blue', 'green', 'orange'),
domain = classificacao$V3
)
# creating map
m <- leaflet(classificacao, width = "100%") %>% addTiles('http://{s}.basemaps.cartocdn.com/dark_all/{z}/{x}/{y}.png',
attribution='Map tiles by <a href="http://stamen.com">Stamen Design</a>, <a href="http://creativecommons.org/licenses/by/3.0">CC BY 3.0</a> — Map data © <a href="http://www.openstreetmap.org/copyright">OpenStreetMap</a>')
m %>% addCircleMarkers(lng = ~lon, lat = ~lat, fillColor = ~pal(V3), popup = ~universidades, fillOpacity = 0.7,
popupOptions = popupOptions(minWidth = 20, closeOnClick = FALSE, closeButton = TRUE))knitr::kable(grupo_1[,c("NO_IES", "NO_MUNICIPIO_IES")], row.names = FALSE)| NO_IES | NO_MUNICIPIO_IES |
|---|---|
| UNIVERSIDADE FEDERAL DE SÃO PAULO | São Paulo |
| UNIVERSIDADE FEDERAL DO RIO GRANDE DO NORTE | Natal |
| UNIVERSIDADE FEDERAL DO RIO GRANDE DO SUL | Porto Alegre |
| UNIVERSIDADE FEDERAL DE MINAS GERAIS | Belo Horizonte |
| UNIVERSIDADE FEDERAL DO RIO DE JANEIRO | Rio de Janeiro |
| UNIVERSIDADE FEDERAL DE PERNAMBUCO | Recife |
| UNIVERSIDADE FEDERAL FLUMINENSE | Niterói |
| UNIVERSIDADE FEDERAL DA PARAÍBA | João Pessoa |
knitr::kable(grupo_2[,c("NO_IES", "NO_MUNICIPIO_IES")], row.names = FALSE)| NO_IES | NO_MUNICIPIO_IES |
|---|---|
| UNIVERSIDADE FEDERAL DE MATO GROSSO | Cuiabá |
| UNIVERSIDADE FEDERAL DO AMAZONAS | Manaus |
| UNIVERSIDADE FEDERAL DE PELOTAS | Pelotas |
| UNIVERSIDADE FEDERAL DE MATO GROSSO DO SUL | Campo Grande |
| UNIVERSIDADE FEDERAL DO MARANHÃO | São Luís |
| UNIVERSIDADE TECNOLÓGICA FEDERAL DO PARANÁ | Curitiba |
| UNIVERSIDADE FEDERAL DE UBERLÂNDIA | Uberlândia |
| UNIVERSIDADE FEDERAL DO PIAUÍ | Teresina |
| UNIVERSIDADE FEDERAL DE SANTA MARIA | Santa Maria |
| UNIVERSIDADE FEDERAL DE GOIÁS | Goiânia |
| UNIVERSIDADE FEDERAL DO CEARÁ | Fortaleza |
| UNIVERSIDADE FEDERAL DO PARÁ | Belém |
| UNIVERSIDADE FEDERAL DE VIÇOSA | Viçosa |
| UNIVERSIDADE FEDERAL DO ESPÍRITO SANTO | Vitória |
| UNIVERSIDADE FEDERAL DE SANTA CATARINA | Florianópolis |
| UNIVERSIDADE FEDERAL DA BAHIA | Salvador |
| UNIVERSIDADE FEDERAL DO PARANÁ | Curitiba |
| UNIVERSIDADE FEDERAL RURAL DE PERNAMBUCO | Recife |
knitr::kable(grupo_3[,c("NO_IES", "NO_MUNICIPIO_IES")])| NO_IES | NO_MUNICIPIO_IES | |
|---|---|---|
| 2 | UNIVERSIDADE FEDERAL DE SERGIPE | São Cristóvão |
| 4 | UNIVERSIDADE FEDERAL DE OURO PRETO | Ouro Preto |
| 5 | UNIVERSIDADE FEDERAL DE SÃO JOÃO DEL REI | São João del Rei |
| 8 | UNIVERSIDADE FEDERAL DO ESTADO DO RIO DE JANEIRO | Rio de Janeiro |
| 11 | UNIVERSIDADE FEDERAL DO AMAPÁ | Macapá |
| 12 | UNIVERSIDADE FEDERAL DE SÃO CARLOS | São Carlos |
| 14 | UNIVERSIDADE FEDERAL DE LAVRAS | Lavras |
| 15 | UNIVERSIDADE FEDERAL DE ITAJUBÁ - UNIFEI | Itajubá |
| 16 | FUNDAÇÃO UNIVERSIDADE FEDERAL DE CIÊNCIAS DA SAÚDE DE PORTO ALEGRE | Porto Alegre |
| 18 | UNIVERSIDADE FEDERAL RURAL DO RIO DE JANEIRO | Seropédica |
| 19 | UNIVERSIDADE FEDERAL DOS VALES DO JEQUITINHONHA E MUCURI | Diamantina |
| 20 | UNIVERSIDADE FEDERAL DO RECÔNCAVO DA BAHIA | Cruz das Almas |
| 23 | FUNDAÇÃO UNIVERSIDADE FEDERAL DO ABC | Santo André |
| 27 | FUNDAÇÃO UNIVERSIDADE FEDERAL DO VALE DO SÃO FRANCISCO | Petrolina |
| 29 | UNIVERSIDADE FEDERAL DO OESTE DO PARÁ | Santarém |
| 31 | UNIVERSIDADE FEDERAL DA FRONTEIRA SUL | Chapecó |
| 32 | FUNDAÇÃO UNIVERSIDADE FEDERAL DO PAMPA - UNIPAMPA | Bagé |
| 34 | UNIVERSIDADE FEDERAL DE ALFENAS | Alfenas |
| 36 | UNIVERSIDADE FEDERAL DO TRIÂNGULO MINEIRO | Uberaba |
| 37 | FUNDAÇÃO UNIVERSIDADE FEDERAL DO TOCANTINS | Palmas |
| 42 | FUNDAÇÃO UNIVERSIDADE FEDERAL DA GRANDE DOURADOS | Dourados |
| 43 | FUNDAÇÃO UNIVERSIDADE FEDERAL DE RONDÔNIA | Porto Velho |
| 51 | UNIVERSIDADE FEDERAL DO RIO GRANDE | Rio Grande |
| 53 | UNIVERSIDADE FEDERAL DA INTEGRAÇÃO LATINO-AMERICANA | Foz do Iguaçu |
| 54 | UNIVERSIDADE FEDERAL DE ALAGOAS | Maceió |
| 56 | UNIVERSIDADE FEDERAL RURAL DO SEMI-ÁRIDO | Mossoró |
| 57 | UNIVERSIDADE FEDERAL DO SUL E SUDESTE DO PARÁ | Marabá |
| 59 | UNIVERSIDADE FEDERAL DO CARIRI | Juazeiro do Norte |
| 60 | UNIVERSIDADE FEDERAL DO SUL DA BAHIA | Itabuna |
| 61 | UNIVERSIDADE FEDERAL RURAL DA AMAZÔNIA | Belém |
knitr::kable(grupo_4[,c("NO_IES", "NO_MUNICIPIO_IES")])| NO_IES | NO_MUNICIPIO_IES | |
|---|---|---|
| 6 | UNIVERSIDADE FEDERAL DO ACRE | Rio Branco |
| 10 | UNIVERSIDADE FEDERAL DE RORAIMA | Boa Vista |
| 28 | UNIVERSIDADE FEDERAL DE CAMPINA GRANDE | Campina Grande |
| 55 | UNIVERSIDADE FEDERAL DE JUIZ DE FORA | Juiz de Fora |
| 58 | UNIVERSIDADE FEDERAL DO OESTE DA BAHIA | Barreiras |
Desenvolvido por Kássio Camelo
kassio.silva@ufersa.edu.br