LA BASURA EN MEXICO
¿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 en México
El sistema de recolección de basura en Ciudad de México resulta insuficiente para el manejo de las más de 13 mil toneladas de residuos sólidos que se generan diariamente, por lo que, en la opinión de expertos, la capital del país está al borde del colapso ambiental.
El principal problema de Ciudad de México no es la separación y el reciclaje, sino la excesiva generación de basura.
¿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.
IMPORTAR DATOS
IMPORTAR PAQUETES
## Loading required package: carData## -- Attaching packages ---------------------------------- tidyverse 1.3.0 --## v tibble 3.0.3 v dplyr 1.0.2
## v tidyr 1.1.2 v stringr 1.4.0
## v purrr 0.3.4 v forcats 0.5.0## -- Conflicts ------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
## x dplyr::recode() masks car::recode()
## x purrr::some() masks car::some()## Parsed with column specification:
## cols(
## anio = col_double(),
## basura = col_double()
## )ANALISIS DE DATOS
ANALISIS DE CORRELACIÓN
Con esta representación gráfica podemos observar que existe una tendencia en el crecimiento de datos que podria tener mucho que ver con el consumismo y aumento en la población.
## anio basura
## anio 1.0000000 0.9503863
## basura 0.9503863 1.0000000DIAGRAMA DE DISPERSIÓN
ggplot(data = basuramx, aes(x = basuramx$anio, y = basuramx$basura)) +
geom_point(colour = "blue") +
ggtitle("Diagrama de dispersión") +
theme_bw() +
theme(plot.title = element_text(hjust = 0.8)) +
xlab("Año") +
ylab("Toneladas de basura")
La tendencia del crecimiento es fácil de apreciar en esta gráfica.
##
## Call:
## lm(formula = basuramx$basura ~ basuramx$anio, data = basuramx)
##
## Residuals:
## Min 1Q Median 3Q Max
## -4015.9 -439.2 -287.5 911.8 2993.4
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.459e+06 1.121e+05 -13.02 6.46e-11 ***
## basuramx$anio 7.456e+02 5.599e+01 13.32 4.38e-11 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1554 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-11FORMULA DE MINIMOS CUADRADOS
Con esta formula podemos predecir el crecimiento de la basura con la tendencia que se ha tenido hasta este año.
\[ y =(-1.459e06) + (7.456e+02)x \]
RECTA DE MINIMOS CUADRADOS
Con este diagrama podemos ver la tendencia de crecimiento de la basura con el transcurso de los años.