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

Agricultura impulsada por datos

library(pacman) #para importar la biblioteca pacman.
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc","readr", "knitr","DT","dplyr", "ggplot2","plotly", "gganimate","gifski","scales")
## Disponible para descargar el código
xfun::embed_file("U1A6.Rmd")

Download U1A6.Rmd

#Se utiliza para poder descargar el código desarrollado, pudiendo ser reproducible por otros.

Introducción

El análisis de datos en la agricultura permite optimizar el trabajo del campo, esto se logra aumentando la productividad de los procesos haciendo eficiente el uso de recursos económicos, naturales y humanos. Los datos agrícolas permiten mantener un registro temporal de las cosechas separadas por el tipo de cultivo, así como la región geográfica de la que proceden. Es importante utilizar estos datos para mejorar el rendimiento del campo con herramientas novedosas y análisis de este tipo que permiten tener un control del rendimiento de un cultivo especifico a lo largo del tiempo.

Antecedentes

La papa tiene una gran importancia en el sector agrícola mexicano, convirtiéndose en uno de los cultivos más cosechados en el país, esto debido a las condiciones climatológicas favorables para su siembra. Tan solo en 2019 su producción a nivel nacional fue de más de un millón 783 mil toneladas, en este aspecto, Sonora tuvo la segunda área de mayor cosecha con más de 469 mil toneladas.

Objetivos

  1. Llevar a cabo un análisis de los datos referentes a la agricultura enfocados al estado de Sonora y espacialmente, en la siembra y cosecha de papa.
  2. Conocer los diferentes datos de las entidades en el estado de Sonora, el nivel de siembra de papa en ciclo otoño – invierno en los años 2019 a 2020.
  3. Comparar y modelar los datos entre los principales productores de papa a nivel nacional en México.

Teoría

Se cultiva en 24 de los 32 estados de la República, distribuidos en diferentes regiones del país. Los principales estados productores son Sonora, Sinaloa, Veracruz, Puebla, Nuevo León y México.

Producción de papa en México en el año 2019 en la temporada otoño - invierno.

#Aquí se leen los datos:
datos <- read.csv("Cierre_agricola_mun_2019.csv")
class(datos)
## [1] "data.frame"
head(datos)
##         Estado Produccion
## 1 Baja Cal.Sur   41580.00
## 2      Chiapas    5649.37
## 3   Guanajuato   36586.10
## 4       México    6335.52
## 5    Michoacan     231.00
## 6       Puebla   65196.20
datos <- read.csv("Cierre_agricola_mun_2019.csv")
datatable(datos)

Producción de papas en los estados de México. Datos recuperados de INFOSIAP: http://infosiap.siap.gob.mx/gobmx/datosAbiertos.php.

#Con esto se modelan los datos en una tabla.
ggplot(datos,aes(x=Estado,y=Produccion)) +
  ggtitle("Producción de papa en México.Fuente:Estadística de Producción Agrícola(SIAP)")+
  geom_point(size=2,pch=21,colour="red",fill="orange")+
  geom_bar(stat="identity", fill ="orange",width = 0.7,orientation = "vertical")+
  geom_text(aes (label =Produccion ), vjust=1.6,color="black",size=3)+
  xlab("Produccion") +
  ylab("Estados")+
  theme_minimal()

Analizando los datos, podemos observar Sonora está en el segundo lugar de los que producen más papa en todo en México.

Tabla de totales por estados productores en México del año 2019

Los datos se volumen se muestran en toneladas en cada uno de los estados.

datosPap <- read.csv("estadisticaPapa.csv")
datatable(datosPap)

Datos del estado de Sonora

Se analizan los datos de cada uno de los municipios en Sonora, del año 2020. Datos recuperados en: https://nube.siap.gob.mx/avance_agricola/.

