Introducción

El IDH mide el progreso conseguido por un país en tres dimensiones básicas del desarrollo humano: disfrutar de una vida larga y saludable, acceso a educación y nivel de vida digno.

El IDH es una medida sinóptica del desarrollo humano. Mide los adelantos medios de un país en tres aspectos básicos del desarrollo humano:

Una vida larga y saludable, medida por la esperanza de vida al nacer. Conocimientos, medidos por la tasa de alfabetización de adultos (con una ponderación de dos tercios) y la combinación de las tasas brutas de matriculación primaria, secundaria y terciaria (con una ponderación de un tercio).
Un nivel de vida decoroso, medido por el PIB per cápita (PPA, dólares EE.UU.) Antes de calcular el propio IDH, es necesario crear un índice para cada uno de sus tres componentes. A fin de calcular los índices de esos tres componentes -esperanza de vida, educación y PIB- se escogen valores mínimos y máximos (valores de referencia) de cada uno de los tres indicadores.

El rendimiento en cada componente se expresa como un valor entre 0 y 1, aplicando una fórmula general.

Teoría

El índice de desarrollo humano (IDH) es un indicador nacido de la mano del Programa de Naciones Unidas para el Desarrollo (PNUD) que mide el nivel de desarrollo de cada país atendiendo a variables como la esperanza de vida, la educación o el ingreso per cápita.

La ONU mantiene el uso del índice de desarrollo humano en su continuo trabajo persiguiendo valores como la sostenibilidad y la reducción de los niveles de desigualdad entre continentes. De este modo, no solamente se tiene en cuenta el nivel de ingresos y rentas de los individuos de un país, sino que también mide temas como la educación y las condiciones de vida en las que se desenvuelve la persona.

Datos de Índice de Desarrollo Humano (IDH) en el mundo en el 2018

library(knitr)
     library(readxl)
     IDH_paises <- read_excel("IDH_paises.xlsx")
     kable(IDH_paises)

