U2A1

---

¿Qué es la basura?

La basura es 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?

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 por pais

Basura america latina

¿A dónde va toda esa basura?

Segun la siguiente estadistica:

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

Los resuduos quedan almacenandose en el pais, sin darles algun otro provecho comparado con otros paises

¿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

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

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

Tabla de datos

datatable(basuramx)

Tabla de distribucion de frecuencia

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

Poigonos de distribucion de frecuencia

• Poligono acumulado

plot(dist, type= "cfp")

• Diagrama de dispersion

ggplot(data = basuramx, aes(x = basuramx$anio, y = basuramx$basura)) + 
  geom_point(colour = "pink") +
  ggtitle("Diagrama de dispersión") 

• Regresion lineal

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

## 
## Call:
## lm(formula = anio ~ basura, data = basuramx)
## 
## 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(basuramx$basura, basuramx$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

Conclusion

• ¿Cómo es el problema de la basura en México?

Podemos observar que la basura en Mexico es un problema muy grave, y contamos con el 1er lugar en America Latina que porduce mas basura, y se puede notar de manera muy explicita la cantidad de basura que se encuentra en nuestro pais, tan en las ciudades en las que residimos.

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

El problema va en aumento debido al aumento exponencial de la poblacion, ya que a esto se generan mas productos y como consecuencia aumenta la cantidad de desechos hasta se podria decir que exponencialmente.

• Recabar datos: ¿qué datos necesitamos?

Se necesitan conseguir datos en base al tema que queremos tratar como lo hicimos en esta actividad, donde se podra diferenciar cada año como la cantidad de basura aumenta exponencialemente.