Tipo de Ganado

Vacuno

Al mes de abril de 2018 vs el mismo lapso de 2017, Sonora destaca con el mayor incremento de 17.2 % en la producción de carne en canal de bovino, entre las entidades líderes, con 3,870 toneladas adicionales, teniendo una exportación a estados unidos de 91508 becerros y 16953 vaquillas en el 2018

Ovino

En lo referente a sistemas de producción, que la mayor parte de los rebaños se explota en forma semi intensiva e intensiva (extensivo 42%, semi intensivo 44.3%, intensivo 11.5%), mostrando esto un importante grado de oportunidad para detonar la producción de cordero hacia el mercado de cortes. Con respecto al número de vientres por rebaño, el 71% de éstos está compuesto por más de 200 hembras en producción (1,300-1,800 5.7%, 500-900 28.8%, 220- 300 36.6%, 120-180 15.4%, 20-90 13.5%), lo cual está por arriba de la media nacional. Por último, en lo que a distribución de rebaños se refiere, el mayor número de éstos se concentra en el Norte de Sonora (zona Norte 38.4%, zona centro 32.6%, zona Sur 29%), sin embargo, la mayor concentración de vientres está en la zona central.

Porcino

Nuestra entidad ocupa el segundo lugar en producción de carne de cerdo y aportamos el 17.3% de la producción nacional. La producción de carne de cerdo de Sonora, esta continúa posicionándose por encima de la pérdida de dinamismo en la producción de la carne de bovino y en el mes de febrero de 2017 alcanzó un incremento de 1.4 por ciento respecto al mismo mes de 2016, al pasar de 20 mil 852 toneladas en febrero de 2016 a 21 mil 136 al mismo mes de 2017.

Apicultura

Al año son producidas 540 toneladas de miel en Sonora, lo ubica en la posición número 20 a nivel nacional; sin embargo, empresarios locales (pequeños y grandes) buscan escalar en México y posicionar sus productos en otros países. De acuerdo con el Patronato del Centro de Investigaciones Pecuarias del Estado de Sonora, cerca de 80% de la superficie de la entidad es apta para practicar la ganadería mayor y en ella se cuenta con una amplia variedad de flora especial para la producción de miel y polen; la que, aunada a las condiciones ambientales de la región, propician la producción de miel mexicana de calidad.

Erosion

El problema de la erosión en los suelos sonorenses de uso ganadero es consecuencia, además de la vulnerabilidad del suelo, de la desaparición de la cubierta vegetal, ocasionada por la sobrecarga animal, los desmontes y la extracción de especies no maderables. La sobrecarga animal tiene que ver con las características de la ganadería extensiva, de hecho, se considera que la rentabilidad de esta actividad en gran medida depende de la sobreexplotación del suelo. El sobrepastoreo, producto de la sobrecarga animal de los agostaderos, eleva la susceptibilidad del suelo a la erosión, al reducir la cobertura vegetal que funciona como protectora y retenedora del suelo. Esta información comprende 37 municipios y se muestra en el cuadro 6, donde se observan índices que van desde 20.44% en Bavispe, hasta 680.71 en San Pedro, con un índice promedio para todo el estado de 177.05%. El problema de la erosión en los suelos sonorenses de uso ganadero es consecuencia, además de la vulnerabilidad del suelo, de la desaparición de la cubierta vegetal, ocasionada por la sobrecarga animal, los desmontes y la extracción de especies no maderables. La sobrecarga animal tiene que ver con las características de la ganadería extensiva, de hecho, se considera que la rentabilidad de esta actividad en gran medida depende de la sobreexplotación del suelo. El sobrepastoreo, producto de la sobrecarga animal de los agostaderos, eleva la susceptibilidad del suelo a la erosión, al reducir la cobertura vegetal que funciona como protectora y retenedora del suelo. Esta información comprende 37 municipios y se muestra en el cuadro 6, donde se observan índices que van desde 20.44% en Bavispe, hasta 680.71 en San Pedro, con un índice promedio para todo el estado de 177.05%.

Importación de paquetes

Los paquetes a utilizar son los siguientes:

library(pacman)
p_load("DT","xfun","ggplot2", "readr","tseries","ggfortify","tidyr", "dplyr","prettydoc",  "psych", "GGally", "stringr","vembedr", "xfun","gridExtra","corrplot", "plotly","tidyverse", "lubridate", "forecast", "TTR", "MLmetrics", "tseries", "fpp", "TSstudio", "xfun", "plotly","readxl")

Datos

datosGanaderiaSonEquipo6 <- read.csv("ganaderiaSon2020Equipo6.csv")
produccionAnualCarneEquipo6 <- read_excel("ProduccionCarne_SonoraEquipo6.xlsx")
datosPrecSonEquipo6 <- read.csv("datosPrecSonEquipo6.csv")
datosEquipo6 <- read_excel("SonoraProduCarneEquipo6.xlsx")
ExportacionBovinoEquipo6 <- read_excel("ExportacionBovinoEquipo6.xlsx")
datosPrecMichoacan2020Equipo6 <- read_excel("datosPrecMichoacan2020Equipo6.xlsx")
precAmbosEquipo6 <- read_excel("precAmbosEquipo6.xlsx")

Tipos de Ganado Producidos

datatable(datosGanaderiaSonEquipo6)

Estadística de Producción Ganadera en Sonora

if (interactive()) {
  hpackedbubble(datosGanaderiaSonEquipo6$'Nommunicipio', datosGanaderiaSonEquipo6$'Nomespecie', datosGanaderiaSonEquipo6$'Volumen',
              title = "Estadística de producción ganadera en Sonora",
              pointFormat = "<b>{point.name}: </b> {point.y} %",
              dataLabelsFilter = 100,
              packedbubbleMinSize = "20%",
              packedbubbleMaxSize = "60%",
              theme = "Classic",
              packedbubbleZMin = 0,
              packedbubbleZmax = 10000, split = 1,
              gravitational = 0.0200,
              parentNodeLimit = 1,
              dragBetweenSeries = 0,
              seriesInteraction = 0,
              width = "100%",
              height = "1000px") 
}

Preciptacion lluvias

precSon <- ggplot(data = datosPrecSonEquipo6) +
  geom_line(mapping = aes(x = ï..Anho, y = Precipitacion, color = "Precipitaiones (mm)"), colour = "blue") +
  xlab("Año") +
  ylab("Precipitaiones (mm)") +
  labs(colour = "Anual") +
  ggtitle("Precipitaciones Sonora")
ggplotly(precSon)

Producción anual carne en Sonora

produccionCarne <- ggplot(data = produccionAnualCarneEquipo6) +
  geom_line(mapping = aes(x = Anho, y= Peso, color = "Peso"), colour = "#51286E") +
  xlab("Año") +
  ylab("Peso") +
  labs(colour = "Anual") +
  ggtitle("Producción anual Sonora (Peso)")
ggplotly(produccionCarne)