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.

Para la descarga de este código

Para fines de reproducibilidad inmediata se incluye todo el código para su descarga

xfun::embed_file("U1A8.Rmd")

Download U1A8.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.

Desarrollo

¿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.

Las abejas son mucho más que un pequeño insecto con el que los seres humanos compartimos el planeta, pues son las encargadas de polinizar vegetales en parcelas cercanas a sus colmenas, lo que contribuye a mejorar la biodiversidad, para que después, los polinizadores como pájaros, mariposas y murciélagos transporten el polen de flor en flor para fertilizar a las plantas. Este proceso permite la germinación de semillas y el crecimiento de frutos, es decir, sin abejas no habría alimentos.

También existirií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.

setwd("~/6to semestre/Estadistica aplicada/TAREAS/U1A9") #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")
  • Importación de datos
library(prettydoc) #formato de documentos
library(readr) #leer datos
library(DT)
library(readxl)
Colmenas <- read_excel("Colmenas.xlsx")
View(Colmenas)
class(Colmenas)
## [1] "tbl_df"     "tbl"        "data.frame"
head(Colmenas)
## # A tibble: 6 x 2
##   Fecha Colmenas
##   <dbl>    <dbl>
## 1  1980  2380600
## 2  1981  2532200
## 3  1982  2532200
## 4  1983  2690500
## 5  1984  2493400
## 6  1985  2384500

Visualizar datos

  • Tabla
datatable(Colmenas)
  • Gráfica de linea: Colmenas a través de los años
library(readxl)
colmenass <- read_excel("Colmenas.xlsx") 
colmenas <- ggplot(data = colmenass) + 
  geom_line(aes(Fecha, Colmenas, colour="Colmenas")) + 
  xlab("Año") +
  ylab("Cantidad de Colmenas") +
  ggtitle("Colmenas a través de los años") 
library(plotly)
ggplotly(colmenas)
  • Gráfica de pastel acerca de las unidades de producción en las Entidades de municipio.
library(readxl)
Unidades <- read_excel("Unidades.xlsx") 
ggplot(Unidades,aes(x=1 ,y=Unidad, fill=Entidad))+
  geom_bar(stat = "identity",color="white")+
  geom_text(aes(label=percent(Unidad/281)),
              position=position_stack(vjust=0.5),color="black",size=1.8,)+
  coord_polar(theta="y")

  • Gráfica de barras: Existencia de colmenas por entidad y municipio de Sonora.
library(readxl)
colmena <- read_excel("COLMSON.xlsx") 
library(ggplot2)
Mpio <- colmena$MUNICIPIO
num <- colmena$Ncolmenas
datos <- data.frame(num, Mpio)
colme <- ggplot(colmena, aes( y=num, x=Mpio)) +
  geom_bar(position="dodge", stat="identity", fill= "orange")+
  labs(x="Municipio", y="Cantidad de colmenas", title="Número de colmenas por municipio en Sonora") +
  theme(axis.text.x = element_text(angle=90, hjust=1),axis.text.y =element_text(size = 6))
 
library(plotly)
ggplotly(colme)
  • Gráfico: Pesticidas uso.
library(readxl)
colmenass <- read_excel("Colmenass.xlsx")
Pest <- ggplot(data = colmenass) +
  geom_line(aes(Fecha, Toneladas, colour="Toneladas de pesticidas")) + 
  xlab("Año") +
  ylab("Toneladas") +
  ggtitle("Pesticidas 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: 0x0000000012487828>
## <environment: namespace:ggplot2>
ggplotly(Pest)
  • Gráfica de línea: Relación entre el uso de pesticida y las colmenas de abeja (1990 - 2018)
library(readxl)
colmenass <- read_excel("Colmenass.xlsx")
Escal <- colmenass$Escala
rel <- ggplot(data = colmenass) +
  geom_line(aes(Fecha, Toneladas, colour="Toneladas de pesticidas")) + 
  geom_line(aes(Fecha, Escal, colour="Colmenas (escala)")) +
  xlab("Año") +
  ylab("Comportamiento") +
  ggtitle("Relación entre el uso de pesticidas 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: 0x0000000012487828>
## <environment: namespace:ggplot2>
ggplotly(rel)

Bibliografia