Introduccion

El desarrollo de la actividad agrícola en el estado de Sonora se sustenta en la tenacidad de sus productores, quienes han sabido superar las adversidades del clima extremoso de su desierto, logrando posicionar sus productos en los mercados más exigentes, lo cual ha sido posible gracias a la atención e importancia que se le ha dado a los aspectos fitosanitario, de inocuidad y en los procesos de poscosecha, temas en los cuales el gobierno estatal ha apoyado a los organismos de productores para acceder a mejores condiciones de mercado. Sonora, también destaca por sus volúmenes de producción y calidad de sus productos, ostentando el primer lugar en la producción de: trigo, espárrago, vid de mesa, papa, sandía, calabacita, calabaza, cártamo, olivo y uva pasa; en segundo lugar, garbanzo y otras hortalizas.

La investigación y la transferencia de la tecnología han jugado un papel importante en el desarrollo agrícola de la entidad, lo que ha permitido que se obtengan altos niveles de productividad y calidad de los productos comercializados. Otro de los aspectos que ha sido de vital importancia para el desarrollo agrícola del estado, dándole sustentabilidad al sector, lo constituye el uso y manejo del recurso agua para riego, el cual actualmente se está operando con una eficiencia del treinta y ocho por ciento.

Antecedentes

Este análisis agrícola está enfocado en las sequías que han estado presentes desde el año pasado 2020 hasta la actualidad. Como sabemos, para que cierto cultivo brinde frutos y crezca lo suficiente como para poder decir que es una planta sana, se necesitan de ciertos cuidados, mantenimiento pero sobre todo el agua.

Nacionalmente, Sonora es líder nacional en exportaciones del agro, el trigo de Sonora representa 38% de la superficie cultivada en México y 50% de la producción nacional. Los rendimientos están 30% por arriba del promedio nacional y 121% por arriba del rendimiento mundial, de acuerdo con datos de la Organización de las Naciones Unidas para la Alimentación y la Agricultura (FAO). En la región Yaqui-Mayo abunda la siembra de trigo, el cultivo de trigo requiere de suelos sueltos con buen drenaje y con un pH de entre 5,5 y 7 y no soporta los terrenos arenosos o turbosos con acidez elevada. La temperatura óptima de germinación es de 20-25º C y se necesitan de 450 a 550 litros de agua para producir 1 kilo de materia seca.

Con datos recolectados en noticias, bases de datos y experiencia agrícola veremos como esta sequía ha afectado la producción, el dinero que se requiere para poder salvar estos cultivos y como se debe tratar en estas circunstancias.

Analisis de datos

 library(readr)
 SequiasSon <- read_csv("SequiasSon.csv")

## Warning: Missing column names filled in: 'X301' [301]

## 
## -- Column specification --------------------------------------------------------
## cols(
##   .default = col_character(),
##   `Clave del Municipio` = col_double(),
##   `30-abr-05` = col_logical(),
##   X301 = col_logical(),
##   `Anormalmente Seco (D0)` = col_double(),
##   `Moderada(D1)` = col_double(),
##   `Severa(D2)` = col_double(),
##   `Extrema(D3)` = col_double(),
##   `Excepcional(D4)` = col_double(),
##   `Total (D0 a D4)` = col_double()
## )
## i Use `spec()` for the full column specifications.

library(pacman)
p_load("MASS", "ggplot2")

ggplot(data = SequiasSon, aes(x= 'Moderada(D1)' , y= 'Extrema(D3)')) +
  geom_point(colour="red4") +
  ggtitle("Diagrama de dispersion de sequia moderada y extrema") +
  theme_bw() +
  theme(plot.title = element_text(hjust = 0.5))

par (mfrow = c(1,2))
hist(SequiasSon$'Moderada(D1)', breaks = 10, main = "", xlab = "Sequia moderada", border="darkred")
hist(SequiasSon$'Extrema(D3)', breaks = 10, main = "", xlab = "Sequia extrema", border="blue")

qqnorm(SequiasSon$'Moderada(D1)', main = "Sequia moderada", col= "darkred")
qqline(SequiasSon$'Moderada(D1)')

qqnorm(SequiasSon$'Extrema(D3)', main = "Sequia extrema", col= "darkred")
qqline(SequiasSon$'Extrema(D3)')

#Test de Shapiro Wilk para sequia moderada
shapiro.test(SequiasSon$`Moderada(D1)`)

## 
##  Shapiro-Wilk normality test
## 
## data:  SequiasSon$`Moderada(D1)`
## W = 0.93455, p-value = 0.001018

#Test de Shapiro Wilk para Sequia extrema
shapiro.test(SequiasSon$`Extrema(D3)`)

## 
##  Shapiro-Wilk normality test
## 
## data:  SequiasSon$`Extrema(D3)`
## W = 0.85216, p-value = 5.88e-07

par (mfrow = c(1,2))
hist(SequiasSon$`Extrema(D3)`, breaks = 10, main = "", xlab = " Log10 (Sequia extrema)", border="blue")
qqnorm(log10(SequiasSon$`Extrema(D3)`), main = "", col = "blue")
qqline(log10(SequiasSon$`Extrema(D3)`))

shapiro.test(log10(SequiasSon$`Extrema(D3)`))

## 
##  Shapiro-Wilk normality test
## 
## data:  log10(SequiasSon$`Extrema(D3)`)
## W = 0.95154, p-value = 0.007548