U1A11

Caso de estudio 5: Ganadería en sonora.

Introducción

En este documento estaremos discutiendo sobre si la ganadería se debería de seguir implementando en Sonora, cuantos son sus costos ambientales y que tanto esta aporta a el estado. Estaremos observando los comportamientos que tienen por cada fecha y como es que estos han ido en aumento o descenso dependiendo de los datos.

¿Deberíamos seguir implementando la ganadería en Sonora?

La respuesta es sí, ¿pero por que?, Bueno si entramos en detalle, y analizamos los datos, podemos ver que en la ganadería el Porcino es lo que más propulsa a el Estado. En 2019 se confirmo por la Sagarpa sobre las 78,000 toneladas que se vendieron de cerdo, lo que terminó generando 311 millones de dólares gracias a la exportación hacia Japón, China y Corea,siendo los principales mercados. c

Métodos

Importacion de paquetes

library(pacman)
p_load(rmdformats,readr,readxl,plotly,gganimate,DT,fdth,xfun,scales)

Importacion y filtrado de datos

# Importación y filtrado de datos para sonora para el 2017
ganaderia2017 <- read_csv("cierre_2017.csv", 
    locale = locale(encoding = "latin1"))

ganaderia2017 <- ganaderia2017[ganaderia2017$Nomestado=="Sonora", ]


# Importación y filtrado de datos para sonora para el 2017
ganaderia2018 <- read_csv("cierre_2018.csv", 
    locale = locale(encoding = "latin1"))

ganaderia2018 <- ganaderia2018[ganaderia2018$Nomestado=="Sonora", ]

# Importación y filtrado de datos para sonora para el 2017
ganaderia2019 <- read_csv("cierre_2019.csv", 
    locale = locale(encoding = "latin1"))


ganaderia2019 <- ganaderia2019[ganaderia2019$Nomestado=="Sonora", ]

Bovino <- ganaderia2019[ganaderia2019$Nomespecie=="Bovino", ]

Porcino <- ganaderia2019[ganaderia2019$Nomespecie=="Porcino", ]

Creación de dataframes

# Marco de datos para el 2017
datos2017 <- data.frame(ganaderia2017[1],ganaderia2017[7],ganaderia2017[9],ganaderia2017[15])

# Marco de datos para el 2018
datos2018 <- data.frame(ganaderia2018[1],ganaderia2018[7],ganaderia2018[9],ganaderia2018[15])

# Marco de datos para el 2019
datos2019 <- data.frame(ganaderia2019[1],ganaderia2019[7],ganaderia2019[9],ganaderia2019[15])

Descarga del código y de los datos

Descarga del código

xfun::embed_file('U1A11.Rmd')
Download U1A11.Rmd

Descarga de los datos

Datos para el 2017
xfun::embed_file('cierre_2017.csv')
Download cierre_2017.csv
Datos para el 2018
xfun::embed_file('cierre_2018.csv')
Download cierre_2018.csv
Datos para el 2019
xfun::embed_file('cierre_2019.csv')
Download cierre_2019.csv

Gráfica interactiva 1 (Principales bovinos)

ggplotly(ggplot(Bovino, aes(fill=Nomddr,y=Valor, x=Nomddr))+
  geom_bar(position="dodge", stat="identity")+
  labs(x="Municipio", y="Valor de producción (En miles de pesos)", title="Principales productores bovinos en sonora 2019", subtitle="Fuente: SIAP")+
      theme(axis.text.x = element_text(angle=90,hjust=1),axis.text.y =element_text(size = 6))+
    scale_y_continuous(labels = comma))

Como se puede apreciar en la gráfica 1 Hermosillo es el mayor productor de valor con la venta de productos derivados de la vacas

Gráfica interactiva 2 (Principales porcinos)

ggplotly(ggplot(Porcino, aes(fill=Nomddr,y=Valor, x=Nomddr))+
  geom_bar(position="dodge", stat="identity")+
  labs(x="Municipio", y="Valor de producción (En miles de pesos)", title="Principales productores porcinos en sonora 2019", subtitle="Fuente: SIAP")+
      theme(axis.text.x = element_text(angle=90,hjust=1),axis.text.y =element_text(size = 6))+
    scale_y_continuous(labels = comma))

