U1A9

Caso de Estudio 4: Abejas

Introducción

En este documento estaremos explicando por que las abejas están en constante decenso de su existencia en México, apesar de lo que presentemos en este documento la extinción de las abejas no se termina de explicar por ningun factor en específico, la inminente extinción de las abejas es causada por un sin número de factores algunos de los cuales estaremos analizandolos en este reporte

Antecedentes

De acuerdo con estadísticas de GreenPeace el 70% de las plantas de consumo humano dependen de la polinización hecha por las abejas y otros insectos, entre los alimentos que las abejas ayudan a producir se encuentran la fresa, el pepino, las almendras, las manzanas, los tomates entre otros.

La cuestión es que estos insectos han existido desde hace aproximadamente 34 millones de años de acuerdo con la investigación de Deborah Smith y Lynn Villafuerte, y pueden ser encontrados prácticamente en todo el mundo, con excepción de los casquetes polares, además han sido domesticadas y cultivadas para la producción de miel, cera, polen, propóleo y también para la polinización desde tiempos tan remotos como el periodo neolítico entre 7 y 8mil años de antigüedad.

Recuperado de

Las Abejas en México

Habitats y sus cambios por el calentamiento global

Una explicación hacia el por que las abejas están desapareciendo es gracias a el cambio en sus habitats donde frecuentan y el aumento de el calentamiento en el ambiente conforme pasan los años, las abejas soportan la temperatura máxima de 35 grados centrigrados, una temperatura muy normal enlos últimos

Descarga de código

xfun::embed_file("U1A9.Rmd")
Download U1A9.Rmd

Métodos

Importacion de paquetes

library(pacman)
p_load(rmdformats,readr,readxl,plotly,gganimate,DT,fdth,xfun)

Importacion de datos

# Datos sobre cuántas colmenas cada año desede 1961 hasta 2019 en el país de México
COLMENAS <- read_csv("colmenas.csv")
## Parsed with column specification:
## cols(
##   Year = col_double(),
##   Value = col_double()
## )

Visualización de datos

Visualización en tabla (Tabla 1)

Aquí podemos ver los datos que se han sacado desde el año desede 1961 hasta 2019 de cuantas colmenas ha habido en ese año. De aqui nos podemos darnos cuenta que hay un cierto período de tiempo en el que la cantidad de colmenas disminuye y luego comienza a aumentar nuevamente

datatable(COLMENAS)

Gráfica de transición (Gráfica 2)

ggplot(data=COLMENAS)+
         geom_line(aes(x = Year, y = Value),color="blue")+
         labs(title="Población de abejas en mexico", subtitle="Fuente: http://www.fao.org/faostat/en/#data/QA", x="Fecha",y="Cantidad de colmenas")+
  transition_reveal(Year)

Visualización en gráfica interactiva (Gráfica 3)

ggplotly(ggplot(data=COLMENAS)+
         geom_line(aes(x = Year, y = Value),color="blue")+
         labs(title="Población de abejas en mexico", subtitle="Fuente: http://www.fao.org/faostat/en/#data/QA", x="Fecha",y="Cantidad de colmenas"))