Artículo_Brecha_Tics

Análisis exploratorio de datos del padrón de instituciones educativas públicas interculturales.

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)

setwd("C:/Users/sant_/OneDrive - Universidad Adolfo Ibanez/Research/5 tics_intercultural")
base <- read.csv('ece_2016.csv', sep=";")

setwd("C:/Users/sant_/OneDrive - Universidad Adolfo Ibanez/Research/5 tics_intercultural")
padron_eib <- read.csv('padron_bilingues.csv', sep=";")
padron_eib <- mutate(padron_eib, interc=1)

Análisis por lengua de origen

eib_lengua = padron_eib %>%
  group_by(Nivel.Ciclo, Lengua.originaria) %>%
  summarise(Number = n())

eib_lengua_ini_jar = filter(eib_lengua, Nivel.Ciclo=="Inicial - Jardín")

eib_lengua_ini_cunjar = filter(eib_lengua, Nivel.Ciclo=="Inicial - Cuna-Jardín")

eib_lengua_pri = filter(eib_lengua, Nivel.Ciclo=="Primaria")

eib_lengua_sec = filter(eib_lengua, Nivel.Ciclo=="Secundaria")

library(ggplot2)

#Inicial jardin
  ggplot(data=eib_lengua_ini_jar,aes(x=reorder(Lengua.originaria, Number),y=Number)) +
  geom_bar(stat="identity",position=position_dodge()) + coord_flip()+theme_bw() +
  ggtitle("Inicial Jardín: Nro. de escuelas interculturales por lengua de origen") + theme(plot.title = element_text(size = 9, face="bold", hjust=0.5))+
  ylab("Nro. de escuelas") + theme(axis.title = element_text(size = 10),axis.text = element_text(size = 7, color="black"),axis.title.y = element_blank())+
  theme(panel.grid.minor.y = element_blank(),panel.grid.major.y = element_blank())+
  theme(legend.text = element_text(size=12),legend.title = element_blank(),legend.position = c(0.9,0.1))

  #Inicial cuna jardin
  ggplot(data=eib_lengua_ini_cunjar,aes(x=reorder(Lengua.originaria, Number),y=Number)) +
  geom_bar(stat="identity",position=position_dodge()) + coord_flip()+theme_bw() +
  ggtitle("Inicial Cuna Jardín: Nro. de escuelas interculturales por lengua de origen") + theme(plot.title = element_text(size = 9, face="bold", hjust=0.5))+
  ylab("Nro. de escuelas") + theme(axis.title = element_text(size = 10),axis.text = element_text(size = 7, color="black"),axis.title.y = element_blank())+
  theme(panel.grid.minor.y = element_blank(),panel.grid.major.y = element_blank())+
  theme(legend.text = element_text(size=12),legend.title = element_blank(),legend.position = c(0.9,0.1))

#Primaria
  ggplot(data=eib_lengua_pri,aes(x=reorder(Lengua.originaria, Number),y=Number)) +
  geom_bar(stat="identity",position=position_dodge()) + coord_flip()+theme_bw() +
  ggtitle("Primaria: Nro. de escuelas interculturales por lengua de origen") + theme(plot.title = element_text(size = 9, face="bold", hjust=0.5))+
  ylab("Nro. de escuelas") + theme(axis.title = element_text(size = 10),axis.text = element_text(size = 7, color="black"),axis.title.y = element_blank())+
  theme(panel.grid.minor.y = element_blank(),panel.grid.major.y = element_blank())+
  theme(legend.text = element_text(size=12),legend.title = element_blank(),legend.position = c(0.9,0.1))

#Secundaria
  ggplot(data=eib_lengua_sec,aes(x=reorder(Lengua.originaria, Number),y=Number)) +
  geom_bar(stat="identity",position=position_dodge()) + coord_flip()+theme_bw() +
  ggtitle("Secundaria: Nro. de escuelas interculturales por lengua de origen") + theme(plot.title = element_text(size = 9, face="bold", hjust=0.5))+
  ylab("Nro. de escuelas") + theme(axis.title = element_text(size = 10),axis.text = element_text(size = 7, color="black"),axis.title.y = element_blank())+
  theme(panel.grid.minor.y = element_blank(),panel.grid.major.y = element_blank())+
  theme(legend.text = element_text(size=12),legend.title = element_blank(),legend.position = c(0.9,0.1))

