¿Cómo es el panorama de producción ganadera en Sonora?

¿Son los años con lluvia los más prosperos para la ganadería?

Ganado bovino

El ganado vacuno o bovino es aquel tipo de ganado que está representado por un conjunto de vacas, bueyes y toros que son domesticados por el ser humano para su aprovechamiento y producción; es decir esta clase abarca una serie de mamíferos herbívoros domesticados por el hombre para satisfacer ciertas necesidades bien sea alimenticias o económicas.

Ganado ovino

La ganadería ovina es la cría y utilización de las ovejas por parte del hombre. Las ovejas son mamíferos cuadrúpedos ungulados rumiantes domésticos y tienen una longevidad de entre 18 y 20 años.

Ganado caprino

Se le llama ganado caprino al conjunto de cabras criadas para su completo aprovechamiento. Las principales razas de cabras criadas en México son, para producciónde leche: alpina, anglonubia, saanen, y para carne: angora, boer, toggenburg y criolla.

Ganado porcino

La noción de porcino, derivada del vocablo latino porcīnus, refiere a aquello vinculado al puerco: el animal también conocido como cerdo o chancho. El puerco es un mamífero artiodáctilo que se caracterizapor el gran tamaño de sus orejas y cabeza, su cuerpo voluminoso, sus patas cortas y su hocico pequeño.

Recursos zoogenéticos

Los recursos genéticos representan material genético con valor real o potencial, ya sea material contenido en el cuerpo de animales vivos o material crioconservado como semen o embriones.

Importación de datos y creación de variables

library(pacman)
library(hpackedbubble)

## Warning: package 'hpackedbubble' was built under R version 4.1.2

## 
## Attaching package: 'hpackedbubble'

## The following object is masked from 'package:datasets':
## 
##     CO2

library(readr)
library("readxl")
p_load(rmdformats, readr, readxl, ggplot2, plotly, DT, xfun, gridExtra, leaflet, GGally, psych, corrplot, cluster)
datosGanaderiaSon <- read.csv("ganaderiaSon2020.csv")
produccionAnualCarne <- read_excel("ProduccionCarne_Sonora.xlsx")
datosPrecSon <- read.csv("datosPrecSon.csv")
datos <- read_excel("SonoraProduCarne.xlsx")

Fuente: Gobierno de México

ESTADÍSTICA DE PRODUCCIÓN GANADERA EN SONORA

hpackedbubble(datosGanaderiaSon$`Nommunicipio`, datosGanaderiaSon$`Nomespecie`, datosGanaderiaSon$`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") 

PRODUCCIÓN ANUAL DE CARNE PARA SONORA

produccionCarne <- ggplot(data = produccionAnualCarne) +
  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)

Observaciones

PRECIPITACIONES ANUALES EN SONORA

precSon <- ggplot(data = datosPrecSon) +
  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)

Observaciones