Relación entre educación e ingreso en municipios de Puerto Rico
datos <- read.csv("C:/Users/perel/Downloads/educacion_ingreso_PR_clean_simulado.csv")
datos
## Municipio Bachillerato_o_mas Ingreso_per_capita
## 1 Adjuntas 32.1 14344
## 2 Aguada 23.2 16246
## 3 Aguadilla 38.0 11410
## 4 Aguas Buenas 15.9 23621
## 5 Aibonito 47.2 10887
## 6 Arecibo 45.6 18701
## 7 Arroyo 17.3 17064
## 8 Añasco 11.7 10335
## 9 Barceloneta 19.0 16364
## 10 Barranquitas 33.3 16381
## 11 Bayamón 47.6 13957
## 12 Cabo Rojo 9.3 11187
## 13 Caguas 32.6 14268
## 14 Camuy 25.3 11820
## 15 Canóvanas 13.7 17865
## 16 Carolina 31.9 13495
## 17 Cataño 13.6 11389
## 18 Cayey 30.3 12919
## 19 Ceiba 16.3 15522
## 20 Ciales 19.8 12160
## 21 Cidra 25.0 11399
## 22 Coamo 34.8 14879
## 23 Comerío 15.4 14884
## 24 Corozal 27.9 12334
## 25 Culebra 19.6 12445
## 26 Dorado 17.8 14836
## 27 Fajardo 33.5 9748
## 28 Florida 19.6 9847
## 29 Guayama 26.3 13273
## 30 Guayanilla 10.8 15132
## 31 Guaynabo 20.0 20245
## 32 Gurabo 28.4 17348
## 33 Guánica 18.0 11698
## 34 Hatillo 7.0 13451
## 35 Hormigueros 12.9 13934
## 36 Humacao 20.2 10896
## 37 Isabela 32.9 13935
## 38 Jayuya 55.0 13025
## 39 Juana Díaz 16.0 15176
## 40 Juncos 8.0 11384
## 41 Lajas 8.5 15941
## 42 Lares 17.0 20537
## 43 Las Marías 47.6 13624
## 44 Las Piedras 7.2 15479
## 45 Loíza 22.4 16636
## 46 Luquillo 28.9 12664
## 47 Manatí 15.3 14807
## 48 Maricao 34.5 14044
## 49 Maunabo 43.9 14346
## 50 Mayagüez 10.3 11540
## 51 Moca 33.5 14086
## 52 Morovis 27.1 15856
## 53 Naguabo 21.3 20123
## 54 Naranjito 16.4 17794
## 55 Orocovis 40.7 23983
## 56 Patillas 10.5 11556
## 57 Peñuelas 17.6 17412
## 58 Ponce 31.2 14657
## 59 Quebradillas 24.8 24204
## 60 Rincón 38.8 11438
## 61 Río Grande 13.6 11349
## 62 Sabana Grande 35.3 12052
## 63 Salinas 30.0 8232
## 64 San Germán 27.2 12276
## 65 San Juan 11.9 11580
## 66 San Lorenzo 31.4 14536
## 67 San Sebastián 16.7 15249
## 68 Santa Isabel 55.0 22378
## 69 Toa Alta 13.5 17755
## 70 Toa Baja 12.9 12120
## 71 Trujillo Alto 30.4 11184
## 72 Utuado 7.0 15832
## 73 Vega Alta 15.8 10064
## 74 Vega Baja 24.7 22130
## 75 Vieques 23.1 18801
## 76 Villalba 7.8 12451
## 77 Yabucoa 42.0 9123
## 78 Yauco 48.0 19639
Estadísticas Descriptivas
#Media
round(mean(datos$Bachillerato_o_mas),2)
## [1] 24.57
round(mean(datos$Ingreso_per_capita),2)
## [1] 14580.54
#Mediana
round(median(datos$Bachillerato_o_mas),2)
## [1] 22.75
round(median(datos$Ingreso_per_capita),2)
## [1] 14065
#Desviación Estándar
round(sd(datos$Bachillerato_o_mas),2)
## [1] 12.18
round(sd(datos$Ingreso_per_capita),2)
## [1] 3560.66
Diagrama de Dispersión
#Diagrama de Dispersión
plot(datos$Bachillerato_o_mas, datos$Ingreso_per_capita)
#Correlación
cor(datos$Bachillerato_o_mas, datos$Ingreso_per_capita)
## [1] 0.07062226
Regresión Lineal Simple
#Modelo
modelo <- lm(datos$Bachillerato_o_mas~datos$Ingreso_per_capita, data=datos)
summary(modelo)
##
## Call:
## lm(formula = datos$Bachillerato_o_mas ~ datos$Ingreso_per_capita,
## data = datos)
##
## Residuals:
## Min 1Q Median 3Q Max
## -17.874 -9.306 -2.580 7.975 30.804
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.105e+01 5.873e+00 3.584 0.000594 ***
## datos$Ingreso_per_capita 2.416e-04 3.914e-04 0.617 0.538940
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 12.23 on 76 degrees of freedom
## Multiple R-squared: 0.004988, Adjusted R-squared: -0.008105
## F-statistic: 0.381 on 1 and 76 DF, p-value: 0.5389
Interpretación del Modelo
sqrt(0.004988)
## [1] 0.07062577
# relacion = 2.105+2.416*Ingreso
El R^2 nos explica que la relación lineal es muy débil, lo cual
siginica que su nivel de confianza es muy baja y que no se puede
concluir que existe una relación significativa entre la educación y el
ingreso en los muncicipios de Puerto Rico.