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)
library(ggplot2)
basura <- read_csv("basura.csv")

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

datatable(basura)

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

• La producción de basura aumenta exponencialmente, con la grafica que se encuentra en la parte inferior se puede notar como la basura va incrementando cada año sin ningun decremento desde 1997.

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

• Relacion entre las variables

pairs(basura)

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

No, hay una mayor demanda de generación de basura de la que hay rellenos para abastecer la demanda de basura, por lo que hace a México uno de los países con mayor basura en Latinoamérica

• ¿Cuantos rellenos necesitaríamos para poder manejar toda esta basura? Con los datos de abajo, podemos decir que se van a necesitar muchos rellenos de los que hay en circulación

regresion <- lm(basura ~ anio, data = basura)
summary(regresion)

## 
## 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 con respecto al número de rellenos sanitarios

plot(basura$anio, basura$basura, xlab = "Año", ylab="Cantidad de basura")
abline(regresion)

sort(basura$anio)

##  [1] 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009
## [16] 2010 2011

nuevo.anio <- data.frame(anio=seq(1995,2100))
predict(regresion, nuevo.anio)

##         1         2         3         4         5         6         7         8 
##  28647.88  29336.06  30024.23  30712.41  31400.58  32088.75  32776.93  33465.10 
##         9        10        11        12        13        14        15        16 
##  34153.28  34841.45  35529.62  36217.80  36905.97  37594.15  38282.32  38970.50 
##        17        18        19        20        21        22        23        24 
##  39658.67  40346.84  41035.02  41723.19  42411.37  43099.54  43787.72  44475.89 
##        25        26        27        28        29        30        31        32 
##  45164.06  45852.24  46540.41  47228.59  47916.76  48604.94  49293.11  49981.28 
##        33        34        35        36        37        38        39        40 
##  50669.46  51357.63  52045.81  52733.98  53422.16  54110.33  54798.50  55486.68 
##        41        42        43        44        45        46        47        48 
##  56174.85  56863.03  57551.20  58239.37  58927.55  59615.72  60303.90  60992.07 
##        49        50        51        52        53        54        55        56 
##  61680.25  62368.42  63056.59  63744.77  64432.94  65121.12  65809.29  66497.47 
##        57        58        59        60        61        62        63        64 
##  67185.64  67873.81  68561.99  69250.16  69938.34  70626.51  71314.69  72002.86 
##        65        66        67        68        69        70        71        72 
##  72691.03  73379.21  74067.38  74755.56  75443.73  76131.91  76820.08  77508.25 
##        73        74        75        76        77        78        79        80 
##  78196.43  78884.60  79572.78  80260.95  80949.12  81637.30  82325.47  83013.65 
##        81        82        83        84        85        86        87        88 
##  83701.82  84390.00  85078.17  85766.34  86454.52  87142.69  87830.87  88519.04 
##        89        90        91        92        93        94        95        96 
##  89207.22  89895.39  90583.56  91271.74  91959.91  92648.09  93336.26  94024.44 
##        97        98        99       100       101       102       103       104 
##  94712.61  95400.78  96088.96  96777.13  97465.31  98153.48  98841.66  99529.83 
##       105       106 
## 100218.00 100906.18

• ¿Qué alternativa objetiva propone para atacar este problema? Fomentar el reciclaje a las familias de todo México de una forma más estricta de manera que las personas tengan una pena monetaria si no reciclan. También educar o persuadir a las personas de ser más limpias por el bien común. Pero en mi opinión hasta que en verdad sientan el golpe de lo que es el problema de exceso de basura tomaran las precauciones debidas, por eso lo de la pena monetaria cuando vean que EN VERDAD se harán cargos si no cumplen con las normas sobre la regulación de basura va ha empezar haber un cambio.