Extração ieducar

Pacotes:

library(tidyverse)

── Attaching core tidyverse packages ─────────────────────────────────────────────────────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.4     ✔ readr     2.1.4
✔ forcats   1.0.0     ✔ stringr   1.5.1
✔ ggplot2   3.4.4     ✔ tibble    3.2.1
✔ lubridate 1.9.3     ✔ tidyr     1.3.0
✔ purrr     1.0.2     ── Conflicts ───────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the ]8;;http://conflicted.r-lib.org/conflicted package]8;; to force all conflicts to become errors

library(RODBC)
library(odbc)
library(DBI)

extrai_censo<- function(nm_tabela){
  df <- dbGetQuery(
  conn.ieducar_produção,paste0(
  "select * from ieducar_producao.pmieducar.",nm_tabela))
  return(df)
  }

Aluno

query<-"SELECT * 
from 
    cadastro.fisica f 
    inner join cadastro.pessoa p on f.idpes = p.idpes 
    inner join pmieducar.aluno a on p.idpes = a.ref_idpes 
    inner join pmieducar.matricula m on a.cod_aluno = m.ref_cod_aluno 
    inner join pmieducar.serie s on m.ref_cod_serie_referencia = s.cod_serie 
    inner join pmieducar.escola e on m.ref_ref_cod_escola = e.cod_escola 
    inner join cadastro.juridica j on e.ref_idpes = j.idpes 
    inner join pmieducar.instituicao i on e.ref_cod_instituicao = i.cod_instituicao 
    left join cadastro.fisica_deficiencia fd on f.idpes = fd.ref_idpes
WHERE m.ano = 2023 and m.ativo = 1 and m.ativo = 1 and m.ultima_matricula = 1"
cadastro.fisica<-dbGetQuery(
  conn.ieducar_hom,query)

t %>% select(correcao_fluxo,defasagem) %>% table() #%>% prop.table()

              defasagem
correcao_fluxo defasado ndefasado
             0    41892    219347
             1     8252        80

cadastro.fisica$nm_curso %>% unique

 [1] "Educação Infantil"                                                                                 
 [2] "Ensino Fundamental de 9 Anos - Ciclos"                                                               
 [3] "Ensino Médio"                                                                                       
 [4] "Educação de Jovens e Adultos"                                                                      
 [5] "Ensino Fundamental de 9 Anos - Ciclos Integral"                                                      
 [6] "Educação Infantil - Integral"                                                                      
 [7] "Ensino Médio em Tempo Integral"                                                                     
 [8] "Ensino Fundamental de 9 Anos - Ciclos Especial"                                                      
 [9] "Ensino Fundamental Socioeducação"                                                                  
[10] "Educação Infantil -  Especial"                                                                     
[11] "Ensino Médio - Socioeducação"                                                                     
[12] "Curso Técnico de Nível Médio de Técnico em Informática para Internet Integrado ao Ensino Médio"

cadastro.fisica$tp_escola %>% unique()

[1] "1"

cadastro.fisica %>% select(situação,correcao_fluxo,defasagem) %>% table %>% as.data.frame() %>%
  mutate(correcao_fluxo=ifelse(correcao_fluxo==1,"correção_de_fluxo","n_correção_de_fluxo")) %>% 
  ggplot(aes(x=situação,y=Freq,fill=defasagem))+geom_col()+coord_flip()+geom_col(alpha=0.3,aes(fill=correcao_fluxo))+facet_wrap(situação~1,scales = "free",ncol =1)

cadastro.fisica$cod_linga_indigena %>% unique

[1] NA