U1A18

setwd("~/Reynaldo Rstudio")
library(pacman)
library(readxl)
library(DT)
library(ggplot2)
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(plotly)

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

library(scales)
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc","readr", "knitr","DT","dplyr", "ggplot2","plotly", "gganimate","gifski","scales", "readr", "tidyverse","cluster", "factoextra","NbClust","tidyr")

En que situacion se encuentra Mexico

data <- read_excel("Educacion_01.xlsx")

ggplotly(ggplot(data, aes(fill=APTITUD, y=POBLACION, x=Entidad ))+
  geom_bar(position="dodge", stat="identity")+
  labs(x="Entidad federativa", y="Cantidad de Personas ", title="Población de 6 a 14 años por entidad federativa según aptitud de leer y escribir(2020)", subtitle="Fuente: INEGI")+
      theme(axis.text.x = element_text(angle=70,hjust=1),axis.text.y =element_text(size = 6)))

FIGURA 1 Cantidad de Personas de entre 6 y 14 años segun su aptitudes en Mexico para 2020

En este grafico podemos observar la cantidad de personas o niños y adolescentes de entre 6 a 14 años que cuentan con la aptitud de lectura y escritura en el año de 2020, que es una de las bases educativas no solo en México sino en todo el mundo por lo que es una manera de identificar la relacion entre ambos fundamentos muy importantes

data <- read_excel("Educacion_02.xlsx")

ggplotly(ggplot(data, aes(fill= NIVEL, y= CANTIDAD, x=Entidad ))+
  geom_bar(position="dodge", stat="identity")+
  labs(x="Entidad federativa", y="Cantidad de Personas ", title="Población de 15 años y más por entidad federativa según condición de alfabetismo(2020)", subtitle="Fuente: INEGI")+
      theme(axis.text.x = element_text(angle=70,hjust=1),axis.text.y =element_text(size = 6)))

FIGURA 2 Cantidad de Personas de 15 años en adelante segun su nivel de alfabetizacion

En el grafico anterior podemos observar la proporcion de la poblacion mayor a 15 años considerada en niveles alfabetas y analfabetas, considerandose segun la UNESCO como aquella persona que puede interpretar mensajes sencillos, donde podemos ver que existe una gran diferencia entre ambos rangos e incluso en comparacion con la anterior debido a que se puede decir que a esta edad o nivel escolar se tienen personas con mayor experiencia o necesidad de contar con ello.

data <- read_excel("Educacion_09.xlsx")

## New names:
## * `` -> ...6

dat <- ggplot(data)+
  geom_line(aes(x= Fecha, y=MEDIASUPERIOR, colour="MEDIA SUPERIOR"))+
    geom_line(aes(x= Fecha, y=SECUNDARIA, colour="SECUNDARIA"))+
    geom_line(aes(x= Fecha, y=PRIMARIA, colour="PRIMARIA"))+
    geom_line(aes(x= Fecha,y=PREESCOLAR, colour="PREESCOLAR"))+
    labs(title="Tasa neta de matriculación según nivel educativo en México", x="Fecha", y="TASA NETA")+
   scale_color_brewer(palette = "Paired")
ggplotly(dat) 

En el grafico anterior podemos ver la evolucion de la tasa neta promedio de matriculacion por nivel educativo en Mexico desde los ciclos de 2000 hasta el ciclo 2019, donde podemos observar como se mantuvo de manera creciente hasta el año de 2019 en el cual se tuvo el inicio de la pandemia provocando una baja en la matriculación de alumnos en los diferentes niveles, excepto por el nivel medio superior.

data <- read_excel("EDUACION.xlsx")

dat <- ggplot(data)+
  geom_line(aes(x= Fecha, y=MEDIASUPERIOR, colour="MEDIA SUPERIOR"))+
    geom_line(aes(x= Fecha, y=SECUNDARIA, colour="SECUNDARIA"))+
    geom_line(aes(x= Fecha, y=PRIMARIA, colour="PRIMARIA"))+
    geom_line(aes(x= Fecha,y=PREESCOLAR, colour="PREESCOLAR"))+
    labs(title="Tasa neta promedio de matriculación por según nivel educativo en Sonora", x="Fecha", y="TASA NETA ")+
   scale_color_brewer(palette = "Paired")
ggplotly(dat) 

Para el caso de Sonora podemos notar un comportamiento similar a la anterior, multiples lineas de manera creciente hasta el ultimo año de analisis donde sin duda alguna se encuentra el mayor cambio, obteniendose de manera negativa para casi todos los niveles, a diferencia de el preescolar en esta situación, donde se podria decir que es motivo de las normas educativas en Sonora.

Educacion y Covid 19

data <- read_excel("Abandono_Mexico.xlsx")

dat <- ggplot(data)+
  geom_line(aes(x= FECHA, y=MEDIASUPERIOR, colour="MEDIA SUPERIOR"))+
    geom_line(aes(x= FECHA, y=SECUNDARIA, colour="SECUNDARIA"))+
    geom_line(aes(x= FECHA, y=PRIMARIA, colour="PRIMARIA"))+
    geom_line(aes(x= FECHA,y=NSUPERIOR, colour="NIVEL SUPERIOR"))+
    labs(title="Tasa de Abandono escolar según nivel educativo en México", x="Fecha", y="TASA ")+
   scale_color_brewer(palette = "Paired")
ggplotly(dat) 

Con base al grafico anterior, podemos notar que el abandono o decersion escolar se mantiene de manera muy estable en todo México pero con un pequeño cambio en el ultimo punto de analisis, referente al ciclo del año 2020 donde para algunos casos bajo un poco el abandono como lo fue en el nivel medio superior, estable para el nivel basico de Primaria y Secundaria y un poco positiva para el caso del nivel Superior

data <- read_excel("Abandono_Sonora.xlsx")

dat <- ggplot(data)+
  geom_line(aes(x= FECHA, y=MEDIASUPERIOR, colour="MEDIA SUPERIOR"))+
    geom_line(aes(x= FECHA, y=SECUNDARIA, colour="SECUNDARIA"))+
    geom_line(aes(x= FECHA, y=PRIMARIA, colour="PRIMARIA"))+
    geom_line(aes(x= FECHA,y=NSUPERIOR, colour="NIVEL SUPERIOR"))+
    labs(title="Tasa de Abandono escolar según nivel educativo en Sonora", x="Fecha", y="TASA ")+
   scale_color_brewer(palette = "Paired")
ggplotly(dat) 

En el grafico para Sonora podemos notar un comportamiento con cambios muy adversos con respecto a cada año de analisis, donde omitiendo el nivel primaria el cual es el unico caso con un comportamiento estable, los 3 niveles que le siguen mantienen un comportamiento muy variado, principalmente en el promedio analizado para el año 2010 donde hubo una baja muy grande en comparacion a los anteriores y de igual manera para el ciclo considerado para el año 2020, el cual puede ser motivo de la modalidad virtual que tomaron las clases pero que para el año 2010 sin tener un motivo aparentemente igual de contundente uno de las razones por las cuales se puede tener este comportamiento es el hecho de que muchos de los niveles superiores en comunidades marginadas dependen en gran parte por apoyos del gobierno, y que considerando que los rangos de analisis son momentos de cambios de gobernatura, se podria decir que se abren mas oportunidades y apoyos educativos.