library(readr) #para leer datos
library(DT) # tablas interactivas
library(prettydoc) #documentos con mejor formato
library(hpackedbubble)##
## Attaching package: 'hpackedbubble'
## The following object is masked from 'package:datasets':
##
## CO2
setwd("~/Estadistica aplicada/E1U1") # folder de trabajoLa educación es un derecho básico de todos los niños, niñas y adolescentes, que les proporciona habilidades y conocimientos necesarios para desarrollarse como adultos y además les da herramientas para conocer y ejercer sus otros derechos.
En México, más 4 millones de niños, niñas y adolescentes no asisten a la escuela, mientras que 600 mil más están en riesgo de dejarla por diversos factores como la falta de recursos, la lejanía de las escuelas y la violencia. Además, los niños y niñas que sí van a la escuela tienen un aprovechamiento bajo de los contenidos impartidos en la educación básica obligatoria.
-¿como esta el índice de IDH en México?
-¿Cómo es la población en educación a diferentes niveles y cómo ha variado?
-¿Cómo es la deserción escolar en México y en Sonora?
-¿En qué nivel educativo está sucediendo más la deserción escolar por la pandemia?
-¿Cómo ha aumentado a través de los años el PIB en México?
-¿Qué relación tiene el PIB por entidad federativa con la educación?
-¿Son los estados más ricos los más educados?
El Índice de Desarrollo Humano (IDH) es un indicador creado por el Programa de las Naciones Unidas (PNUD) con el objetivo de medir el avance en el grado de desarrollo de los distintos países. Desde su primera publicación se ha convertido en referencia mundial del desempeño de los países en materia de desarrollo.
El IDH se construye a partir de tres dimensiones: esperanza de vida, logros educacionales e ingresos.
library("readxl")
library("ggplot2")
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
IDHM <- read_excel("IDH.xlsx")
datospob <- read_excel("poblacion.xlsx")
datosdes <- read_excel("desercion.xlsx")
print(IDHM)## # A tibble: 30 x 2
## Fecha IDH
## <dbl> <dbl>
## 1 2019 0.779
## 2 2018 0.776
## 3 2017 0.771
## 4 2016 0.768
## 5 2015 0.766
## 6 2014 0.761
## 7 2013 0.756
## 8 2012 0.759
## 9 2011 0.755
## 10 2010 0.748
## # ... with 20 more rows
P01 <- ggplot(data = IDHM, aes(x = Fecha, y = IDH, colour = Fecha)) +
geom_point() +
geom_line() +
ggtitle("Índice IDH de México de 1990 a 2020")
print(P01)A simple vista la gráfica nos diría que el índice de IDH en México en los últimos 30 años ha ido aumentando de una manera casi constante.
Datos obtenidos de: https://stats.oecd.org/Index.aspx?DataSetCode=BLI
Datos del IDH en México
plot(IDHM)idh.ts <- ts(IDHM$IDH, start= c(1,1), end = c(5,31), frequency = 5)
print(idh.ts)## Time Series:
## Start = c(1, 1)
## End = c(11, 1)
## Frequency = 5
## [1] 0.779 0.776 0.771 0.768 0.766 0.761 0.756 0.759 0.755 0.748 0.748 0.748
## [13] 0.746 0.745 0.737 0.731 0.722 0.718 0.712 0.708 0.699 0.695 0.689 0.683
## [25] 0.677 0.675 0.668 0.664 0.660 0.656 0.779 0.776 0.771 0.768 0.766 0.761
## [37] 0.756 0.759 0.755 0.748 0.748 0.748 0.746 0.745 0.737 0.731 0.722 0.718
## [49] 0.712 0.708 0.699
plot(idh.ts) ## Comparación de IDH por tiempo
boxplot(idh.ts ~ cycle(idh.ts))cycle(idh.ts)## Time Series:
## Start = c(1, 1)
## End = c(11, 1)
## Frequency = 5
## [1] 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3
## [39] 4 5 1 2 3 4 5 1 2 3 4 5 1
M.ts.desc <- decompose(idh.ts)
plot(M.ts.desc, xlab="Tiempo")Veamos que nos dice el IDH de Sonora y sus vecinos en el año 2020.
IDHS <- read_excel("IDHes.xlsx")
print(IDHS)## # A tibble: 4 x 2
## Estado IDH
## <chr> <dbl>
## 1 Sonora 0.82
## 2 Baja California 0.82
## 3 Chihuahua 0.82
## 4 Sinaloa 0.78
Estado <- IDHS$Estado
IDHes <- IDHS$IDH
datos <- data.frame(Estado, IDHes)
gpes <- ggplot(IDHS, aes( y=IDHes, x=Estado)) +
geom_bar(position="dodge", stat="identity", fill="red") +
labs(x="Estado", y="IDH", title="IDH de Sonora y estados aledaños en 2020")
ggplotly(gpes)Como podemos observar, este grafico nos representa el IDH en Sonora y estados aledaños, siendo estos: baja california, chihuahua, Sinaloa y Sonora, donde podemos observar un IDH es muy similar, siendo del 0.82 para Baja California, Chihuahua y Sonora, y del 0.78 para Sinaloa. Curiosamente los estados con mayor IDH en esta grafica son los estados que son aledaños a USA.
Estado <- datospob$`Entidad federativa`
Pob <- datospob$Total
datospob <- data.frame(Estado, Pob)
gppob <- ggplot(datospob, aes( y=Pob, x=Estado)) +
geom_bar(position="dodge", stat="identity", fill="red") +
labs(x="", y="Estudiantes matriculados", title="Matrícula escolar por entidad federativa del 2000 al 2019") +
theme(axis.text.x = element_text(angle=90, hjust=1),axis.text.y =element_text(size = 6))
ggplotly(gppob)Se puede observar en esta grafica comparativa sobre los estados de México que donde mayor cantidad de estudiantes matriculados por estado es en el estado de México teniendo gran sentido ya que es la capital, además de haber una concentración mayor de población en esa parte del territorio, seguido del estado de México podemos encontrar a la ciudad de México con una gran diferencia en cuanto a los matriculados y por ultimo nos encontramos con el estado de Jalisco.
Entre los estados con menor cantidad de matriculados podemos encontrar a baja California sur, Campeche y colima.
Con estos datos podemos encontrar una relación entre los estados de mayor crecimiento y los estudiantes matriculados, es decir, en los estados donde se encuentra mayor crecimiento, también se encuentra una mayor cantidad de alumnos matriculados.
Porcentaje de alumnos que abandonan la escuela de un nivel educativo, respecto a la matrícula de inicio de cursos del mismo nivel. Es el porcentaje de alumnos que abandonan las actividades escolares durante el ciclo escolar y al finalizar éste, respecto al total de alumnos inscritos en el ciclo escolar.
Datos obtenido de INEGI en: https://www.inegi.org.mx/app/tabulados/interactivos/?pxq=9171df60-8e9e-4417-932e-9b80593216ee
hpackedbubble(datosdes$`Entidad federativa`, datosdes$`Nivel educativo`, datosdes$`2000/2001`,
title = "Tasa de abandono escolar por entidad federativa 2000 a 2020",
pointFormat = "<b>{point.name}: </b> {point.y} %",
dataLabelsFilter = 100,
packedbubbleMinSize = "50%",
packedbubbleMaxSize = "250%",
theme = "sunset",
packedbubbleZMin = 0,
packedbubbleZmax = 10000, split = 0,
gravitational = 0.02,
parentNodeLimit = 1,
dragBetweenSeries = 0,
width = "100%")Con estos datos podemos encontrar una relación entre los estados de mayor crecimiento y los estudiantes matriculados, es decir, en los estados donde se encuentra mayor crecimiento, también se encuentra una mayor cantidad de alumnos matriculados.
Este grafico nos ayuda a observar las entidades en donde hay mayor taza de abandono escolar en un periodo de tiempo que abarca del 2000 al 2020. Nos proporciona el porcentaje y el nivel educativo (media superior, superior, básica, entre otros) donde mayor hay deserción escolar, entre los cuales podemos destacar Zacatecas con una taza de abandono del 17.4% en educación media superior, baja California sur en media superior con una taza de abandono del 19% y Coahuila con un 20.5 de igual manera en educación media superior.
Comparando este grafico en relación al grafico que nos representa los estudiantes matriculados por estados, podemos notar la relación que existe entre los estados con mayor deserción escolar y los estados con menos estudiantes matriculados.
Según las gráficas podemos observar que el nivel educativo más afectado por la deserción escolar es la Media Superior, donde las tasas suelen estar por arriba del 10% o incluso 15% normalmente (en algunos casos llega hasta el 20%). La que le seguiría seria la superior, pero esta rara vez llega o sobrepasa el 10%. La diferencia de deserción entre la Media Superior y la Superior es muy evidente.
GDP <- read_csv("GDP.csv")##
## -- Column specification --------------------------------------------------------
## cols(
## Entity = col_character(),
## Code = col_character(),
## Year = col_double(),
## GDP_USD = col_double()
## )
plot_ly(GDP,x = ~Year, y = ~GDP_USD,color=~Entity, colors = rainbow(30),mode="lines+markers") %>%
group_by(Entity) %>%
add_lines() %>%
rangeslider() %>%
layout(title = 'Producto interno bruto por pais a nivel mundial',
xaxis = list(title = 'Año'),
yaxis = list(title = 'Producto interno bruto en dolares'))Esta grafica nos permite tener una idea de cómo está el producto interno bruto (PIB) en los diferentes países del mundo en diferentes periodos de tiempo. Si nos enfocamos en México, podemos percibir un aumento exponencial de PIB en un periodo de años de 1920-2020 iniciando en aproximadamente 3000 en 1920 hasta aumentar a 16000 en 2020.
datosPIB <- read_xlsx("PIBEntidad.xlsx")
datatable(datosPIB)par(mar=c(13,2,6,2))
barplot(height=datosPIB$PIB, names= datosPIB$Entidad, col="blue",las=2, space=1, width=3, main="PIB por entidad")Según lo que podemos concluir con las gráficas, podríamos decir que la relación que hay entre el PIB de las entidades federativas con la educación nos demuestra que a mayor PIB mayor educación. Esto quizás se deba a que en estos estados con mayor PIB hay grandes empresas que requieren mano de obra calificada, en otras palabras, gente estudiada, por lo que hay un mayor interés en general (tanto privado como público) de que la población cuente con mayor educación. Como ejemplo de esto podríamos citar al ITSON, una institución educativa que nació con el propósito de brindar educación media superior a los ciudadanos de Cajeme cuyas únicas opciones en ese entonces eran la academia de comercio o irse a otra ciudad. Cajeme estaba creciendo y necesitaba de personas capaces de idear el desarrollo de una nueva tecnología, enfocada a incrementar el rendimiento de cultivo por hectáreas.
Efectivamente, esta pregunta queda contundentemente resuelta en la respuesta anterior con el ejemplo que se indicó. Un estado que es rico tiene mayores intereses en educar a su población, porque esto se traduce en mayores oportunidades de riqueza para el propio estado.
A partir del análisis realizado, la desigualdad entre los niveles de educación entre los distintos estados que integran la República Mexicana es lamentablemente muy evidente, creo que lo ideal todos deberíamos tener oportunidades similares en cuanto a la educación, pero las estadísticas aquí demuestran que estamos muy lejos de lograr esa casi “utopía”. Otro dato que es evidente es que el nivel de educación de un estado es un reflejo del crecimiento económico, además de que se puede señalar que los estados más cercanos a USA también cuentan con muy buena educación. Claro que todo lo antes mencionado se opaca con el tema de la deserción escolar, el cual es muy elevado en todos los estados del país, oscilando estas tasas entre el 10% y el 20%, lo cual considero yo que es preocupante para el futuro de nuestro país.
En cuanto al IDH en México y Sonora si podemos observar un gran avance y crecimiento según los datos obtenidos, por lo cual podemos concluir que, aunque la educación en México no es la mejor, esta va mejorando de manera constante, por lo cual no vamos en retroceso.
Además, al analizar el PIB contra la educación, quedo muy evidente la importancia de tener una buena economía, que se vea reflejada en la educación que se invierte en las personas, para que estas personas en un futuro puedan mantener y aumentar este PIB. En todo caso se podría concluir que al igual que en los negocios es importante invertir en maquinaria y tecnología en busca de mayores beneficios, la inversión en la educación es importante para asegurar la integridad económica de la sociedad, ya que a partir de mano de obra calificada se puede obtener mayores beneficios, motivo donde se hace evidente la necesidad de una mayor y mejor educación. En conclusión, una buena educación es parte de una buena negoción.
Todo lo que hemos analizado hasta ahora demuestra que México es un país grande, que cuenta con muchas posibilidades, y que a pesar de las adversidades el futuro pinta con un mayor progreso en general en todos los aspectos, aunque claro está que los obstáculos y las brechas que quedan por superar son grandes y son muchas, pero esto no significa que para un país como lo es México sea imposible.