Ganadería y cambio climático Sonora, Mexico

Héctor Leal, Luis Marín, José Orozco, Aldo Mendívil

27/3/2022

Introducción

La ganadería es la que consiste en el manejo, cría, tratamiento, reproducción, cuidado y alimentación de animales domésticos como son cerdos, vacas, pollos, borregos, abejas, entre otros, con el fin de aprovechar su carne, leche, huevos, lana, miel y otros derivados para el consumo humano.

Antecedentes

La Ganadería en el Estado de Sonora se remonta a tiempos de la colonia en el año 1591 con la llegada los misioneros jesuitas que colonizaron al noroeste de México y suroeste de los Estados Unidos, Ellos son quienes introducen la ganadería como una de las nuevas actividades productivas del estado, estableciendo crías de ganado vacuno, ovino y caballar que pronto prosperaron, formando tres tipos principales productores ganaderos: criadores, preengordadores y engordadores, como actores interrelacionados en el proceso de la producción pecuaria. Y con el paso de las décadas y los siglos se convirtió en una de las principales actividades en la región.

Datos y Paquetes

Importación de paquetes

Los paquetes a utilizar son los siguientes:

library(hpackedbubble)
## Warning: package 'hpackedbubble' was built under R version 4.1.3
## 
## Attaching package: 'hpackedbubble'
## The following object is masked from 'package:datasets':
## 
##     CO2
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")

Datos

library(pacman)
library(readr)
library("readxl")
## Warning: package 'readxl' was built under R version 4.1.3
p_load(rmdformats, readr, readxl, ggplot2, plotly, DT, xfun, gridExtra, leaflet, GGally, psych, corrplot, cluster)
datosGanaderiaSonEquipo6 <- read.csv("ganaderiaSon2020.csv")
produccionAnualCarneEquipo6 <- read_excel("ProduccionCarne_Sonora.xlsx")
datosPrecSonEquipo6 <- read.csv("datosPrecSon.csv")
datosEquipo6 <- read_excel("SonoraProduCarne.xlsx")
ExportacionBovinoEquipo6 <- read_excel("ExportacionBovino.xlsx")
datosPrecMichoacan2020Equipo6 <- read_excel("datosPrecMichoacan2020.xlsx")
precAmbosEquipo6 <- read_excel("precAmbos.xlsx")

Metodologia

Objetivos

Desarrollo

Tipos de Ganado Producidos

Ganado Ovino, Bovino o vacuno, Porcino, Caprino, Avicultura y Apicultura

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)

Conclusiones

Referencias bibliográficas

Descargas

xfun::embed_file("CasoEstudio_Equipo6.Rmd")

Download CasoEstudio_Equipo6.Rmd