alunos_universidade_rs
library(dplyr)
library(readr)
library(tidyr)
Β
df <- read_delim("/Users/msserpa/Downloads/microdados_censo_superior_2016/DADOS/DM_CURSO.CSV", delim="|") %>% as.data.frame
Β
df <- df %>% filter(!is.na(QT_MATRICULA_CURSO)) %>% filter(NO_MUNICIPIO_CURSO == "Porto Alegre") %>% Β group_by(NO_IES) %>% summarize(N=n(), mean=sum(QT_MATRICULA_CURSO)) %>% as.data.frame()
Β
df
Comments
0 B
|0 π
/0 π
0 B
|π
/π