I. INTRODUCCIÓN
A lo largo de este trabajo daremos a conocer los datos sobre la producción de miel en el estado de Guerreros de 2003 a 2019. Además, consideramos importante hablar antes un poco de las abejas, su principal función y su estado actual en el mundo.
Para conocer la importancia de las abejas hay que tener en cuenta que su labor en el mundo no es solo el de producir miel, si no que más importante son excelentes polinizadores lo cual es fundamental para la reproducción de las plantas y producción de frutos y semillas. La polinización tiene ventajas muy favorecedoras tanto para los humanos como para el medio ambiente ya que gracias a esta: * Se permite que muchas plantas y flores puedan coexistir en un ecosistema, fortaleciendo la biodiversidad y garantizando un hábitat adecuado para otras especies.
Fortalece el sistema de producción agrícola en un 24%.
Mejora la nutrición: muchos de los alimentos que se consumen a diario, requieren de una polinización adecuada para poder llegar a la mesa. Lamentablemente el estado de las abejas actualmente en el mundo no es muy favorable ya que ciertas especies de abejas se han extinguido. Tal es el caso del abejorro oxidado, que solía aparecer en Ontario, Canadá. Las principales causas de la muerte de las abejas son:
Insecticidas y otros productos químicos.
Parásitos o algunos hongos pueden provocar importantes mortandades en las colmenas afectadas, llegando incluso a provocar su desaparición.
Contaminación y presencia de campos electromagnéticos.
Presencia de especies invasoras como lo podrían ser el caso de avispas.
Cambio climático. Debido a las temperaturas extremas en el planeta y las fluctuaciones en el clima, éstas se están extinguiendo.
II. OBJETIVO
Determinar la importancia que tienen las abejas para el planeta
Analizar cómo ha disminuido la producción de miel en los últimos tiempos
III. METODOLOGÍA
Para este análisis se utilizarán las siguientes herramientas y metodologías:
Series de tiempo
Una serie de tiempo es una secuencia de datos u observaciones, medidos en determinados momentos y ordenados cronológicamente. Visualmente, es una curva que evoluciona en el tiempo. Una serie de tiempo es un conjunto de observaciones sobre los valores que toma una variable (cuantitativa) a través del tiempo.
Descomposición de una serie de tiempo
Proceso que identifica y calcula las diversas componentes existentes en una serie temporal, así como la forma en que estas se relacionan entre sí.
Transformación de una serie de tiempo
Las transformaciones de series temporales en el análisis de series temporales se realizan con el objetivo de lograr mayor cumplimiento en “las suposiciones de algunas técnicas estadísticas: normalidad, linealidad, homocedasticidad, etc.”
IV. RESULTADOS Y DISCUSIÓN
En el siguiente apartado se realizarán los análisis para obtención de resultados y se discutirán sus interpretaciones.
Importación de paquetes
setwd("~/R/ESTADISTICA") #Directorio de trabajo
library(pacman) #para importar la biblioteca "pacman"
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc","readr", "knitr","DT","dplyr", "ggplot2","plotly", "gganimate","gifski","scales", "rmdformats", "readxl", "ggplot2", "plotly", "gridExtra", "leaflet")Importar datos
miel <- read_csv("ent_ton_miel_03_19.csv")## Rows: 32 Columns: 18## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr (1): Estado
## dbl (17): 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, ...##
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.guerrero <- t(miel[miel$Estado=="GUERRERO" ,])
guerrero <- as.vector(guerrero)
guerrero <- guerrero[2:18]
guerrero <- as.numeric(guerrero)
guerrero <- as.vector(guerrero)
Fecha <- seq(from = as.Date("2003-01-01"),to = as.Date("2019-12-31"),by = "year")
datos <- data.frame(Fecha, guerrero)Análisis de series de tiempo
Gráfica interactiva de miel producida en Guerrero
gcov <- ggplot(data = datos) +
geom_line(aes(Fecha, guerrero, colour="Miel")) +
xlab("Fecha") +
ylab("Miel producida en Guerrero") +
labs(colour="casos")+
ggtitle("Producción de miel en Guerrero") +
scale_y_continuous(labels = comma)
ggplotly(gcov)Esta gráfica representa la producción anual de miel en el estado de Guerrero desde 2003 hasta 2019, podemos ver como al principio la producción de miel siempre se mantenía sobre los 4000, sin embargo, en el año 2009 baja de los 4000 y los años posteriores disminuye aún más, esto es una clara señal de cómo la población de las abejas sigue en decremento por las continuas prácticas como el uso de pesticidas, así como el cambio climático provocado por los mismos humanos
Gráfica de caja y bigote de los decesos por COVID-19 en México
boxplot (guerrero ~ cycle(guerrero), col = "blue", xlab = "Año", ylab = "Miel producida en Guerrero")
Este gráfico de caja y bigote nos sirve para ver que los datos estan bien distribuidos.
Descomposición de una serie de tiempo
guerrero.ts=ts(data=guerrero,start=c(2003),end = c(2019),frequency = 2)
guerrero.ts_desc <- decompose(guerrero.ts)
plot(guerrero.ts_desc)
Aquí descomponemos la serie de tiempo, esto nos permite observar que su tendencia es bastante similar a la línea de tiempo observable y podemos ver que tiene unos ciclos en los que baja y sube.
Transformaciones básicas de una serie de tiempo
Transformacion de linea de tiempo a logaritmica
plot(log(guerrero.ts))
Aquí estamos transformando la línea de tiempo a su forma logarítmica para poder visualizar de una manera más sencilla y ver como aumento y decremento
Eliminación de la tendencia.
x <- log(guerrero.ts)
dif1.x <- diff(x)
plot(dif1.x)
En esta gráfica eliminamos la tendencia, lo cual nos permite observar donde vario más la producción de miel, en este caso podemos ver claramente un gran pico después del año 2010.
Eliminación de la estacionalidad.
dif12.dif1.x <- diff(dif1.x, log=12)
plot (dif12.dif1.x)
En esta gráfica eliminamos la estacionalidad, lo cual nos permite observar ver que en general la producción de miel aumenta y disminuye de manera algo constante sin variaciones muy importantes, a excepción del pico que mencionábamos en la gráfica anterior donde eliminamos la tendencia, en este caso vemos como en el pico más alto disminuyo menos de lo que anteriormente lo estaba haciendo, y el pico hacia abajo corresponde a que volvió a bajar más rapido la producción de miel el siguiente año
Predicciones utilizando la distribución normal
- ¿Cual es la probababilidad de que la producción de miel en Guerrero aumente en el 2020 respecto al año anterior?
pnorm(2029, mean=mean(guerrero), sd=sqrt(var(guerrero)), lower.tail=FALSE)## [1] 0.8455475Hay un 84% de probabilidad de que la producción aumente
- ¿Cual es la probababilidad de que la producción de miel en Guerrero disminuya en el 2020 respecto al año anterior?
pnorm(2029, mean=mean(guerrero), sd=sqrt(var(guerrero)), lower.tail=TRUE)## [1] 0.1544525Hay un 15% de probabilidad que la producción disminuya
- ¿Cual es la probababilidad de que la producción de miel en Guerrero sea mas de 3000 en 2020?
pnorm(3000, mean=mean(guerrero), sd=sqrt(var(guerrero)), lower.tail=FALSE)## [1] 0.5110556Hay un 51% de probabilidad de que la producción sea mas de 3000 en el año 2020
VII.CONCLUSIÓN
Conclusión General
Con el siguiente trabajo podemos concluir que las abejas es el insecto más importante y valioso que hay, ya que la falta de ellas provocaría un efecto en cascada, si no tenemos semillas no tendríamos pasto, ni flores, ni frutas, ni animales que se alimentan de frutas. Las abejas y los demás polinizadores juegan un rol fundamental en la regulación de los ecosistemas.
También podemos ver que la situación de producción apícola en el estado de Guerrero últimamente ha ido en decremento por toda la situación actual del mundo, ya que no solucionamos problemas anteriores y solo seguimos creando nuevos problemas, es por esto que deberíamos tomar acciones para evitar esta situación.
Conclusión Individual
Conclusión personal: Como conclusión personal, pude ver que sin la presencia de las abejas, casi ninguno de los seres vivos estarían en este lugar ya que no había ni plantas, ni alimentos para que hagan el ciclo alimenticio.
IX.DESCARGA DE DATOS
- Para la descarga de este código
Para fines de reproducibilidad inmediata se incluye todo el código para su descarga
xfun::embed_file("AE6UC2_14.Rmd")xfun::embed_file("ent_ton_miel_03_19.csv")