datosS <- read_csv("sonora2020.csv")
## 
## -- Column specification --------------------------------------------------------
## cols(
##   Municipio = col_character(),
##   Sembrada = col_number(),
##   Cosechada = col_number(),
##   Siniestrada = col_double(),
##   Produccion = col_number(),
##   Rendimiento = col_double()
## )
class(datosS)
## [1] "spec_tbl_df" "tbl_df"      "tbl"         "data.frame"
head(datosS)
## # A tibble: 6 x 6
##   Municipio              Sembrada Cosechada Siniestrada Produccion Rendimiento
##   <chr>                     <dbl>     <dbl>       <dbl>      <dbl>       <dbl>
## 1 Caborca                       8         8           0       304         38  
## 2 Bacum                       570       570           0     19718.        34.6
## 3 Cajeme                     3850      3850           0    130871.        34.0
## 4 Etchojoa                    160       160           0      5600         35  
## 5 Benito Juarez               358       358           0     11729.        32.8
## 6 San Ignacio Río Muerto       60        60           0      2220         37
datatable(datosS)

Produccion en el cultivo y cosecha de papas de los municipios de sonora

ggplot(datosS,aes(x=Municipio ,y=Produccion,color=Municipio)) +
  ggtitle("Produccion de papa en Sonora.")+
  geom_point(stat="identity",pch=23)+
  geom_line(size =2,lty=2)+
  geom_bar(stat="identity")+
  geom_text(aes (label =Produccion ), vjust=1.3,color="Black",size=3)+
  theme_minimal()
## geom_path: Each group consists of only one observation. Do you need to adjust
## the group aesthetic?

Rendimiento en el cultivo y cosecha de papas de los municipios de sonora

ggplot(datosS,aes(x=Rendimiento ,y=Municipio )) +
  geom_bar(stat="identity", fill ="darkgreen",width = 0.7)+
  geom_text(aes(label = Rendimiento))+
  ggtitle("Rendimiento del cultivo de papa en Sonora.")

Precio de la papa por municipios en Sonora en 2019

# Se leen los archivos
datos_rendimiento <- read.csv("datosMunicipio.csv", encoding = "UTC-8")

class(datos_rendimiento)
## [1] "data.frame"
head(datos_rendimiento)
##   Anio Nomestado  Nommunicipio Nomcicloproductivo Nommodalidad Nomunidad
## 1 2019    Sonora Benito Juarez    Otonio-Invierno        Riego  Tonelada
## 2 2019    Sonora    Huatabampo    Otonio-Invierno        Riego  Tonelada
## 3 2019    Sonora       Navojoa    Otonio-Invierno        Riego  Tonelada
## 4 2019    Sonora      Etchojoa    Otonio-Invierno        Riego  Tonelada
## 5 2019    Sonora        Cajeme    Otonio-Invierno        Riego  Tonelada
## 6 2019    Sonora         Bacum    Otonio-Invierno        Riego  Tonelada
##   Nomcultivo Sembrada Cosechada Siniestrada Volumenproduccion Rendimiento
## 1       Papa   212.00    212.00           0           7102.00       33.50
## 2       Papa  1543.00   1133.00         410          33026.95       29.15
## 3       Papa  3111.27   2453.27         658          70237.12       28.63
## 4       Papa   328.00    328.00           0          11021.51       62.73
## 5       Papa  3439.00   3439.00           0         121191.90      146.97
## 6       Papa   557.00    373.00         184          13261.96       68.52
##     Precio Valorproduccion
## 1  7720.86        54833548
## 2  9084.24       300024740
## 3  9044.80       635280703
## 4 17496.94        91118855
## 5 29211.33       871255224
## 6 14249.30        89088202
attach(datos_rendimiento)
qplot(Nommunicipio, Precio,
     main = "Relación precio por municipio",
     ylab = "Precio",
     xlab = "Municipio")

Conclusión

La producción de la papa en México es muy importante, ya que se producen más de medio millon de toneladas al año, tanto para venta en el pais, como para exportación, esto quiere decir que es una fuente de ingreso fuerte. Se logro apreciar que, Sonora es el segundo mayor productor de papa en el pais y que precisamente, en Cajeme es en donde hay mas cosecha de esta hortaliza. Yo pienso que se deberia seguir cultivando y aprovechando la fertilidad de las tierras y los esfuersos de los que la trabajan.