AE6UC2_14

Equipo 6: Jarol Tellez, Aldo Mendivil, Oscar Roman y Roberto Contreras

library(pacman) 
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc","readr", "knitr","DT","dplyr", "ggplot2","plotly", "gganimate","gifski","scales")

INTRODUCCION

Las abejas son unos insectos extremadamente sociables que viven en colonias que se establecen en forma de enjambres. Habitan en todos los continentes de la Tierra excepto en la Antártida, y se trata de uno de los insectos más antiguos, del que se sabe, puebla nuestro planeta desde hace más de de 30 millones de años.

Las abejas son los insectos polinizadores por excelencia y tienen una función esencial para el equilibrio de la naturaleza, ya que contribuyen activamente a la supervivencia de muchas especies de plantas que se reproducen gracias al transporte de polen que llevan a cabo estos pequeños animales al alimentarse del néctar de las flores.

¿Por qué las abejas están en peligro de extinción?

  • Las abejas están desapareciendo del mundo por estas 4 principales causas: La deforestación masiva. La falta de flores. El uso de pesticidas y fertilizantes tóxicos, no controlados.

Consecuencias de la extinción de las abejas

  • Como consecuencia, la desaparición de las abejas puede impedir o reducir drásticamente la reproducción de muchas especies de plantas, lo que puede resultar en la pérdida de la biodiversidad y en un desequilibrio de los ecosistemas. Si las abejas desaparecieran de nuestro planeta, la mitad de las especies de plantas y el 75% de los productos que consumen los humanos (incluida la carne), desaparecerían.

¿Como podemos contribuir como humanos para evitar su desaparición?

  • El grave estado en el que se encuentran la población de algunas especies de abejas depende en parte de la acción humana. Hay diferentes acciones concretas que el hombre podría tomar para evitar su desaparición. Por ejemplo, no matarlas indiscriminadamente, no usar pesticidas, llevar a cabo medidas para preservar y restaurar sus hábitats naturales o impulsar la agricultura ecológica. Con prácticas tan simples como estas, podríamos revertir las condiciones que han llevado a las abejas a estar en peligro de extinción.

ANTECEDENTES

En México, la apicultura genera alrededor de 100 mil empleos directos y se producen más de 57 toneladas de miel al año, siendo Yucatán el principal productor con un aproximado de más de 8 mil toneladas anuales. Por ello debemos saber que en nuestro país, la apicultura tiene una gran importancia socioeconómica y ecológica, ya que es considerada como una de las principales actividades pecuarias.

Además, las abejas son fundamentales para un equilibrio del medio ambiente ya que las abejas al obtener el alimento de las flores fomentan en las plantas la capacidad de fecundarse. Es así como se da el efecto de que las plantas puedan generar el oxígeno suficiente para la vida y aumentar el rendimiento en los cultivos, lo que favorece un incremento en alimentos de origen vegetal, materia prima textil, e insumos agropecuarios.

OBJETIVOS

Realizar analisis estadísticos para observar el comportamiento de de estos y asi determinar las soluciones para las siguientes incógnitas:

¿Cómo es el panorama de producción apícola en México?

¿Es alentador?

¿Es un problema que las abejas se están extinguiendo?

TEORÍA

Apicultura

  • La apicultura es la crianza y cuidado de las abejas, a través de esta se obtienen productos como miel, jalea real, propoleo, cera y polen.

Polen

  • El polen de abeja, también conocido como pan de abeja y ambrosía, es una bola o gránulo de polen de flores recolectado en el campo empaquetado por las abejas obreras y utilizado como la principal fuente de alimento para la colmena.

Pecuaria

  • Pecuaria es una palabra de origen latino derivada de pecus, que significa ganado.Es la denominación que suele darse a la actividad ganadera, consistente en la crianza de animales para su comercialización y aprovechamiento económico.

Insumos agrícolas

  • Los insumos agrícolas son los productos (fertilizantes, abonos, plaguicidas, semillas…) que se utilizan para el control de plagas, como uso veterinario o como alimento para los animales. Y, por tanto, en la agricultura ecológica también los podemos encontrar

RESULTADOS Y DISCUSIÓN

Importación de datos y creación de variables

