U2A8

setwd("~/Pobabilidad y estadistica 11-12 agodic")

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

Asignación sería:

Utilizando los datos proporcionados conteste a las siguientes preguntas:

library(readr)
library(DT)
library(prettydoc)
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?

Puede visualizarse que después del año 2000 va en aumento casi en línea recta, esto quiere decir que cada vez se genera más basura en México.

boxplot(basura$basura)

plot(x=basura$anio, y=basura$basura, type = "cfp")

## Warning in plot.xy(xy, type, ...): gráfico de tipo 'cfp' va a ser truncado al
## primer carácter

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

Puede considerarse la alta correlación de esta dos variables para decir que van a la par (ya que tienen una correlación del 93.9%). Sin embargo, para atender la demanda se necesitan muchísimos más rellenos, debido a que el aumento de la basura mucho más grande que los valores que se tienen de rellenos.

cor(basura)

##               anio    basura  rellenos
## anio     1.0000000 0.9495559 0.9435149
## basura   0.9495559 1.0000000 0.9393043
## rellenos 0.9435149 0.9393043 1.0000000

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

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

plot(basura$rellenos, basura$basura, xlab = "rellenos", ylab="basura")
abline(regresion)

Redacción

En base a el análisis anterior se denota que México está produciendo mucha basura, segun la última decada analizada (2000-2010 aprox.). Puesto que existen estos datos se puede deducir que en las proximas decadas las toneladas de basura en México podrían llegar a cifras alarmantes, y ese no es el único problema, si no que tampoco se cuenta con suficientes rellenos sanitarios para que se ubique la basura, entonces esto podría llevar a la gente a quemarla, y causar un daño aun mayor.