Posicion	Pais	IDH
1	Noruega	0,953
2	Suiza	0,944
3	Australia	0,939
4	Irlanda	0,938
5	Alemania	0,936
6	Islandia	0,935
7	Hong Kong, China (SAR)	0,933
7	Suecia	0,933
9	Singapur	0,932
10	Holanda	0,931
11	Dinamarca	0,929
12	Canadá	0,926
13	Estados Unidos	0,924
14	Reino Unido	0,922
15	Finlandia	0,92
16	Nueva Zelanda	0,917
17	Liechtenstein	0,916
17	Bélgica	0,916
19	Japón	0,909
20	Austria	0,908
21	Luxemburgo	0,904
22	Israel	0,903
22	República de Corea	0,903
24	Francia	0,901
25	Eslovenia	0,896
26	España	0,891
27	República Checa	0,888
28	Italia	0,88
29	Malta	0,878
30	Estonia	0,871
31	Grecia	0,87
32	Chipre	0,869
33	Polonia	0,865
34	Emiratos Árabes Unidos	0,863
35	Andorra	0,858
35	Lituana	0,858
37	Qatar	0,856
38	Eslovaquia	0,855
39	Arabia Saudita	0,853
39	Estado de Brunei	0,853
41	Letonia	0,847
41	Portugal	0,847
43	Bahrein	0,846
44	Chile	0,843
45	Hungría	0,838
46	Croacia	0,831
47	Argentina	0,825
48	Omán	0,821
49	Rusia	0,816
50	Montenegro	0,814
51	Bulgaria	0,813
52	Rumanía	0,811
53	Bielorrusia	0,808
54	Bahamas	0,807
55	Uruguay	0,804
56	Kuwait	0,803
57	Malasia	0,802
58	Barbados	0,8
58	Kazajistán	0,8
60	Irán	0,798
60	República de Palaos	0,798
62	Seychelles	0,797
63	Costa Rica	0,794
64	Turquía	0,791
65	Mauricio	0,79
66	Panamá	0,789
67	Serbia	0,787
68	Albania	0,785
69	Trinidad y Tobago	0,784
70	Antigua y Barbuda	0,78
70	Georgia	0,78
72	San Cristóbal y Nieves	0,778
73	Cuba	0,777
74	México	0,774
75	Granada (Caribe)	0,772
76	Sri Lanka	0,77
77	Bosnia y Herzegovina	0,768
78	Venezuela	0,761
79	Brasil	0,759
80	Azerbayán	0,757
80	Líbano	0,757
80	Macedonia	0,757
83	Armenia	0,755
83	Tailandia	0,755
85	Argelia	0,754
86	China	0,752
86	Ecuador	0,752
88	Ucrania	0,751
89	Perú	0,75
90	Colombia	0,747
90	Santa Lucía	0,747
92	Islas Fiji	0,741
92	Mongolia	0,741
94	República Dominicana	0,736
95	Jordania	0,735
95	Túnez	0,735
97	Jamaica	0,732
98	Tonga	0,726
99	San Vicente y las Granandinas	0,723
100	Surinam	0,72
101	Botswana	0,717
101	Maldivas	0,717
103	Domonica	0,715
104	Samoa	0,713
105	Uzbekistán	0,71
106	Belice	0,708
106	Islas Marshall	0,708
108	Libia	0,706
108	Turkmenistán	0,706
110	Gabón	0,702
110	Paraguay	0,702
112	Moldavia	0,7
113	Filipinas	0,699
113	Sudáfrica	0,699
115	Egipto	0,696
116	Indonesia	0,694
116	Vietnam	0,694
118	Bolivia	0,693
119	Palestina	0,686
120	Iraq	0,685
121	El Salvador	0,674
122	Kirguistán	0,672
123	Marruecos	0,667
124	Nicaragua	0,658
125	Cabo verde	0,654
125	Guyana	0,654
127	Guatemala	0,65
127	Tajikistán	0,65
129	Namibia	0,647
130	India	0,64
131	Micronesia	0,627
132	Timor Oriental	0,625
133	Honduras	0,617
134	Bután	0,612
134	Kiribati	0,612
136	Bangladés	0,608
137	Congo	0,606
138	Vanuatu	0,603
139	República de Lao	0,601
140	Ghana	0,592
141	Guinea Ecuatorial	0,591
142	Kenia	0,59
143	Santo Tomé y Príncipe	0,589
144	Reino de Suazilandia	0,588
144	Zambia	0,588
146	Camboya	0,582
147	Angola	0,581
148	Birmania	0,578
149	Nepal	0,574
150	Pakistán	0,562
151	Camerún	0,556
152	Islas Salomón	0,546
153	Papua Nueva Guinea	0,544
154	Tanzania	0,538
155	Siria	0,536
156	Zimbabue	0,535
157	Nigeria	0,532
158	Ruanda	0,524
159	Lesoto	0,52
159	Mauritania	0,52
161	Madagascar	0,519
162	Uganda	0,516
163	Benín	0,515
164	Senegal	0,505
165	Comoras	0,503
165	Togo	0,503
167	Sudán	0,502
168	Afganistán	0,498
168	Haití	0,498
170	Costa de Marfil	0,492
171	Malaui	0,477
172	Yibuti	0,476
173	Ethiopia	0,463
174	Gambia	0,46
175	Guinea	0,459
176	República democrática del Congo	0,457
177	Guinea Bissau	0,455
178	Yemen	0,452
179	Eritrea	0,44
180	Mozambique	0,437
181	Liberia	0,435
182	Mali	0,427
183	Burkina Faso	0,423
184	Sierra Leona	0,419
185	Burundi	0,417
186	Chad	0,404
187	Sudán del Sur	0,388
188	República Centroafricana	0,367
189	Níger	0,354

Mapa de ranking IDH (2018)

México se encuentra en el 74to. lugar a nivel mundial.

El PIB per cápita, ingreso per cápita o renta per cápita es un indicador económico que mide la relación existente entre el nivel de renta de un país y su población. Para ello, se divide el Producto Interior Bruto (PIB) de dicho territorio entre el número de habitantes. Las fórmula es:

\[ PIB_(per cápita) = \frac{PIB}{Población} \]

Preguntas a contestar

¿Cómo es la realción que tienen los paises en el mundo con su IDH y el PIB per cápita?
¿Los paises más desarrollados son lo que tienen mayor IDH?
¿Existe una relación entre las tasas de abandono de alumnos en diferentes Estadosde México y que su PIB per cápita sea bajo?
¿Cómo ha sido la variación que ha tenido los IDH a lo largo de los últimos años en México?
¿Cómo ha sido la variación del PIB per cápita en los últimos años es México?

Datos

Importar

Importar paquetes

setwd("~/Estadistica")
     library(pacman)
     p_load("base64enc", "htmltools", "mime", "xfun","readr", "readxl", "knitr","DT","dplyr", "ggplot2","plotly", "gganimate","gifski","scales", "hpackedbubble")

