ANÁLISIS DE LA PRODUCCIÓN Y PÉRDIDA DE MAÍZ EN MÉXICO DE 2014-2018

Acerca de este archivo

Importación de bibliotecas

setwd("~/Estadistica")
library(prettydoc)
library(readr)
library(DT)
library(pacman)
p_load("base64enc","htmltools","mime","xfun","prettydoc","readr","knitr","DT","dplyr","ggplot2","plotly","gganimate","gifski","scales")

Importar datos

datos <- read_csv("datosmaiz.csv")
## 
## -- Column specification --------------------------------------------------------
## cols(
##   Produccion = col_double(),
##   Perdidas = col_double(),
##   Año = col_double()
## )

Tabla de datos

datatable(datos)

Gráfica estatica

maiz <- ggplot(data = datos) + 
  geom_line(aes(Año, Produccion, colour="Producción")) + 
  geom_line(aes(Año, Perdidas, colour="Perdidas")) +
  xlab("Año") +
  ylab("Toneladas") +
  ggtitle("Producción vs Pérdidas de maíz (2014-2018) en México") +
  scale_y_continuous(labels = comma)
maiz

Gráfica animada

ggplot(data = datos) + 
  geom_line(aes(Año, Produccion, colour="Produccion")) + 
  geom_line(aes(Año, Perdidas, colour="Perdidas")) +
  xlab("Año") +
  ylab("Toneladas") +
  ggtitle("Producción vs Pérdidas de maíz (2014-2018) en México") +
  transition_reveal(Año)

Conclusiones

  • En base a este análisis y con la ayuda de los gráficos pudimos observar que entre los años 2014 y 2018, hubo una buena producción de maíz, y muy pocas pérdidas, y que el año 2016 fue el que más obtuvo producción.

  • Es un análisis pequeño, pero de mucha ayuda ya que podemos detectar si hay mucha cantidad de pérdidas, y así poder efectuar otros análisis para ayudar a disminuir estas pérdidas y aumentar la producción.