Análisis por región

eib_region = padron_eib %>%
  group_by(Nivel.Ciclo, Region) %>%
  summarise(Number = n())

eib_region_ini_jar = filter(eib_region, Nivel.Ciclo=="Inicial - Jardín")

eib_region_ini_cunjar = filter(eib_region, Nivel.Ciclo=="Inicial - Cuna-Jardín")

eib_region_pri = filter(eib_region, Nivel.Ciclo=="Primaria")

eib_region_sec = filter(eib_region, Nivel.Ciclo=="Secundaria")

library(ggplot2)

#Inicial jardín
  ggplot(data=eib_region_ini_jar,aes(x=reorder(Region, Number),y=Number)) +
  geom_bar(stat="identity",position=position_dodge()) + coord_flip()+theme_bw() +
  ggtitle("Inicial Jardín: Nro. de escuelas interculturales por región") + theme(plot.title = element_text(size = 9, face="bold", hjust=0.5))+
  ylab("Nro. de escuelas") + theme(axis.title = element_text(size = 10),axis.text = element_text(size = 7, color="black"),axis.title.y = element_blank())+
  theme(panel.grid.minor.y = element_blank(),panel.grid.major.y = element_blank())+
  theme(legend.text = element_text(size=12),legend.title = element_blank(),legend.position = c(0.9,0.1))

#Inicial cuna jardín
  ggplot(data=eib_region_ini_cunjar,aes(x=reorder(Region, Number),y=Number)) +
  geom_bar(stat="identity",position=position_dodge()) + coord_flip()+theme_bw() +
  ggtitle("Inicial Cuna Jardín: Nro. de escuelas interculturales por región") + theme(plot.title = element_text(size = 9, face="bold", hjust=0.5))+
  ylab("Nro. de escuelas") + theme(axis.title = element_text(size = 10),axis.text = element_text(size = 7, color="black"),axis.title.y = element_blank())+
  theme(panel.grid.minor.y = element_blank(),panel.grid.major.y = element_blank())+
  theme(legend.text = element_text(size=12),legend.title = element_blank(),legend.position = c(0.9,0.1))

#Primaria
  ggplot(data=eib_region_pri,aes(x=reorder(Region, Number),y=Number)) +
  geom_bar(stat="identity",position=position_dodge()) + coord_flip()+theme_bw() +
  ggtitle("Primaria: Nro. de escuelas interculturales por región") + theme(plot.title = element_text(size = 9, face="bold", hjust=0.5))+
  ylab("Nro. de escuelas") + theme(axis.title = element_text(size = 10),axis.text = element_text(size = 7, color="black"),axis.title.y = element_blank())+
  theme(panel.grid.minor.y = element_blank(),panel.grid.major.y = element_blank())+
  theme(legend.text = element_text(size=12),legend.title = element_blank(),legend.position = c(0.9,0.1))

#Secundaria
  ggplot(data=eib_region_sec,aes(x=reorder(Region, Number),y=Number)) +
  geom_bar(stat="identity",position=position_dodge()) + coord_flip()+theme_bw() +
  ggtitle("Secundaria: Nro. de escuelas interculturales por región") + theme(plot.title = element_text(size = 9, face="bold", hjust=0.5))+
  ylab("Nro. de escuelas") + theme(axis.title = element_text(size = 10),axis.text = element_text(size = 7, color="black"),axis.title.y = element_blank())+
  theme(panel.grid.minor.y = element_blank(),panel.grid.major.y = element_blank())+
  theme(legend.text = element_text(size=12),legend.title = element_blank(),legend.position = c(0.9,0.1))

Artículo_Brecha_Tics_Educación

Santiago Torres / Natalie Quispe

9 de marzo de 2019

Análisis exploratorio de datos del padrón de instituciones educativas públicas interculturales.

Análisis por lengua de origen

Análisis por región