U2A8

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?

!(Basura)[basuralat.jpg]

Asignación sería:

Utilizando los datos proporcionados conteste a las siguientes preguntas:

library(readr)
library(DT)
basura <- read_csv("basura.csv")

## Parsed with column specification:
## cols(
##   anio = col_double(),
##   basura = col_double(),
##   rellenos = col_double()
## )

datatable(basura)

¿Cómo ha aumentado la producción de basura en México?

pairs(basura)

library(ggplot2)
ggplot(data=basura) +
  geom_line(aes(anio,basura)) +
  xlab("Año") +
  ylab("Basura") 

Se puede observar que la cantidad de basura ha aumentado de manera exponencial, con forme aumentan los años, aumenta la cantidad de basura que se produce.

¿Los rellenos son suficientes para atender la demanda de generación de basura?

• Regresión de la producción de basura

reg <- lm(basura ~ rellenos, data = basura)
summary(reg)

## 
## 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

plot(basura$rellenos, basura$basura, xlab="Año", ylab="Basura")
abline(reg)

No son suficientes, ya que la basura sigue aumentando y los rellenos no, por eso hay tanta basura en baldios, etc.

• 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

¿Cuántos rellenos necesitaríamos para poder manejar toda esta basura?

Para el año 2011 existieron 196 rellenos para 41062.5 toneladas de basura, que obviamente son insuficientes, para cuando la basura se duplique se necesitarán, aproximadamente, el triple de rellenos.

¿Qué alternativa objetiva propone para atacar este problema?

Una de las alternativas más viables es reciclar, reducir y reutilizar, esto con el fin de disminuir los desechos que producimos, es necesario educar a la población sobre este proceso, sobre todo a las nuevas generaciones, por que las generaciones más grandes ya tienen muy arraigadas la costumbre de tirar la basura donde sea.

Conclusión

Con este ejercicio podemos ver el gran problema que es la basura en México, puesto que aumenta demaciado rapido cada año, a esto se le suma el hecho de que los rellenos existentes no son suficientes para depositar toda esta basura que se genera.