Sandra Katteryne Rodríguez Hurtado

En el presente cuaderno se dará a conocer el mapa de la producción de Arroz en Caquetá en el año 2018, en base a los datos proporcionados en el cuaderno denominado “Estadísticas Agropecuarias Municipales de departamento de Caquetá - Parte 1”. Fue necesario el uso de los paquetes ggplot2 y knitr.

list.of.packages <- c("here", "tidyverse", "rgeos", "maptools", "raster", "sf",  "viridis", "rnaturalearth", "GSODR", "ggrepel", "cowplot")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
library(ggplot2)
Registered S3 method overwritten by 'dplyr':
  method           from
  print.rowwise_df     
library(knitr)
include_graphics("./Agro/Mapa_caqueta.png")

Hay algunos municipios que no presentaron reportes de producción de arroz durante el año 2018, sin embargo, se puede apreciar que el municipio de Puerto Rico fue el que mayor producción de arroz tuvo, seguido de San Vicente del Caguán.

LS0tCnRpdGxlOiAiRXN0YWTDrXN0aWNhcyBBZ3JvcGVjdWFyaWFzIE11bmljaXBhbGVzIGRlbCBkZXBhcnRhbWVudG8gZGUgQ2FxdWV0w6EgLSBQYXJ0ZSAyOiBNYXBhIGRlIGxhIHByb2R1Y2Npw7NuIGRlIEFycm96IGVuIGVsIGHDsW8gMjAxOCIKZGF0ZTogIjIzLzA0LzIwMjAiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KIyMjIyBTYW5kcmEgS2F0dGVyeW5lIFJvZHLDrWd1ZXogSHVydGFkbwpFbiBlbCBwcmVzZW50ZSBjdWFkZXJubyBzZSBkYXLDoSBhIGNvbm9jZXIgZWwgbWFwYSBkZSBsYSBwcm9kdWNjacOzbiBkZSBBcnJveiBlbiBDYXF1ZXTDoSBlbiBlbCBhw7FvIDIwMTgsIGVuIGJhc2UgYSBsb3MgZGF0b3MgcHJvcG9yY2lvbmFkb3MgZW4gZWwgY3VhZGVybm8gZGVub21pbmFkbyAiRXN0YWTDrXN0aWNhcyBBZ3JvcGVjdWFyaWFzIE11bmljaXBhbGVzIGRlIGRlcGFydGFtZW50byBkZSBDYXF1ZXTDoSAtIFBhcnRlIDEiLiBGdWUgbmVjZXNhcmlvIGVsIHVzbyBkZSBsb3MgcGFxdWV0ZXMgZ2dwbG90MiB5IGtuaXRyLgoKYGBge3J9Cmxpc3Qub2YucGFja2FnZXMgPC0gYygiaGVyZSIsICJ0aWR5dmVyc2UiLCAicmdlb3MiLCAibWFwdG9vbHMiLCAicmFzdGVyIiwgInNmIiwgICJ2aXJpZGlzIiwgInJuYXR1cmFsZWFydGgiLCAiR1NPRFIiLCAiZ2dyZXBlbCIsICJjb3dwbG90IikKbmV3LnBhY2thZ2VzIDwtIGxpc3Qub2YucGFja2FnZXNbIShsaXN0Lm9mLnBhY2thZ2VzICVpbiUgaW5zdGFsbGVkLnBhY2thZ2VzKClbLCJQYWNrYWdlIl0pXQppZihsZW5ndGgobmV3LnBhY2thZ2VzKSkgaW5zdGFsbC5wYWNrYWdlcyhuZXcucGFja2FnZXMpCmBgYApgYGB7ciBvdXQud2lkdGg9IjEwMCUifQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkoa25pdHIpCmluY2x1ZGVfZ3JhcGhpY3MoIi4vQWdyby9NYXBhX2NhcXVldGEucG5nIikKYGBgCkhheSBhbGd1bm9zIG11bmljaXBpb3MgcXVlIG5vIHByZXNlbnRhcm9uIHJlcG9ydGVzIGRlIHByb2R1Y2Npw7NuIGRlIGFycm96IGR1cmFudGUgZWwgYcOxbyAyMDE4LCBzaW4gZW1iYXJnbywgc2UgcHVlZGUgYXByZWNpYXIgcXVlIGVsIG11bmljaXBpbyBkZSBQdWVydG8gUmljbyBmdWUgZWwgcXVlIG1heW9yIHByb2R1Y2Npw7NuIGRlIGFycm96IHR1dm8sIHNlZ3VpZG8gZGUgU2FuIFZpY2VudGUgZGVsIENhZ3XDoW4uIAo=