Como se puede apreciar en la gráfica 2 tanto Hermosillo y Cajeme son los principales generadores de pesos con los productos derivados de la ganadería porcina en Sonora.

Gráfica interactiva 3 producción ganadera general para el año 2017

ggplotly(ggplot(datos2017, aes(fill=Nomespecie, y=Valor, x=Nomespecie))+
  geom_bar(position="dodge", stat="identity")+
  labs(title="Ganaderia en Sonora año 2017", subtitle="Fuente: SIAP",x="Especies", y="Valor de producción (Pesos Méxicanos)")+
    scale_y_continuous(labels = comma))

Como se pude apreciar en la gráfica 3 en Sonora la actividad ganadera de mayor producción (En pesos) para el año 2017 fue la porcina generando así un aproximado de 3,000,000 de pesos en todo el año, dejando en segundo lugar las actividades de Aves con una producción (En pesos) de aproximadamente 1,000,000 de pesos.

Gráfica interactiva 4 producción ganadera general para el año 2018

ggplotly(ggplot(datos2018, aes(fill=Nomespecie, y=Valor, x=Nomespecie))+
  geom_bar(position="dodge", stat="identity")+
  labs(x="Especies", y="Valor de producción (Pesos Méxicanos)", title="Ganaderia en Sonora año 2018",subtitle="Fuente: SIAP")+
    scale_y_continuous(labels = comma))

Como se pude apreciar en la gráfica 4 en Sonora la actividad ganadera de mayor producción (En pesos) para el año 2018 al igual que el año anterior fue la porcina generando así un aproximado de 3,000,000 de pesos en todo el año, dejando en segundo lugar las actividades de Aves con una producción (En pesos) de aproximadamente 1,000,000 de pesos.

Gráfica interactiva 5 producción ganadera general para el año 2019

ggplotly(ggplot(datos2019, aes(fill=Nomespecie, y=Valor, x=Nomespecie))+
  geom_bar(position="dodge", stat="identity")+
  labs(x="Especies", y="Valor de producción (Pesos Méxicanos)", title="Ganaderia en Sonora año 2019",subtitle="Fuente: SIAP")+
    scale_y_continuous(labels = comma))

Como se pude apreciar en la gráfica 5 en Sonora la actividad ganadera de mayor producción (En pesos) para el año 2019 al igual que los últimos años fue la porcina generando así mas de 3,000,000 de pesos en todo el año, dejando en segundo lugar las actividades de Aves con una producción (En pesos) mayor a 1,000,000 de pesos.

Conclusión:

A manera de conclusión se podría decir que el lo que mayor genera ingresos para sonora es la producción de Cerdos, ya que en las 3,4 y 5 se puede ver que el que genera mas valor por producción en un periodo de 3 año ha sido el puerco, dejando abajo a la producción de vacas, en segundo lugar las aves incluso producen mas dinero que la vacas, uno por intuición y ya que estamos en un estado donde se consume mucha carne asada se pensaría que la mayor producción de dinero seria de parte de las vacas, pero basandose en las gráficas se puede concluir que no es así.

Bibliografía:

FAO. (2018, 1 febrero). Soluciones ganaderas para el cambio climático. http://www.fao.org/3/I8098ES/i8098es.pdf FAO. (2006, 29 noviembre). La ganadería amenaza el medio ambiente. http://www.fao.org/newsroom/es/news/2006/1000448/index.html Sagarpa. (2020, 14 enero). La exportación de carne de cerdo en Sonora genera ingresos por más de 310 millones de dólares. Porcicultura.com. https://www.porcicultura.com/destacado/La-exportacion-de-carne-de-cerdo-en-Sonora-genero-ingresos-por-mas-de-310-mdd.-#:%7E:text=Con%20una%20producci%C3%B3n%20estimada%20hasta,Pesca%20y%20Acuacultura%20(Sagarhpa).