Acuacultura

---

Acuacultura en México

Estadísticas de la producción acuícola en México usando datos de la FAO

Importar Paquetes y datos

setwd("~/VERANOPYE")

library(pacman)
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc", "readr", "ggplot2", "tidyr", "plotly", "DT")

culture <- read_csv("culture.csv", col_types = cols(Ano = col_date(format = "%Y"), 
    Mar = col_number(), AguaDulce = col_number(), 
    AguaSalada = col_number()))

Tabla de datos

datatable(culture)

Convertir a formato largo usando tidyr

culture <- gather(culture, tipo, toneladas, 2:4) #Create long format

Primer gráfica apilada usando ggplot

p <- (ggplot(culture, aes(fill=tipo, y=toneladas, x=Ano)) + 
    geom_bar(position="stack", stat="identity") +
  xlab ("Año") +
  ylab ("Toneladas produdicdas") +
  ggtitle("Producción acuícola en México 1980-2019 (FAO)"))

ggplotly(p)

Descargar set de datos y código

xfun::embed_file("aqua.rmd")

Download aqua.rmd

xfun::embed_file("culture.csv")

Download culture.csv ```