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

Estadísticas

Importar datos

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)
library(ggplot2)

datos<- read.csv("basuramx.csv")

Tabla de datos

datatable(datos)

Tabla de distribución de frecuencia

dist <- fdt(datos$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

Poligonos de distribución de frecuencia

Poligono acumulado

plot(dist, type= "cfp")

Diagrama de dispersión

ggplot(data = datos, aes(x = datos$anio, y = datos$basura)) + 
  geom_point(colour = "blue") +
  ggtitle("Diagrama de dispersión") 
## Warning: Use of `datos$anio` is discouraged. Use `anio` instead.
## Warning: Use of `datos$basura` is discouraged. Use `basura` instead.

Regresión lineal

regresionBasura <- lm(anio~basura, data= datos)
summary(regresionBasura)
## 
## Call:
## lm(formula = anio ~ basura, data = datos)
## 
## 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
plot(datos$basura, datos$anio, xlab="Basura", ylab="Año")
abline(regresionBasura)

Residuos

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

Intervalo de confianza

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

Conclusiones

1. ¿Cómo es el problema de la basura en México? El problema de la basura es demasiado grande, porque en México desgraciadamente no se cuenta con el acto del reciclaje y tampoco hay nada que les llame la atención a los habitantes acerca del reciclaje. Entonces esto es una ayuda al acto del No reciclado y aumentará aún mas el problema de la basura sino planteamos actos que nos ayuden. 2. Plantear hipótesis h0: El problema no solamente es grave, va en aumento. Efectivamente el problema va terriblemente en aumento y lastimonsamente no se ven medidas que las personas estemos tomando para detenerla, está hipotesis se confirma al revisar las graficas y con las tablas, simplemente se observa los plots y observamos la cantidad de basura que se ha desechado por los años. 3. Recabar datos: ¿qué datos necesitamos? Los datos necesarios son como los anteriores presentados, que se han conseguido de este link: https://datos.gob.mx/busca/dataset/indicadores-basicos-del-desempeno-ambiental--residuos-solidos en el cual se presentan datos de este tipo. Se necesita la cantidad de basura y el año para poder establecer si ha crecido o decrecido por el país.