Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(dplyr)
- library(readr)
- library(tidyr)
- df <- read_delim("docentes.csv", delim="|", guess_max = 11597901) %>% as.data.frame
- du <- df %>% filter(TP_TIPO_DOCENTE == 1) %>% filter((TP_ETAPA_ENSINO >= 19 & TP_ETAPA_ENSINO <= 21) | TP_ETAPA_ENSINO == 41) %>% filter(TP_DEPENDENCIA >= 2 & TP_DEPENDENCIA <= 4)
- nrow(du)
- du %>% filter(IN_DISC_QUIMICA == 1) %>% nrow()
- du %>% filter(IN_DISC_FISICA == 1) %>% nrow()
- du %>% filter(IN_DISC_MATEMATICA == 1) %>% nrow()
- du %>% filter(IN_DISC_BIOLOGIA == 1) %>% nrow()
- du %>% filter(IN_DISC_CIENCIAS == 1) %>% nrow()
- du %>% filter(IN_DISC_LINGUA_PORTUGUESA == 1) %>% nrow()
- du %>% filter(IN_DISC_LINGUA_INGLES == 1) %>% nrow()
- du %>% filter(IN_DISC_LINGUA_ESPANHOL == 1) %>% nrow()
- du %>% filter(IN_DISC_LINGUA_FRANCES == 1) %>% nrow()
- du %>% filter(IN_DISC_LINGUA_OUTRA == 1) %>% nrow()
- du %>% filter(IN_DISC_LINGUA_INDIGENA == 1) %>% nrow()
- du %>% filter(IN_DISC_ARTES == 1) %>% nrow()
- du %>% filter(IN_DISC_EDUCACAO_FISICA == 1) %>% nrow()
- du %>% filter(IN_DISC_HISTORIA == 1) %>% nrow()
- du %>% filter(IN_DISC_GEOGRAFIA == 1) %>% nrow()
- du %>% filter(IN_DISC_FILOSOFIA == 1) %>% nrow()
- du %>% filter(IN_DISC_ENSINO_RELIGIOSO == 1) %>% nrow()
- du %>% filter(IN_DISC_ESTUDOS_SOCIAIS == 1) %>% nrow()
- du %>% filter(IN_DISC_SOCIOLOGIA == 1) %>% nrow()
- du %>% filter(IN_DISC_EST_SOCIAIS_SOCIOLOGIA == 1) %>% nrow()
- du %>% filter(IN_DISC_INFORMATICA_COMPUTACAO == 1) %>% nrow()
Advertisement