Importar datos

terminan <- read_excel("Educacion_terminan.xlsx")
     abandonan <- read_excel("Educacion_abandonan.xlsx")
     terminan2020 <- read_excel("Matricula2020.xlsx")
     abandonan2020 <- read_excel("Abandonan2020.xlsx")
     universidadesSonSin <- read_excel("Educacion_obregon_mochis.xlsx")
     niveles <- read_excel("nivelesabandonan.xlsx")
     PIB_percapita_Estados <- read_excel("PIB_percapita_Estados.xlsx")

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

PIB_percapita_Paises <- read_excel("PIB_percapita_Paises.xlsx")
     IDH_ESTADOS <- read_excel("IDH_ESTADOS.xlsx")

Datos tabulados

Tasas en diferentes niveles educativos desde ciclos del 2000 al 2020

Tasa de estudiantes que terminan algun nivel educativo (2000-2020)

datatable(terminan)

Tasa de estudiantes que abandonan algun nivel educativo (2000-2020)

datatable(abandonan)

Tasas en diferentes niveles educativos desde ciclo 2019-2020

Tasa de los alumnos que terminan del ciclo

datatable(terminan2020)

Tasa de los alumnos que abandonan del ciclo

datatable(abandonan2020)

Información educativa de Ciudad Obregón y Los Mochis nivel superior (2019-2020)

datatable(universidadesSonSin)

Resultados de IDH en paises del mundo

datatable(IDH_paises)

Resultados de IDH de Entidades Federativas en México

datatable(IDH_ESTADOS)

PIB per capita de paises

datatable(PIB_percapita_Paises)

PIB per capita de Entidades Federativas en México

datatable(PIB_percapita_Estados)

Análisis y gráficas

Grafico 1

plot_ly(terminan2020, x = ~Nivel, y = ~Valor, type = "scatter", mode = "markers") %>% 
                  layout(title = "Alumnos que terminan su ciclo escolar (2019-2020)",
                         xaxis = list(title = "Nivel"),
                         yaxis = list(title = "Tasa"))

Para muchos este ultimo ano con la pandemia se han estado esforzando un poco mas con la educacion escolar, pero esto depende del nivel en el que se ubiquen, la educacion antes del nivel medio superior es contantemente antendida por los padres, pero en los otros niveles depende del alumno el tipo de conociientos que se desee obtener. Es por esa razon la variabilidad que se tiene.

Grafico2. Estudiantes que terminaron sus estudios del ciclo 2019 - 2020, por estados

G2 <- plot_ly(data = terminan2020, x = ~Nivel, y = ~Valor, color = ~Estado)
          
          G2

## No trace type specified:
     ##   Based on info supplied, a 'bar' trace seems appropriate.
     ##   Read more about this trace type -> https://plotly.com/r/reference/#bar

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
     ## Returning the palette you asked for with that many colors

Para cada nivel debio ser algo dificil y extrano terminar el ciclo escolar de este modo, tal vez sintieron preocupacion por que seguia despues el estar en plena pandemia. Lamentablemente para aquellos que terminaron se enfretntan a lo desconocido, a una nueva experiencia pero, estando en casa.

Grafico 3. Estudiantes que abandonaron sus estudios del ciclo 2019 - 2020, por estados

G3 <- plot_ly(data = abandonan2020, x = ~Nivel, y = ~Valor, color = ~Estado)
          
          G3

## No trace type specified:
     ##   Based on info supplied, a 'bar' trace seems appropriate.
     ##   Read more about this trace type -> https://plotly.com/r/reference/#bar

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
     ## Returning the palette you asked for with that many colors

Para muchas personas el estar en pandemia se les es dificil poder estar estudiando desde casa, debido a las dificultades o limitaciones personales que tenemos, no es igual la vida de ciudad a la vida en el campo o en las comunidades alejadas, ni si quiera es la misma vida a una cuadra de tu casa. Para cada persona, familia, grupo, comunidad, ciudad se tiene un ritmo y una calidad de vida muy diferente. En lo personal esto es la base de la desercion escolar en este ultimo ano.

Grafico 4. IDH en Mexico

El IDH como ya se menciono es un analisis detallado con el que podemos ver de manera numerica la calidad de vida. En cada estado se viven con diferentes estilos de vida, de vegetacion, clima, trabajo, entre otras variables, es por eso que cada estado tiene un IDH diferente.

