Análisis de Pesca en el Estado de Sonora
Importar bibliotecas
setwd("~/R Scripts")
library(pacman)
library(readxl)
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc","readr", "knitr","DT","dplyr", "ggplot2","plotly", "gganimate","gifski","scales")Introducción
La pesca es una de las actividades economicas mas fuertes en sonora, las principales especies pesqueras son las sardina y el camarón, aunque la pesca solo represente 15% de la producción acuicola sonorense, es de los estados lideres en pesca en México.
Importancia de la pesca en Sonora
El estado de Sonora es el principal producctor en el sector pesquero en México aportando un 36.7 % del volumen, la producción en el año 2014 llego a 257 mil 970 toneladas y 220.5 millones de pesos y desde entonces se ha mantenido aumentando de cierta forma, es indudable en aprovechamiento de la zona costera que tiene el estado de Sonora, algo que no todos los estados poseen.
Pesca a los largo de los años en Sonora
2016
produccion2016 <- read_excel("produccion2016.xlsx")## New names:
## * `` -> ...2datatable(produccion2016)p2016 <- ggplot(data = produccion2016) +
theme(axis.text.x = element_text(angle=90,hjust=1),axis.text.y =element_text(size = 6))+
geom_point(mapping = aes(x = Especie, y = MilesDePesos, colour=Especie))
ggplotly(p2016)2017
produccion2017 <- read_excel("produccion2017.xlsx")
datatable(produccion2017)p2017 <- ggplot(data = produccion2017) +
theme(axis.text.x = element_text(angle=90,hjust=1),axis.text.y =element_text(size = 6))+
geom_point(mapping = aes(x = Especie, y = MilesDePesos, colour=Especie))
ggplotly(p2017)2018
produccion2018 <- read_excel("produccion2018.xlsx")## New names:
## * `` -> ...2datatable(produccion2018)p2018 <- ggplot(data = produccion2018) +
theme(axis.text.x = element_text(angle=90,hjust=1),axis.text.y =element_text(size = 6))+
geom_point(mapping = aes(x = Especie, y = MilesDePesos, colour=Especie))
ggplotly(p2018)Resumen de produccion por especies
Produccion por toneladas
produccion_general <- read_excel("produccionacua.xlsx")
ggprod <- ggplot(subset(x = produccion_general, subset = produccion_general$Toneladas > 4000 ),
aes(x = Anio,
y = Toneladas,
colour = Especie )) +
xlab("Fecha") +
ylab("Toneladas") +
geom_line() +
geom_point() +
labs(colour = "Toneladas")+
ggtitle("Toneladas produccidas por especie (2016 - 2018)")
ggplotly(ggprod)Produccion por Miles de Pesos
ggpesos <- ggplot(subset(x = produccion_general, subset = produccion_general$MilesDePesos > 50000 ),
aes(x = Anio,
y = MilesDePesos,
colour = Especie )) +
xlab("Fecha") +
ylab("Miles de pesos") +
geom_line() +
geom_point() +
labs(colour = "Toneladas")+
ggtitle("Miles de pesos produccidos por especie (2016 - 2018)")
ggplotly(ggpesos)Ganancias en Sonora
ganancias <- read_excel("ganancias.xlsx")
ggplot(ganancias, aes(x = Año, y = MilesDePesos)) +
geom_bar(stat ="identity", fill = "lightblue", width = 0.7, orientation = "vertical") +
ggtitle("Ganancias producidas 2016-2018")
Conclusión
Podemos ver que la actividad pesquera en estos años si bien, no aumenta mas cada año se mantiene, aumentado de cierta forma, a su vez algo interesante es que si bien la produccion por toneladas de la sardina es muy superior a la de cualquier otro animal, en cuanto a produccion por miles de pesos, el camarón destaca considerablemente, con una cantidad de toneladas común, la rentabilidad de este mercado.
Referencias
Comisión Nacional de Acuacultura y Pesca. (2016). Estadistíca Pesquera y Acuícola de México.Recuperado de https://www.gob.mx/conapesca/documentos/estadistica-pesquera-y-acuicola-de-mexico
Comisión Nacional de Acuacultura y Pesca. (2020). Registro Nacional de Pesca y Acuacultura (RNPA).Recuperado de https://www.gob.mx/conapesca/documentos/registro-nacional-de-pesca-y-acuacultura-rnpa
Instituto Nacional de Estadística y Geografía (2019). Pesca y agrícultura. Recuperado de http://cuentame.inegi.org.mx/economia/primarias/pesca/default.aspx?tema=E