Proyecto (Borrador)

Agricultura en los estados de Sinaloa y de Sonora.

Proposito

Ayudar a los agricultures de la parte noroeste de México a que tengan mayores ganancias con los cultivos, y así mismo, para promover la cultura de la sustentabilidad y cuidado del medio ambiente.

Objetivo

Nuestro objetivo en este proyecto es dar paso a la Ciencia de Datos en la agricultura de los estados de Sinaloa y Sonora, para eficientizar las cosechas y reducir el porcentaje de pérdidas.

Historia de la Agricultura en la región (Antecedentes):

El papel de la agricultura de la humanidad, ha sido de suma importancia y de cuestión vital. El descubrimiento de esta vieja tecnología milenaria, nos remonta cuado en el mundo todavía no existían asentamientos humanos, esto debido a que nuestros antepasados tenían un estilo de vida nómada, donde solo se dedicaban a recolectar los frutos de la tierra, y cuando estos mismos se terminaban, nuestros antepasados se veían en la necesidad de partir a otros lugares. Se tiene conocimiento de que la agricultura ayudo a nuestros antepasados a que yo no migraran de lugar a lugar, y que pudieran asentarse, adoptando la vida sedentaria, ecológca y sustentable. Es por eso, que la mayoría de las grandes civilizaciones estuvieron locadas enseguida de grandes ríos o cuerpos de agua, por ejemplo, antiguos pueblos como los de Mesopotamia, Egipto, China y la India. Esta historia no fue muy diferente a la de nuestro país, porque sabemos que las grandes civilizaciones se localizaron al sur del país, donde la tierra era más fertil y también, existían grandes cuerpos de agua. Sin embargo, en nuestra región nunca se asento una gran civilización que se asemejara a las del sur. La mayoría de los grupos de gente en esta región eran nómadas y no descubrieron la agricultura, hasta que llegaron los españoles y la introdujeron a la vida de los indigenas. Se conoce que lo primero que los españoles enseñaron a cultivar a los indigenas de nuestra región, fue el trigo y después se fueron importando semillas de otras partes de América y de Europa. También pienso que es conveniente comentar, que en nuestra región en siglo XX, jugó un papel muy importante para la famosa “Revolución Verde”, que corrió a cargo del Dr. Norman E. Borlaug, que introdujó nuevos sistemas de riegos, maquinaria agrícola, fertilizantes, insecticidas, la biotecnología y también el estudio y la manipulación génetica de semillas y plantas. La razón de porqué Norman Borlaug eligió esta región, fue porque a esta zona del país, se le consideraba la menos óptima para cuestiones agrícolas, aparte de que se seguían métodos tradicionales, lo se veía reflejado en la baja producción agrícola que tenía la región. El promedio nacional de producción de trigo pasó de 750 kilogramos por hectárea en 1950, a 3.2 toneladas por hectárea en 1970. Hasta llegar a más de 10 toneladas en la actualidad. Entre 1950 y 1984, la producción de trigo mundial aumentó un 250%, esto a consecencia de la revolución verde. Actualmente, la industria agrícola es una de las actividades productivas y economicas, que más ganancias les deja a los estados de Sinaloa y Sonora.

Agricultura en Sinaloa y Sonora en el siglo XXI (Objetivos Generales):

Como ya mencionamos antes, la revolución verde representó un gran cambio en la forma en que trabajaban los agricultores del siglo XX. Actualmente, hay mucho conocimiento y mucho más tecnología que pudiera benficiar a nuestros agricultores. Una de las herramientas que queremos ofrecer, es el manejo y el utilizamiento de datos para aumentar la producción y productividad, así mismo, adaptar y mitigar los efectos del cambio climatico, eficientizar los recursos disponibles, y traer más benficios económicos. Lo que nosotros queremos implementar en nuestra región es el Data Driven Agriculture (conocido en inglés) o como lo debríamos conocer en castellano, el uso de la Ciencia de Datos aplicado a la agricultura.

Producción Agrícola en Sonora y Sinaloa:

setwd("~/VERANOPYE")
library(pacman)
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc","readr", "knitr","DT","dplyr", "ggplot2", "plotly", "readxl")

agri <- read_excel("Agricultura.xlsx")
agri <- agri %>% 
    group_by(Anio, Nomestado, Nomcultivo) %>%                 
    summarise(Sembrada = sum(Sembrada),      
              Cosechada = sum(Cosechada),  
              Volumenproduccion = mean(Volumenproduccion),  
              Rendimiento = mean(Rendimiento),
              Precio = mean(Precio),   
              Valorproduccion = mean(Valorproduccion))

## `summarise()` regrouping output by 'Anio', 'Nomestado' (override with `.groups` argument)

agri <- arrange(agri, -Valorproduccion)

Sinaloa <- subset(agri, Nomestado == "Sinaloa" )
datatable(Sinaloa)

Sonora <- subset(agri, Nomestado == "Sonora" )
datatable(Sonora)

Sinaloa 2019

Sinaloa2019 <- subset(Sinaloa, Anio == "2019" )