Grafico5. PIB per cápita nacional 2010 vs 2015

G5 <- plot_ly(PIB_percapita_Estados, x = ~`2015`, y = ~`2010`, text = ~ `Entidad federativa`, type = 'scatter', mode = 'markers', size = ~`2015`, color = ~`Entidad federativa`, colors = 'Paired',
                  marker = list(opacity = 0.5, sizemode = 'diameter'))
          G5 <- G5 %>% layout(title = 'PIB per cápita de Estados en México en el 2010-2015',
                   xaxis = list(showgrid = FALSE),
                   yaxis = list(showgrid = FALSE),
                   showlegend = FALSE)
          
          G5

## Warning: Ignoring 1 observations

## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(n, pal): n too large, allowed maximum for palette Paired is 12
     ## Returning the palette you asked for with that many colors

El PIB per cápita nacional, depende mucho de las actividades economicas que ejercen en cada entidad. En Mexico como se puede observar hay cierta linealidad entre la mayoria de los estados pero en el caso de Campeche, tiene un mayor PIB per cápita nacional, de a cuerdo a los habitantes que este estado tiene y las actividades comerciales que tienen.

Gráfico 6. IDH en el mundo

G6 <- plot_ly(data = IDH_paises, x = ~Posicion, y = ~IDH, color = ~Pais)
          
          G6

## No trace type specified:
     ##   Based on info supplied, a 'bar' trace seems appropriate.
     ##   Read more about this trace type -> https://plotly.com/r/reference/#bar

## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
     ## Returning the palette you asked for with that many colors

     ## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
     ## Returning the palette you asked for with that many colors

A nivel mundial se tienen demasiadas diferencias que talvez no nos sorprendan mucho, pero si nos ponemos a pensar, como estamos en Mexico, en la calidad de vida que se tiene y como vivimos, ahora imaginemos a Niger que no alcanza el 0.5 de IDH cuando Mexico tiene 0.774 es una diferencia bastante considerable, imaginemos como es la vida ahi, las grandes diferencias que se deben de tener. Estados Unidos que es un pais vecino cuenta con un IDH arribba de 0.9 y vemos actualmente en la noticias como hay protestas por todos lados, racismo, matanzas, entre muchas otras cosas que vemos constantemente, de verdad es asi como se ve un pais con un alto IDH?

PIB per cápita vs Años promedio de estudios en el mundo

Observamos una ligera variacion en algunos paises con los que cuentan con un PIB per cápita muy alto pero no son los que mas años promedio de estudios tienen. Una de las cosas que esto nos dice el grado de estudio es independiente de los ingresos que se tiene. Hay personas quienes son demaciado buenas en la escuela pero hay otras que simplemente no se les da la escuela, pero hay quienes no se les da la escuela pero tienen grandes negocios. En pocas palabras, el grado de estudio no es proporcional a los ingresos que una persona genera, para generar muchos ingresos no es necesario tener un grado de estudio alto.

Conclusión

Con esta pequeña fuente de datos que obtuvimos en este analisis con ayuda de graficos pudimos observar como se encuentra nuestro pais y el mundo en cuanto a Indice de Desarrollo Humano y Producto Interno Bruto per capita, pero mas alla de eso es importante tener la capacidad de pensar en los cambios que se tienen segun estos datos promedio que nos estan dando, no solamente leerlos, sino pensar en lo que significan, en lo qu afecta y como podemos mejorar esto. Hoy en dia hemos perdido la capacidad de pensar y de lo util que esto es para poder crear nuestro propio criterio, nuestro punto de vista y no solamente creer en lo que vemos o nos dicen, es importante seciorarnos de la informacion que estamos obteniendo y cosiderar si es importante para nosotros y sobre todo cuestionar todo tipo de informacion que nos esten brindando. En los datos de este analisis se encuentran muchas variables que afectan directamente el IDH y el PIB per capita, los invito a pensar en situaciones reales que tal vez no se toman en cuenta en el desarrollo de estos analisis y como podemos cambiar de verdad no solo los datos, sino la verdadera calidad de vida, ¿Es posible que un pais con un IDH y un PIB per capita tenga conflictos internos entre su gente? ¿De verdad estamos haciendo analisis realista?

Bibliografía

Javier Sánchez Galán(29 de junio, 2016).PIB per cápita. Economipedia.com

Caso de estudio: Relación del nivel educativo, el IDH y el PIB per cápita

Carlos Armando Hull Leon

27/03/2021