Acerca de este documento

Este es documento basado en el análisis de ganadería en Sonora representado mayormente por la producción que genera la ganadería en diferentes municipios, así mismo como el impacto ambiental que se produce por medio de este séctor.

• Datos obtenidos

• URL: http://infosiap.siap.gob.mx/gobmx/datosAbiertos_p.php

• URL : https://es.statista.com/estadisticas/580858/ctada-del-sector-de-la-agricultura-ganaderia-y-pesca-mexico/ https://www.inegi.org.mx/temas/ee/

Para la descarga de este código

Para fines de reproducibilidad inmediata se incluye todo el código para su descarga

xfun::embed_file("U1A11.Rmd")

Download U1A11.Rmd

Introducción

Como es del conocimiento público, las actividades pecuarias se realizan en una amplia gama de sistemas productivos, que van desde los altamente tecnificados e integrados, hasta las de economías de tipo tradicional.

La actividad ganadera hace referencia a la domesticación de los animales como cerdos, vacas, pollos, borregos, etc., y es una actividad del sector primario que incluye su cuidado y alimentación, a su vez está enfocada básicamente en la generación de alimentos para consumo humano.

La Ganadería puede ser extensiva, intensiva y de autoconsumo, existen varios factores que influyen para un buen desarrollo de los animales como el relieve del suelo, acceso a fuentes de agua, un clima adecuado en cuanto a humedad y temperatura así como la vegetación y el forrajes que se utiliza para su alimentación.

La ganadería, proveedora de alimentos y materias primas de origen animal, constituye una de las principales actividades económicas del sector primario del país.

“La ganadería, proveedora de alimentos y materias primas de origen animal, constituye una de las principales actividades económicas del sector primario del país.”

Antecedentes

La ganadería es una de las principales fuentes de riqueza en Sonora. Su práctica se remonta al siglo XVI y tiene al padre Eusebio Francisco Kino entre sus precursores. Históricamente, Sonora se encuentra entre los principales estados ganaderos del país. Sus productos no sólo se han comercializado en México, también trascienden nuestras fronteras.

Las actividades ganaderas han permitido ubicar a Sonora como el segundo productor de carne de cerdo y tercero en huevo. Los aspectos que han contribuido a sostener estas condiciones competitivas, son diversos, por una parte y entre los principales, se cuenta con una extensa red de productores con acceso a tecnologías modernas de producción e infraestructura con apego al cumplimiento de normas internacionales que aseguran la sanidad e inocuidad de los productos e infraestructura hidráulica con 7,296 pozos de abrevadero, 13,286 represos y 5,840 aguajes.

La ganadería ocupa 78% de la tierra agrícola y cerca de 33% de la tierra con cultivos. Pese a que los sistemas intensivos “sin tierra” son los responsables de la mayor parte del crecimiento del sector, su influencia en la tierra de cultivo es sustancial y los problemas asociados a la producción pecuaria no se pueden entender cabalmente si no se incluye al sector agrícola de cultivos en el análisis.

“Ganaderia”

library(readxl)
library(DT)
datos <- read_excel("Ganaderia.xlsx")
datatable(datos)

## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html

SonoraS <- t(datos[datos$Estado == "Sonora",])
SonoraS <- (datos[datos$Estado == "Sonora",])
datatable(datos)

## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html

library(ggplot2)
x <- ggplot(SonoraS, aes(fill=Municipio, y=Producto)) + 
  geom_bar(position = "dodge", stat= "count") + 
  xlab("Número de casos") + 
  ylab("Producto") +
  ggtitle("Produción pecuaria por municipio")
  
library(plotly)

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

ggplotly(x)

library(scales)
x <- read_excel("Estados.xlsx")
Estado <- x$Estado
Val <- x$Valor
datos1 <- data.frame(Estado, Val)
Estados <- ggplot(datos1, aes( y=Val, x=Estado)) +
  geom_bar(position="dodge", stat="identity", fill= "blue")+
  labs(x="Estado", y="Valor de producción en miles de pesos", title="Valor de producción por estado (2019)") +
  theme(axis.text.x = element_text(angle=90, hjust=1),axis.text.y =element_text(size = 8)) +
  scale_y_continuous(labels = comma)
 
library(plotly)
ggplotly(Estados)

datos <- read_excel("Costo.xlsx")
datatable(datos)

library(readxl)
datos <- read_excel("Costo.xlsx")

Anio <- datos$Anio
Costo <- datos$Costo
datos2 <- data.frame(Anio, Costo)
Costo <- ggplot(datos2, aes( y=Costo, x=Anio)) +
  geom_point(position="dodge", stat="identity", fill= "orange")+
  labs(x="Año", y="Costos Totales por Agotamiento y Degradación Ambiental por ganaderia", title="Costos totales por agotamiento y degradación ambiental (CTADA) del sector de la ganadería en México de 2008 a 2018") +
  theme(axis.text.x = element_text(angle=90, hjust=1),axis.text.y =element_text(size = 8)) +
  scale_y_continuous(labels = comma)
 
library(plotly)
ggplotly(Costo)

## Warning: Width not defined. Set with `position_dodge(width = ?)`

Conclusión

Sonora se encuentra en uno de los estados de mayor producción del sector pecuario en la comunidad siendo de gran importancia debido a que es uno de los principales generadores de empleo en el estado, que conlleva a que mas de 35 mil familias dependen directamente de este sector (Pérez, 2008).

Sin embargo, la producción de ganado afecta directamente a los suelos, emitiendo diferentes gases antropológicos de gases invernaderos. La ganadería afecta el balance de carbono de la tierra que se usa para alimento animal y contribuye, de forma indirecta, a la liberación de enormes cantidades de carbono a la atmósfera. Lo mismo sucede cuando se clarea el bosque para pastizales.

Por medio de los análisis por diferentes gráficos se puede concluir que el sector pecuario produce gran cantidad de producción de ganado, así mismo, gran cantidad monetaria rebasando al sector pesquero en el Estado.

Bibliografía

Datos Abiertos. Retrieved 28 February 2021, from http://infosiap.siap.gob.mx/gobmx/datosAbiertos_p.php. Población ganadera. Retrieved 28 February 2021, from https://www.gob.mx/siap/documentos/poblacion-ganadera-136762

Pérez Espejo, Rosario. (2008). El lado oscuro de la ganadería. Problemas del desarrollo, 39(154), 217-227. Recuperado en 28 de febrero de 2021, de http://www.scielo.org.mx/scielo.php?script=sci_arttext&pid=S0301-70362008000300011&lng=es&tlng=es.

Agricultura, ganadería y pesca: costos por agotamiento y degradación ambiental en México | Statista. Retrieved 28 February 2021, from https://es.statista.com/estadisticas/580858/ctada-del-sector-de-la-agricultura-ganaderia-y-pesca-mexico/

La Ganadería en México. Retrieved 28 February 2021, from https://www.gob.mx/firco/articulos/la-ganaderia-en-mexico?idiom=es