library(pacman)
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc", "readr", "knitr", "DT", "scales", "tidyverse", "gridExtra", "modeest" , "fdth")¿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?
¿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?
## Parsed with column specification:
## cols(
## anio = col_double(),
## basura = col_double()
## )## # A tibble: 6 x 2
## anio basura
## <dbl> <dbl>
## 1 1992 21968.
## 2 1993 28090.
## 3 1994 29472.
## 4 1995 30510.
## 5 1996 31959.
## 6 1997 29272.
Podemos ver que la problematica en México esta muy grave y lo peor del caso es que como podemos ver esta en aumento, no solo esta muy grave la contaminación sino que va en aumento lineal, lo que es muy preocupante.
Plantear hipótesis: 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
##
## Call:
## lm(formula = basura ~ anio, data = basura)
##
## 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 ***
## 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-11- Ecuación de la recta de mínimos cudrados Con esta fomra podemos estimar cada cuanto aumenta la basura cada año en México
\[ y = -1.459e+06 + 7.456e+02x \]
Predicciones
gravedad <- data.frame(anio = seq(2013,2090))
# Con el predict podemos ver los datos que son mas probables/ideales
#predict(regresion,gravedad)
datos <- lm(basura ~ anio, data = basura)
# Este predict trabaja con la misma secuencia, pero con la regla prediction, mostrando tanto los valores ideales como los minimos y maximos posibles
predict(datos,gravedad, interval = "prediction")## fit lwr upr
## 1 41642.01 38072.68 45211.35
## 2 42387.66 38774.35 46000.98
## 3 43133.31 39472.79 46793.82
## 4 43878.95 40168.13 47589.77
## 5 44624.60 40860.50 48388.70
## 6 45370.25 41550.01 49190.48
## 7 46115.89 42236.80 49994.99
## 8 46861.54 42920.97 50802.11
## 9 47607.19 43602.66 51611.71
## 10 48352.83 44281.98 52423.69
## 11 49098.48 44959.05 53237.91
## 12 49844.13 45633.97 54054.29
## 13 50589.77 46306.85 54872.70
## 14 51335.42 46977.79 55693.05
## 15 52081.07 47646.89 56515.24
## 16 52826.71 48314.25 57339.17
## 17 53572.36 48979.96 58164.76
## 18 54318.01 49644.09 58991.93
## 19 55063.65 50306.73 59820.58
## 20 55809.30 50967.96 60650.64
## 21 56554.95 51627.84 61482.05
## 22 57300.59 52286.46 62314.73
## 23 58046.24 52943.86 63148.62
## 24 58791.89 53600.12 63983.65
## 25 59537.53 54255.30 64819.77
## 26 60283.18 54909.44 65656.92
## 27 61028.83 55562.60 66495.05
## 28 61774.47 56214.83 67334.12
## 29 62520.12 56866.17 68174.07
## 30 63265.77 57516.67 69014.86
## 31 64011.41 58166.37 69856.46
## 32 64757.06 58815.31 70698.81
## 33 65502.71 59463.52 71541.89
## 34 66248.35 60111.04 72385.66
## 35 66994.00 60757.90 73230.09
## 36 67739.65 61404.14 74075.15
## 37 68485.29 62049.78 74920.81
## 38 69230.94 62694.84 75767.03
## 39 69976.59 63339.37 76613.81
## 40 70722.23 63983.37 77461.10
## 41 71467.88 64626.87 78308.89
## 42 72213.53 65269.90 79157.15
## 43 72959.17 65912.47 80005.87
## 44 73704.82 66554.61 80855.03
## 45 74450.47 67196.33 81704.60
## 46 75196.11 67837.66 82554.57
## 47 75941.76 68478.60 83404.92
## 48 76687.40 69119.17 84255.64
## 49 77433.05 69759.40 85106.70
## 50 78178.70 70399.29 85958.11
## 51 78924.34 71038.85 86809.84
## 52 79669.99 71678.11 87661.88
## 53 80415.64 72317.06 88514.21
## 54 81161.28 72955.73 89366.84
## 55 81906.93 73594.13 90219.74
## 56 82652.58 74232.26 91072.90
## 57 83398.22 74870.13 91926.32
## 58 84143.87 75507.76 92779.98
## 59 84889.52 76145.15 93633.88
## 60 85635.16 76782.32 94488.01
## 61 86380.81 77419.27 95342.36
## 62 87126.46 78056.00 96196.91
## 63 87872.10 78692.53 97051.68
## 64 88617.75 79328.86 97906.64
## 65 89363.40 79965.01 98761.79
## 66 90109.04 80600.97 99617.12
## 67 90854.69 81236.75 100472.63
## 68 91600.34 81872.37 101328.31
## 69 92345.98 82507.81 102184.15
## 70 93091.63 83143.10 103040.16
## 71 93837.28 83778.24 103896.32
## 72 94582.92 84413.22 104752.63
## 73 95328.57 85048.06 105609.08
## 74 96074.22 85682.76 106465.68
## 75 96819.86 86317.32 107322.41
## 76 97565.51 86951.75 108179.27
## 77 98311.16 87586.06 109036.26
## 78 99056.80 88220.24 109893.37Conclusión
Concluimos que el mundo esta ignorante ante la situación de la cantaminación lo que en lo personal me deja desanimado, sin importar esto la problematica de la contaminación no solo en México sino en el mundo es muy grave, ya que viendo las graficas y las predicciones las toneladas de basura son alarmantes, lo que nos deja en un estado critico como país y como ciudadanos del mundo, el mundo necesita bajar el consumo de materias, la expansión de territorios y la quema de residuos ya que se estan agotando las opciónes y oportunidades de salvar el medio ambiente/el planeta Tierra.
Y Planeta solo hay uno