Basura en México
Caso de estudio de la 2da unidad de la materia de probabilidad y estadística en el cual se aborda la temática del problema de la basura en México
Antecedentes
¿Qué es la basura?
El término basura se refiere a cualquier residuo inservible, a todo material no deseado y del que se tiene intención de desechar.
¿La basura es un problema?
Además de la contaminación del aire, la tierra y el agua; la mala gestión de los residuos tiene efectos perjudiciales para la salud pública (por la contaminación ambiental y por la posible transmisión de enfermedades infecciosas vehiculizadas por los roedores que los habitan) y degradación del medio ambiente en general, además de impactos paisajísticos.
Asimismo, la degradación ambiental conlleva costos sociales y económicos tales como la devaluación de propiedades, pérdida de la calidad ambiental y sus efectos en el turismo.
¿Cómo es la problemática de la basura en México?
https://www.animalpolitico.com/2018/10/mexico-genera-basura-paises-america-latina/
El planeta genera más de 2.000 millones de toneladas de basura al año, pero expertos calculan que produciremos hasta 3.400 millones en el año 2050. ¿Cómo contribuye América Latina a estas preocupantes cifras?
Asignación sería:
Utilizando los datos proporcionados conteste a las siguientes preguntas:
## Parsed with column specification:
## cols(
## anio = col_double(),
## basura = col_double(),
## rellenos = col_double()
## )1.- ¿Cómo ha aumentado la producción de basura en México?
- Regresión de la prodcucción de basura en México con respecto al año
## anio basura rellenos
## anio 1.0000000 0.9495559 0.9435149
## basura 0.9495559 1.0000000 0.9393043
## rellenos 0.9435149 0.9393043 1.0000000##
## Call:
## lm(formula = basura ~ anio, data = basura)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1355.49 -751.81 -124.62 42.68 2623.36
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.344e+06 1.175e+05 -11.44 8.32e-09 ***
## anio 6.882e+02 5.868e+01 11.73 5.92e-09 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1185 on 15 degrees of freedom
## Multiple R-squared: 0.9017, Adjusted R-squared: 0.8951
## F-statistic: 137.5 on 1 and 15 DF, p-value: 5.915e-09- Ajuste de la recta de la basura en México
Luego de ver la regresión por mínimos cuadrados se puede notar por la recta y la posición de los datos, que aunque van casi lineal,estos no crecen de forma totalmente lineal, pero la basura crece de manera bastante constante, y mucho.
2.- ¿Los rellenos son suficientes para atender la demanda de generación de basura?
- Regresión de la prodcucción de basura en México con respecto al número de rellenos sanitarios
##
## Call:
## lm(formula = basura ~ rellenos, data = basura)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1813.9 -931.7 -156.9 1010.5 2301.5
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 27418.764 708.729 38.69 < 2e-16 ***
## rellenos 72.231 6.812 10.60 2.3e-08 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1297 on 15 degrees of freedom
## Multiple R-squared: 0.8823, Adjusted R-squared: 0.8744
## F-statistic: 112.4 on 1 and 15 DF, p-value: 2.299e-08- Ajuste de la recta de la basura en México con respecto al número de rellenos sanitarios
No se han implementado cada vez más rellenos sanitarios en el país con respecto a la basura producida según la recta, pero si se han incrementado en número, sin embargo aún es insuficiente, se necesitaría superar por mucho el número de rellenos sanitarios para que sea suficiente, pues cada vez hay más basura en las calles, las periferias de las ciudades en las que se encuentran estos rellenos están altamente contaminadas afectando a zonas aledañas, por lo tanto sigue siendo insuficiente si existen los mismos o peores resultados cada día. Además que no es un problema definitivo para la generación de residuos.
Si ya conocemos la manera en la que aumenta la basura con el paso de los años, ahora predecir cuánta basura tendríamos en el año 2025 al 2100 en intervalos de 5 años
## [1] 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009
## [16] 2010 2011nuevos.anios <- data.frame (anio = seq(2025, 2050))
pr<- predict(regr, nuevos.anios)
na <- ggplot(data = nuevos.anios)+
geom_line(aes(anio, pr))+
xlab("Año")+
ylab("Basura")
grid.arrange(na)
- Ahora, ¿Cuantos rellenos necesitaríamos para poder manejar toda esta basura?
Se necesitarían muchísimos más para que realmente se pueda administrar todo el residuo, el cual sería demasiado el que habría en ese momento, realmente para ese momento debería de existir otro método más eficiente que el relleno sanitario.
- ¿Qué alternativa objetiva propone para atacar este problema?
Desde hoy educar a las nuevas generaciones, con campañas desde el prescolar que inviten e induzcan a los niños a empezar a reciclar con campañas y materias obligatorias en las que los menores se involucren en el cuidado ambiental, y las familias empezaran a separar los residuos y a sacarles el mejor provecho siempre que sea posible y darles insentivos a las colonias que cumplan todas las pautas sin falta, en cada sector de las ciudades empezar a colocar contenedores para cada tipo de residuo, así como de ley subir el costo de las multas por contaminación en las calles y crear escuadrones especializados dedicados a supervisar que todo se cumpla, e igual que todas las empresas e industrias se lleve a cabo la separación y administración de residuos de manera estricta.
Redacción
En este análisis con la comparación de rectas de mínimos cuadrados fue facilmente deducible que la basura que produce efectos PERMANENTES está sobrepasando un por mucho a una solución poco eficiente y TEMPORAL, por lo cual si nos basamos en estos datos podemos decir que se necesita actuar pues los rellenos sanitarios no son suficientes para la basura que se genera. Y así como en este análisis se pueden hacer inferencias o suposiciones con las regresiones y datos muestrales. De gran utilidad para cualquier estudio estadístico y probabilístico que se requiera.