Sinaloa2019 <- Sinaloa2019[1:15,]

datatable(Sinaloa2019)

barplot(Sinaloa2019$Valorproduccion,names.arg=Sinaloa2019$Nomcultivo,horiz=TRUE, main="Valores de producción por cultivo en Sinaloa 2019", las=1, xlab="Valor de producción", ylab="Cultivo", col=rainbow(15), cex.axis = 1, cex.names = 0.6)

Sinaloa 2018

Sinaloa2018 <- subset(Sinaloa, Anio == "2018" )

Sinaloa2018 <- Sinaloa2018[1:15,]

datatable(Sinaloa2018)

barplot(Sinaloa2018$Valorproduccion,names.arg=Sinaloa2018$Nomcultivo,horiz=TRUE, main="Valores de producción por cultivo en Sinaloa 2018", las=1, xlab="Valor de producción", ylab="Cultivo", col=rainbow(15), cex.axis = 1, cex.names = 0.6)

Sinaloa 2017

Sinaloa2017 <- subset(Sinaloa, Anio == "2017" )

Sinaloa2017 <- Sinaloa2017[1:15,]

datatable(Sinaloa2017)

barplot(Sinaloa2017$Valorproduccion,names.arg=Sinaloa2017$Nomcultivo,horiz=TRUE, main="Valores de producción por cultivo en Sinaloa 2017", las=1, xlab="Valor de producción", ylab="Cultivo", col=rainbow(15), cex.axis = 1, cex.names = 0.6)

Sinaloa 2016

Sinaloa2016 <- subset(Sinaloa, Anio == "2016" )

Sinaloa2016 <- Sinaloa2016[1:15,]

datatable(Sinaloa2016)

barplot(Sinaloa2016$Valorproduccion,names.arg=Sinaloa2016$Nomcultivo,horiz=TRUE, main="Valores de producción por cultivo en Sinaloa 2016", las=1, xlab="Valor de producción", ylab="Cultivo", col=rainbow(15), cex.axis = 1, cex.names = 0.6)

Sinaloa 2015

Sinaloa2015 <- subset(Sinaloa, Anio == "2015" )

Sinaloa2015 <- Sinaloa2015[1:15,]

datatable(Sinaloa2015)

barplot(Sinaloa2015$Valorproduccion,names.arg=Sinaloa2015$Nomcultivo,horiz=TRUE, main="Valores de producción por cultivo en Sinaloa 2015", las=1, xlab="Valor de producción", ylab="Cultivo", col=rainbow(15), cex.axis = 1, cex.names = 0.6)

Sonora 2019

Sonora2019 <- subset(Sonora, Anio == "2019" )

Sonora2019 <- Sonora2019[1:15,]

datatable(Sonora2019)

barplot(Sonora2019$Valorproduccion,names.arg=Sonora2019$Nomcultivo,horiz=TRUE, main="Valores de producción por cultivo en Sonora 2019", las=1, xlab="Valor de producción", ylab="Cultivo", col=rainbow(15), cex.axis = 1, cex.names = 0.6)

Sonora 2018

Sonora2018 <- subset(Sonora, Anio == "2018" )

Sonora2018 <- Sonora2018[1:15,]

datatable(Sonora2018)

barplot(Sonora2018$Valorproduccion,names.arg=Sonora2018$Nomcultivo,horiz=TRUE, main="Valores de producción por cultivo en Sonora 2018", las=1, xlab="Valor de producción", ylab="Cultivo", col=rainbow(15), cex.axis = 1, cex.names = 0.6)

Sonora 2017

Sonora2017 <- subset(Sonora, Anio == "2017" )

Sonora2017 <- Sonora2017[1:15,]

datatable(Sonora2017)

barplot(Sonora2017$Valorproduccion,names.arg=Sonora2017$Nomcultivo,horiz=TRUE, main="Valores de producción por cultivo en Sonora 2017", las=1, xlab="Valor de producción", ylab="Cultivo", col=rainbow(15), cex.axis = 1, cex.names = 0.6)

Sonora 2016

Sonora2016 <- subset(Sonora, Anio == "2016" )

Sonora2016 <- Sonora2016[1:15,]

datatable(Sonora2016)

barplot(Sonora2016$Valorproduccion,names.arg=Sonora2016$Nomcultivo,horiz=TRUE, main="Valores de producción por cultivo en Sonora 2016", las=1, xlab="Valor de producción", ylab="Cultivo", col=rainbow(15), cex.axis = 1, cex.names = 0.6)

Sonora 2015

Sonora2015 <- subset(Sonora, Anio == "2015" )

Sonora2015 <- Sonora2015[1:15,]

datatable(Sonora2015)

barplot(Sonora2015$Valorproduccion,names.arg=Sonora2015$Nomcultivo,horiz=TRUE, main="Valores de producción por cultivo en Sonora 2015", las=1, xlab="Valor de producción", ylab="Cultivo", col=rainbow(15), cex.axis = 1, cex.names = 0.6)

Publicado: https://rpubs.com/EdwardSauceda/ProyectoAgri