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 tanton esta aporta a el estado. Estaremos observando los comportamientos que tienen por cada fecha y como es que estos han ido en aumento o decenso 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. Entonces, volviendo a la pregunta del incio, la ganadería es una actividad económica fundamental para la producción y flujo de economía en el país, por lo que necesitaríamos una gran razón para desnormalizarla de nuestra economía.

Precio ambiental de la ganadería

Un tema que ya todos conocemos o relaciuonamos alguna vez, el precio ambiental de la ganadería es peligroso cuando hablamos de CO2. “El ganado es uno de los principales responsables de los graves problemas medioambientales de hoy en día. Se requiere una acción urgente para hacer frente a esta situación”, (Henning Steinfeld, jefe de la Subdirección de Información Ganadera de la FAO,2006). Además de la cita anterior,si seguímos leyendo en los asrtículos nos enteraremos que la ganadería es responsable del 9% del CO2 procedente de las actividades humanas y esto a su vez es más de que la contaminación vehicular(FAO,2006).

Soluciones para la contaminación ganadera

• Mejoras de productividad para reducir las intensidades de emisión El FAO asegura que mejorando las prácticas de cría se pueden llegar a reducir hasta un 20 o 30 porciento de las emisiónes en todos los sistemas de producción ganadera
• Secuestro de carbono Esta solución intenta ajustar la presión de pastoreo equilibrando la pescencia espacial, como el manejo de nutrientes, inoculación de plantas, y movilidad mejorada de animales en sistemaspastoriles y agropastoriles.
• Mejor integración de la ganadería en la bioeconomía circular Puede lograrse aumentando la proporción de subproductos o desechos que los humanos no pueden comer en la ración del ganado.

Métodos

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

# 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", ]

# 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])

xfun::embed_file('U1A11.Rmd')

xfun::embed_file('cierre_2017.csv')

xfun::embed_file('cierre_2018.csv')

xfun::embed_file('cierre_2019.csv')

ggplotly(ggplot(Bovino, aes(fill=Nomddr,y=Valor, x=Nomddr))+
  geom_bar(position="dodge", stat="identity")+
  labs(x="Municipio", y="Valor de producción", 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)))

ggplotly(ggplot(Porcino, aes(fill=Nomddr,y=Valor, x=Nomddr))+
  geom_bar(position="dodge", stat="identity")+
  labs(x="Municipio", y="Valor de producción", 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)))

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

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

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

Conclusión:

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).