library(readr)
produccionMiel <- read_csv("miel.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.

Fuente: Atlas Nacional de las abejas y derivados Aplícolas

produccionJalisco <- t(produccionMiel[produccionMiel$Estado=="JALISCO" ,])
produccionJalisco <- as.vector(produccionJalisco)
produccionJalisco <- produccionJalisco[2:18]
produccionJalisco <- as.numeric(produccionJalisco)
produccionJalisco <- as.vector(produccionJalisco)

Fecha <- seq(from = as.Date("2003-01-01"),to = as.Date("2019-12-31"),by = "year")

datos <- data.frame(Fecha, produccionJalisco)

Gráfica interactiva

gcov <- ggplot(data = datos) +
  geom_line(aes(Fecha, produccionJalisco, colour="Produccion Miel Jalisco")) +
  xlab("Fecha") +
  ylab("Toneladas de miel producidas") +
  labs(colour="Miel")+
  ggtitle("Toneladas de miel producidas  en Jalisco")

ggplotly(gcov)

La gráfica anterior muestra los totales de producción de miel anual en el estado de Jalisco desde el 2006 hasta el 2019. Se puede notar que las producciones anuales varían mucho entre año y año, además de que se puede apreciar un pico de producción en 2014 con 7076 toneladas de miel, seguido de una bajada entre 2015 y 2016 con 5047 y 4590 toneladas respectivamente. La gráfica es completamente interactiva, se puede acercar alejar y seleccionar franjas de tiempo para ver en profundidad los datos.

Serie de tiempo

produccionJalisco.ts<- ts(data=produccionJalisco,start=2003,end =  2019,frequency = 1)
plot(produccionJalisco.ts, xlab="Fecha",ylab="Toneladas de miel")
title(main = "Toneladas de miel producidas en Jalisco")

boxplot(produccionJalisco.ts~cycle(produccionJalisco.ts),col="light green",xlab="Años",ylab="Toneladas de miel producidad",main="Analisis ciclico anual")

El diagrama de caja y bigotes anterior nos muestra que la mediana de las producciones anuales de miel en Jalisco está cerca de las 5800 toneladas. Además vemos que los datos son bastante simétricos, salvo por cinco puntos atípicos que corresponden con los picos y valles que vimos en la gráfica anterior.

Descomposición de la serie de tiempo

produccionJalisco2=ts(data=produccionJalisco,start=(2003),end=(2019),frequency=2)
produccionJalisco.ts.desc<- decompose(produccionJalisco2)
plot(produccionJalisco.ts.desc)

En esta descomposición de la serie de tiempo se puede apreciar una estacionalidad pareja y una tendencia bastante irregular, lo cual quiere decir que las producciones anuales de miel en Jalisco no parecen seguir ningún patrón especifico.

Transformaciones basicas de una serie de tiempo

  • Estabilizacion de la varianza
plot(log(produccionJalisco2))

La gráfica anterior es una representación de la transformada logarítmica de la serie de tiempo de la gráfica, lo cual nos deja con una estabilización de la varianza. Aún podemos ver mucha dispersión en los datos, pero un par de grupos de ellos que oscilan una varianza estabilizada, pero esta oscilación se ve interrumpida por los enormes picos y valles en la producción que vimos antes.

Eliminación de la tendencia

x<-log(produccionJalisco2)
dif1.x<-diff(x)
plot(dif1.x)

En esta eliminación de la tendencia vemos nuevamente claros picos, valles y datos oscilantes alrededor de la media.

Eliminación de la estacionalidad.

dif12.dif1.x<-diff(dif1.x,log=12)
plot(dif12.dif1.x)

Al eliminar la estacionalidad, la gráfica sigue manteniendo una gran disparidad, ademas de las disparidades adicionales ocacionadas entre 2014 y 2016 que vimos desde que se estableció la serie de tiempo. ## Predicciones

Predicciones

Hay una probabilidad del 99% que se produzcan 4000 toneladas de miel en jalisco en el siguiente año:

pnorm(4000, mean=mean(produccionJalisco), sd=sqrt(var(produccionJalisco)), lower.tail=FALSE)
## [1] 0.9992996

Hay una probabilidad de 63% que se produscan 6000 toneladas el siguiente año:

pnorm(6000, mean=mean(produccionJalisco), sd=sqrt(var(produccionJalisco)), lower.tail=TRUE)
## [1] 0.6328986

CONCLUSIONES

¿Cómo es el panorama de producción apícola en México?

La apicultura en México ocupa el quinto lugar como productor y el tercer lugar como exportador de miel a nivel mundial lo que nos indica que la apicultura juega un papel muy importante para la economía de nuestro país, generando importantes volúmenes de empleo, por lo que eso sería otro punto importante para entender que es un problema que las abejas se estén extinguiendo y además de las afectaciones económicas que generaría, las abejas no solo hacen miel, sino que hacen algo de mayor importancia que es la polinización lo que ayuda a frenar la perdida de biodiversidad y la degradación de los ecosistemas que al no estar presentes se generaría una crisis alimentaria.

¿Es un problema que las abejas se estén extinguiendo?

Las abejas son fundamentales para un equilibrio del medio ambiente ya que al obtener el alimento de las flores fomentan en las plantas la capacidad de fecundarse. Es así como se da el efecto de que las plantas puedan generar el oxígeno suficiente para la vida y aumentar el rendimiento en los cultivos, lo que favorece un incremento en alimentos de origen vegetal, materia prima textil, e insumos agropecuarios.

Si las abejas llegaran a extinguirse, nuestra dieta se vería reducida en ciertas frutas, verduras y plantas que necesitan directamente de la polinización de ciertas especies de abejas, ya que se estima que cerca de un 84% de los cultivos comerciales depende de la polinización que realizan, además lo sectores que necesitan de plantas beneficiadas por las abejas también, por lo tanto, es un problema muy serio que las abejas se estén extinguiendo.