U1A9

Cristina Gpe. Arguelles Lema, Cielo Aholiva Higuera Gutierrez, Saul Eduardo López López y Mariana Pompa Rivera

23/2/2021

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

Análisis de Apicultura en México

Acerca de este documento:

  • Este es documento basado en el análisis de apicultura en México, representado mayormente en la contribución de la abeja al ecosistema, así mismo factores realizados por humanos que puede llegar a la extinción, esto representado en datos de diferentes variables.

Datos obtenidos [Apicultura]

Descarga de este código

  • Para fines de reproducibilidad inmediata se incluye todo el código para su descarga
xfun::embed_file("U1A9.Rmd")

Download U1A9.Rmd

Introducción

  • La apicultura se describe como la actividad dedicada a la crianza de las abejas, brindándoles los cuidados necesarios con el objetivo de obtener y consumir los productos que son capaces de elaborar y recolectar. El principal producto que se obtiene de esta actividad es la miel, sin embargo también se procesan productos no menos importantes como el polen, jalea real, propóleos y veneno de abejas.

  • 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, actividad llamada polinización cruzada, con ésta, las plantas generan el oxígeno suficiente para la vida y además, aumentan el rendimiento en los cultivos, lo que favorece un incremento en alimentos de origen vegetal, materia prima textil, e insumos agropecuarios.

Alrededor del 70% de la agricultura mundial es posible por las abejas, que favorecen la polinización y reproducción de las plantas, lo cual equivale al 35% de la producción de alimentos

¿Por qué las abejas importan tanto a la humanidad?

  • La agricultura es la primera y auténtica beneficiaria de los servicios prestados por las abejas. Su contribución en términos económicos es realmente significativa, hasta tal punto que la renta directa de la apicultura (miel, cera, polen y otros productos) pasa a un segundo término.

  • Setenta de los 100 principales cultivos alimentarios que se cultivan en todo el mundo dependen de polinizadores, lo que equivale al 90 por ciento de la nutrición mundial. Sin la existencia de las abejas abría una escasez de alimentos.

  • También existirían consecuencias económicas ya que las abejas contribuyen alrededor de 3,250 pesos a la producción de cultivos por hectárea al año. Para poner eso en contexto, la Organización de las Naciones Unidas para la Agricultura y la Alimentación estima que 1.400 millones de hectáreas de tierra en todo el mundo se cultivan actualmente para cultivos. Eso equivale a agregar alrededor de $4.2 billones a la economía global.

¿Por qué las abejas están desapareciendo tan rápidamente?

  • La cantidad de abejas y otros polinizadores se está reduciendo en muchas partes del mundo debido, en buena parte, a las prácticas agrícolas intensivas, el monocultivo, el uso excesivo de productos químicos agrícolas y a unas temperaturas más altas asociadas al cambio climático, que afectan no solo a los rendimientos de los cultivos sino también la nutrición. Si esta tendencia continúa, cada vez con más frecuencias los cultivos nutritivos como frutas, nueces y muchas verduras serán sustituidos por cultivos básicos como el arroz, el maíz y las patatas, lo que podría derivar en una dieta desequilibrada.

  • En México la proliferación de cultivos de maíz ha presentado un grave problema para estos polinizadores, ya que quitan espacio para flores con polen, de las que se alimentan. Por otro lado, su hábitat natural está desapareciendo poco a poco; el campo se ve cada vez más reducido por la deforestación, según la SEMARNAT en los últimos 20 años el país ha perdido entre 155 mil y 776 mil hectáreas de bosques y selvas.

Gráfico de la Relación de Colmenas con el Uso de plaguicidas a través de los Años en México

library(readxl)
library(ggplot2)
colmenass <- read_excel("Colmenas.xlsx") 
Escal <- colmenass$Escala
rel <- ggplot(data = colmenass) +
  geom_line(aes(Fecha, Toneladas, colour="Toneladas de plaguicidas")) + 
  geom_line(aes(Fecha, Escal, colour="Colmenas (escala)")) +
  xlab("Año") +
  ylab("Comportamiento") +
  ggtitle("Relación entre el uso de plaguicidas y las colmenas de abeja (1990-2018)") +
 theme_linedraw()
  geom_point
## function (mapping = NULL, data = NULL, stat = "identity", position = "identity", 
##     ..., na.rm = FALSE, show.legend = NA, inherit.aes = TRUE) 
## {
##     layer(data = data, mapping = mapping, stat = stat, geom = GeomPoint, 
##         position = position, show.legend = show.legend, inherit.aes = inherit.aes, 
##         params = list(na.rm = na.rm, ...))
## }
## <bytecode: 0x0000000018896308>
## <environment: namespace:ggplot2>
ggplotly(rel)

Gráfico del Uso de Plaguicidas

library(readxl)
library(ggplot2)
Pest <- ggplot(data = colmenass) +
  geom_line(aes(Fecha, Toneladas, colour="Toneladas de plaguicidas")) + 
  xlab("Año") +
  ylab("Toneladas") +
  ggtitle("Plaguicidas uso (1990-2018)") +
 theme_linedraw()
  geom_point
## function (mapping = NULL, data = NULL, stat = "identity", position = "identity", 
##     ..., na.rm = FALSE, show.legend = NA, inherit.aes = TRUE) 
## {
##     layer(data = data, mapping = mapping, stat = stat, geom = GeomPoint, 
##         position = position, show.legend = show.legend, inherit.aes = inherit.aes, 
##         params = list(na.rm = na.rm, ...))
## }
## <bytecode: 0x0000000018896308>
## <environment: namespace:ggplot2>
ggplotly(Pest)

Gráfica de Pastel Acerca de las Unidades de Producción por Entidad y Municipio

library(readxl)
Unidades <- read_excel("Unidades.xlsx") 
## New names:
## * `` -> ...3
## * `` -> ...4
ggplot(Unidades,aes(x=1 ,y=UnidadesProduccion , fill=Lugar))+
  geom_bar(stat = "identity",color="gray47")+
  geom_text(aes(label=percent(UnidadesProduccion)),
              position=position_stack(vjust=0.5),color="black",size=1.8,)+
  coord_polar(theta="y")

Existencia de Colmenas por Entidad y Municipio

Existencias <- read_excel("ExistenciasColmenas.xlsx")

Ex <- Existencias$Lugar
Col <- Existencias$ExistenciasColmenas
datos <- data.frame(Ex, Col)
Existencias<- ggplot(Existencias, aes( y=Col, x=Ex)) +
  geom_bar(position="dodge", stat="identity", fill= "violetred1") +
  labs(x="Entidad o Municipio", y="Cantidad de Colmenas", title="Existencia de Colmenas por Entidad o Municipio ") +
  theme(axis.text.x = element_text(angle=90,hjust=1),axis.text.y =element_text(size = 6)) +
  geom_smooth() 
library(plotly)
ggplotly(Existencias)
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

Conclusión

Referencias Bibliográficas