U2A1

¿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?

Desechos

Datos desechos

¿A dónde va toda esa basura?

Estadísticas ambientales: https://enactusmexico.com.mx/mundosinresiduos/wp-content/uploads/2019/09/CTEIERSP_Sesio_n_abril_5__2018__RESIDUOS_SOLIDOS.pdf

Si queremos analizar este problema de manera científica y usando la probabilidad y estadística

¿Cuáles serían los pasos?

Plantear una pregunta: ¿Cómo es el problema de la basura en México?
Plantear hipótesis h0: El problema no solamente es grave, va en aumento.
Recabar datos: ¿qué datos necesitamos?

https://datos.gob.mx/busca/dataset/indicadores-basicos-del-desempeno-ambiental--residuos-solidos

Primer vistazo a los datos:

Encontrar 3 lugares en Ciudad Obregón que sean tiraderos intraurbanos

https://www.google.com.mx/maps/@27.5375444,-109.945326,3a,15y,261.05h,84.74t/data=!3m9!1e1!3m7!1s9i-P9YCSFyDI28_Nx5jWzg!2e0!7i16384!8i8192!9m2!1b1!2i23

Datos

Tenemos los datos: Estos datos son los millones de toneladas de basura generadas por año en México desde 1992 hasta 2012, con estos datos realizar un análisis y responder la pregunta planteada

Tabla datos

Importar datos

setwd("~/PyE1213")
library(pacman)
library(modeest)
library(fdth)

## 
## Attaching package: 'fdth'

## The following object is masked from 'package:modeest':
## 
##     mfv

## The following objects are masked from 'package:stats':
## 
##     sd, var

library(readr)
library(DT)

datosbasura <-read_csv("basuramx.csv")

## 
## -- Column specification --------------------------------------------------------
## cols(
##   anio = col_double(),
##   basura = col_double()
## )

Tabla de datos

datatable(datosbasura)

Tablas de distribución de frecuencia

dist <- fdt(datosbasura$basura, breaks= "Sturges")
dist

##           Class limits f   rf rf(%) cf  cf(%)
##  [21747.835,25210.492) 1 0.05  4.76  1   4.76
##  [25210.492,28673.149) 1 0.05  4.76  2   9.52
##  [28673.149,32135.806) 8 0.38 38.10 10  47.62
##  [32135.806,35598.463) 4 0.19 19.05 14  66.67
##   [35598.463,39061.12) 4 0.19 19.05 18  85.71
##   [39061.12,42523.777) 3 0.14 14.29 21 100.00

Polígonos de distribución de frecuencia

#Polígono de distribución de frecuencia absoluta
plot(dist, type ="fp", col="#FF5733")

#Polígono de distribución de frecuencia relativa
plot(dist, type="rfp", col="#E03A16")

#Polígono de distribución de frecuencia acumulada
plot(dist, type="cfp", col="#F79F1E")

Regresión lineal

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

## 
## Call:
## lm(formula = anio ~ basura, data = datosbasura)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.2066 -0.4937  0.5899  1.0825  3.8970 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 1.961e+03  3.072e+00  638.46  < 2e-16 ***
## basura      1.211e-03  9.096e-05   13.32 4.38e-11 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.98 on 19 degrees of freedom
## Multiple R-squared:  0.9032, Adjusted R-squared:  0.8981 
## F-statistic: 177.4 on 1 and 19 DF,  p-value: 4.376e-11

Gráfica

plot(datosbasura$basura, datosbasura$anio, xlab="Basura", ylab= "Año")
abline(regbasura)

Residuos

par(mfrow= c(1,1))
plot(regbasura)

Intervalo de confianza

confint(regbasura)

##                    2.5 %       97.5 %
## (Intercept) 1.955063e+03 1.967923e+03
## basura      1.020961e-03 1.401725e-03

Conclusión

Plantear una pregunta: ¿Cómo es el problema de la basura en México?

El problema con el que México está luchando es la basura, este no tiene le procesamiento suficiente para abastecer la cantidad de basura que se genera en el país. México genera muchísima basura, este está en los primeros puestos de los países con mayor genero de basura; esto genera diferentes problemas, tanto ambientales como de salud.

Plantear hipótesis h0: El problema no solamente es grave, va en aumento.

Este problema se ha generado desde hace varios atrás donde la población simplemente hace caso omiso a las indicaciones de tira de basura. Así también, el genero de basura anual de México, va aumentando año tras año. Esto se puede observar en las gráficas creadas.

Recabar datos: ¿qué datos necesitamos?

Los datos necesarios son los recabados en estudios acerca del tema, donde se den datos de la generación de basura en el país. También se necesitan los datos de recolección de dicha basura.