Producción nacional de aguacate en México
Jaidy Adzuira Pineda Aguilar,Eric Yurian Duarte Sánchez,Jorge Ramirez
16/12/2021
Hola!!! En esta ocasión te hablaremos sobre como utilizar R studios. Para esta practica aprenderas diversas cosas tales como:
Realizar matricez y apartir de ellas graficar de barras o lineales.
Insertar un mapa interactivo y poder ubicar diversos lugares.
Darle formato a tu practica.
Con esto esperamos que te puedas animar a imitar y aprender a programar en R studios, veras que es muy sencillo.
Es importante que consideres lo siguiente:
Todas las instrucciones estaran en color azul
Los subtemas y cuerpo del texto es solo un ejemplo de como podria llegar a verse un trabajo ya terminado.
📚Activamos las Librerias📗
library(leaflet)
library(leaflet.extras)Para esta practica utilizaremos las anteriores librerias, las cuales nos permitiran instalar el mapa interactivo.
El aguacate🥑
El aguacate es un fruto exótico carnoso que se obtiene del árbol tropical del mismo nombre. El peso normal oscila entre 200-400 g, aunque pueden encontrarse piezas de hasta 2 kg de peso. La corteza es gruesa y dura de color verde cuyo tono depende de la variedad. La pulpa es aceitosa de color crema a verde amarillento, con un sabor similar a la nuez. Posee una única semilla redondeada de color pardo claro y 2-4 cm.
Su aporte en ácido oleico ejerce efectos cardiovasculares beneficiosos, disminuyendo los niveles de colesterol plasmático. Contiene una cantidad importante de minerales y vitaminas, necesarios para el correcto funcionamiento del organismo.
🖼️Insertar una Imagen🖼️
Para esta practica insertamos una imagen de aguacates.
🤩Nota: Para insertar un imagen debe estar en formato pjg o png. De lo contrario no se podra insertar🤩
Importancia del aguacate en México🥑
El aguacate es uno de los productos más exitosos de la exportación agroalimentaria nacional. México es el principal proveedor del mercado internacional con una aportación de 45.95% del valor de las exportaciones mundiales. En Estados Unidos es promovido y consumido en eventos con alcance internacional, como el Super Bowl, en el cual se han llegado a consumir 100,000 toneladas durante el día del evento.
En 2016 las exportaciones mexicanas presentaron un porcentaje muy significativo de las importaciones de aguacate en los siguientes países: Guatemala, 100%; Canadá, 95,41%; Japón, 92,72%; Estados Unidos, 91.32%, y El Salvador, 90.23 por ciento.
Principales destinos comerciales de aguacate🥑🌎
🔣Ingresar la matriz de los datos🔣
En este caso nuestro tema es acerca de la produccion de aguacate, por tal motivo el siguiente conjunto de datos estan relacionados con los principales paises que importan aguacates mexicanos.
Con relacion de la SAGARPA y los datos expuestos lo clasificamos en Importaciones y Mt (Millones de toneladas)
Insertamos un chunk R e ingresamos los datos.
🙃Nota: Recuerda que para ingresar datos escritos, se deben de poner entre comillas.😜
Importaciones<-c("Estados Unidos","Japón","Canada","España","Francia","Países Bajos","China","Otros")
Mt<-c("790.92","68.86","66.48","17.55","16.67","15.89","10.29","24.83")
Tabla1<-data.frame(Importaciones,Mt)
Tabla1## Importaciones Mt
## 1 Estados Unidos 790.92
## 2 Japón 68.86
## 3 Canada 66.48
## 4 España 17.55
## 5 Francia 16.67
## 6 Países Bajos 15.89
## 7 China 10.29
## 8 Otros 24.83🔢Insertar la siguiente matriz🔢
En este caso ingresaremos los datos sobre la estacionalidad de exportaciones de aguacate en México. Como en la anterior matriz ingresamos los datos obtenidos de la SAGARPA y obtenemos nuestra matriz.
Enero<-(75.01)
Febrero<-(62.12)
Marzo<-(70.42)
Abril<-(62.90)
Mayo<-(55.00)
Junio<-(42.30)
Julio<-(39.90)
Agosto<-(42.32)
Septiembre<-(59.10)
Octubre<-(69.13)
Noviembre<-(71.16)
Diciembre<-(75.97)
Tabla<-matrix(c(Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre),nrow=1)
colnames(Tabla)=c("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre")
rownames(Tabla)=c("meses")
Tabla## Enero Febrero Marzo Abril Mayo Junio Julio Agosto Septiembre Octubre
## meses 75.01 62.12 70.42 62.9 55 42.3 39.9 42.32 59.1 69.13
## Noviembre Diciembre
## meses 71.16 75.97📈Insertar una grafica de barras🗒️
Con la matriz anterior y para ejemplificar de mejor manera los datos obtenidos haremos una grafica de barras.
Para eso utilizaremos el codigo bart plot. Debemos de colocar el nombre de nuestra matriz la cual es Tabla. Aqui te mostramos la simbologia
type: Cambiar el tipo de linea de la grafica.
col: Colacar el color que se quiera
main: Pone el nombre de la grafica
xlab: Pone los nombre en el eje de las x
ylab:Pone los nombre en el eje de las y
sub: Se coloca la fuente
barplot(Tabla, main="Estacionalidad de Exportaciones de Aguacate Promedio 2011-2016", col="green", ylab ="Mt", sub = "Fuente: SIAVI, 2017" )
Segun el analisis podemos deducir que en los meses de Enero y Diciembre son donde mas exportaciones produce el país.
🗺️Insertar el mapa🌐
Para efectos de la practica registramos los estados productores de aguacate del pais.
Para poder efectuarlo se debe de hacer lo siguiente:
- Registramos la informacion de los lugares
lugar1 <- c(Nombre = “Michoacán de Ocampo”, Giro = “Turistico”, longitud = -101.8333300, latitud = 19.1666700)
- Creamos una tabla de datos con la información de los lugares
Para esto debemos de utilizar data.frame y poner todos los lugares que hemos hecho anteriormente.
Nos aseguramos de que la latitud y longitud sean números
Creamos el mapa
Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
lugar1 <- c(Nombre = "Michoacán de Ocampo", Giro = "Productor", longitud = -101.8333300, latitud = 19.1666700)
lugar2 <- c(Nombre = "Jalisco", Giro = "Productor", longitud = 25.4375, latitud = -111.9028)
lugar3 <- c(Nombre = "Sinaloa", Giro = "Productor", longitud = -108.9804400, latitud = 26.3777300)
lugar4 <- c(Nombre = "Coahuila", Giro = "Productor", longitud = -101.9458, latitud = 27.2722)
lugar5 <- c(Nombre = "Ciudad de México", Giro = "Productor", longitud = -99.1276600, latitud = 19.4284700)
lugar6 <- c(Nombre = "Estado de México", Giro = "Productor", longitud = -90.8903, latitud = 18)
lugar7 <- c(Nombre = "Tamaulipas", Giro = "Productor", longitud = -99.6510900, latitud = 27.4647500)
lugar8 <- c(Nombre = "Chiapas", Giro = "Productor", longitud = -93.2724500, latitud = 15.6705000)
lugar9 <- c(Nombre = "Baja California", Giro = "Productor", longitud = -116.2809400, latitud = 32.4982100)
lugar10 <- c(Nombre = "Yucatán", Giro = "Productor", longitud = -89.0503700, latitud = 19.6930200)
lugar11<- c(Nombre = "Guanajuato", Giro = "Productor", longitud = -101.0000000, latitud = 21.0000000)
lugar12<- c(Nombre = "Querétaro", Giro = "Productor", longitud = -100.3880600, latitud = 20.5880600)
lugar13<- c(Nombre = "Puebla", Giro = "Productor", longitud = -98.2019300, latitud = 19.0433400)
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5, lugar6,lugar7,lugar8,lugar9,lugar10,lugar11,lugar12,lugar13))
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "<br/>", "Nombre:", lugares$Nombre, "Giro:", lugares$Giro))
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()))Como podemos apreciar en el mapa podemos moverlo y acerca los punto lo cual hace que los lectores sientan mas curiosidad por el tema
📝Colocamos la siguiente matriz con datos✒️
Como hemos visto anteriormente ingresamos los datos que necesitemos, en este caso, los datos son sobre los 2 principales productores de aguacate en México, los cuales son: Michoacan y Jalisco.
Periodo<-c(2016,2017,2018,2019,2020)
Michoacan<-c(424,568,660,622,806)
Jalisco<-c(25.5,35.6,50.7,46.7,53)
Tabla3<-cbind(Periodo,Michoacan,Jalisco)
Tabla3## Periodo Michoacan Jalisco
## [1,] 2016 424 25.5
## [2,] 2017 568 35.6
## [3,] 2018 660 50.7
## [4,] 2019 622 46.7
## [5,] 2020 806 53.0📉Ingresamos las graficas de lineas📈
Para este caso usamos la funcion plot, donde insertamos los datos a graficar en este caso x=Periodo; y=Michoacan.
Simbologia
type: Cambiar el tipo de linea de la grafica
col: Colacar el color que se quiera
main: Pone el nombre de la grafica
xlab: Pone los nombre en el eje de las x
ylab:Pone los nombre en el eje de las y
sub: Se coloca la fuente
😼Nota: Recuerda que todos los elementos que coloques deben de ir entre comillas .🤯
plot(Periodo,Michoacan, type = "o", col = "purple", main= "Produccion de Aguacate en Michoacan", xlab = "Periodo", ylab = "Miles de Toneladas", sub = "Fuente: Elaboración Propia,con datos de datamexico.org")
Repetiremos el mismo proceso para la grafica de Jalisco
plot(Periodo,Jalisco, type = "o", col = "red", main= "Produccion de Aguacate en Jalisco", xlab = "Periodo", ylab = "Miles de Toneladas", sub = "Fuente: Elaboración Propia, con datos de datamexico.org")