CUARTO CASO DE ESTUDIO: ANÁLISIS DE APICULTURA.
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. http://www.fao.org/news/story/es/item/1194963/icode/
Acerca de este documento
El objetivo es analizar la cantidad de pesticidas que se utilizan en México para poder relacionarlo con el declive de las abejas a lo largo de los años.
Los datos fueron obtenidos de http://www.fao.org/faostat/es/#data/RP
¿Cómo afecta el uso de plaguicidas en las abejas?
Los pesticidas son sustancias producidas de forma natural o industrial para destruir organismos potencialmente perjudiciales para las plantas cultivadas y/o animales de producción (Schaaf, 2015).
De acuerdo con un estudio de la Sociedad Latinoamericana de Investigación en Abejas, en México durante el 2017 se perdieron el 17 por ciento de todas las colmenas, entre otros factores, por el uso desmedido de plaguicidas y agroquímicos altamente tóxicos.
Importación de datos
setwd("~/Estadistica")
library(readxl)
library(tidyverse)## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --## v ggplot2 3.3.3 v purrr 0.3.4
## v tibble 3.0.5 v dplyr 1.0.4
## v tidyr 1.1.2 v stringr 1.4.0
## v readr 1.4.0 v forcats 0.5.1## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()library(prettydoc)
library(readr)
library(DT)
library(pacman)
p_load("base64enc","htmltools","mime","xfun","prettydoc","readr","knitr","DT","dplyr","ggplot2","plotly","gganimate","gifski","scales")pesticidas <- read.csv("~/Estadistica/pesticidas.csv")
View(pesticidas)Tabla de datos
datatable(pesticidas)Gráfico de las toneladas de pesticida utilizados (2000-2018)
año <- pesticidas$Año
toneladas <- pesticidas$Toneladas
plot(año,toneladas)
colmenas <- read.csv("~/Estadistica/colmenas.csv")
View(colmenas)datatable(colmenas)año <- colmenas$Fecha
colmenas1 <- colmenas$Colmenas
plot(año,colmenas1)
Relación de las toneladas de pesticida con las colmenas (2000-2018)
datos <- data.frame(colmenas, pesticidas)
datos## Fecha Colmenas Año Toneladas
## 1 2000 1875731 2000 26625
## 2 2001 1862372 2001 23372
## 3 2002 1783854 2002 11536
## 4 2003 1727234 2003 16285
## 5 2004 1745078 2004 18508
## 6 2005 1732112 2005 39172
## 7 2006 1747033 2006 38403
## 8 2007 1741040 2007 50894
## 9 2008 1797478 2008 50155
## 10 2009 1774757 2009 50328
## 11 2010 1842130 2010 52305
## 12 2011 1847667 2011 53220
## 13 2012 1898239 2012 49214
## 14 2013 1933105 2013 47551
## 15 2014 1981162 2014 43029
## 16 2015 2017931 2015 48293
## 17 2016 1859350 2016 47421
## 18 2017 1853807 2017 50802
## 19 2018 2172107 2018 53144ton <- datos$Toneladas
colm <- datos$Colmenas
colmenas2 <- ggplot(data = datos) +
geom_line(aes(Fecha, colm, colour="Colmenas")) +
geom_line(aes(Fecha, ton, colour="Toneladas de pesticida")) +
xlab("Fecha") +
ylab("Valor") +
labs(colour="Datos") +
ggtitle("Número de colmenas vs Toneladas de pesticida (2000-2018)") +
scale_y_continuous(labels = comma)
colmenas2
ggplotly(colmenas2)Conclusiones
En base a este análisis, pudimos observar que el uso de pesticidas ha incrementado bastante a lo largo de los últimos años, lo cual es un factor que, como ya se mencionó, influye mucho en la muerte de las abejas.
Se podrían tomar ciertas medidas como utilizar otros tipos de pesticidas que no sean tan dañinos, disminuir el desarrollo de la agricultura intensiva y crear técnicas de mantenimiento de las áreas naturales y conservación de las abejas.