1. Introducción

El presente cuaderno de R tiene como objetivo presentar las estadísticas agrícolas del departamento de Cundinamarca, Colombia. Por medio de este se conocerán algunas aplicaciones de la geomática en la agronomía.

2. Funciones de GIS

Los datos no espaciales de una región no permiten un gran análisis sin realizar un tratamiento estadístico. Por ello, es importante hacer uso de las librerías “dplyr” y “tidyverse” que son de gran utilidad para explorar y resumir estadísticas.

Por otro lado, las operaciones geoespaciales sirven para comprender lo que sucede a nivel territorial. Por ejemplo, buscar la ubicación de los municipios con rendimientos más altos. Para hacer este tipo de operaciones se deben unir los datos espaciales con los datos no espaciales.

Adicionalmente, se pueden realizar intersecciones entre dos objetos espaciales diferentes.

knitr::opts_chunk$set(echo = TRUE)

Inicialmente, se recomienda eliminar el contenido de la memoria

rm(list=ls())

Ahora se deben cargar e instalar las librerías necesarias para todas las operaciones que se realizarán a continuación

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(here)
## here() starts at C:/Users/JUAN PABLO/Downloads
library(tidyverse)
## -- Attaching packages -------------------------------------------------------- tidyverse 1.3.0 --
## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.2     v dplyr   1.0.0
## v tidyr   1.1.0     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0
## -- Conflicts ----------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
library(rgeos)
## Loading required package: sp
## rgeos version: 0.5-5, (SVN revision 640)
##  GEOS runtime version: 3.8.0-CAPI-1.13.1 
##  Linking to sp version: 1.4-2 
##  Polygon checking: TRUE
library(maptools)
## Checking rgeos availability: TRUE
library(sf)
## Linking to GEOS 3.8.0, GDAL 3.0.4, PROJ 6.3.1
library(viridis)
## Loading required package: viridisLite
library(rnaturalearth)
library(GSODR)
library(ggrepel)
library(cowplot)

3. Exploración de las estadisticas asociadas a agricultura en Cundinamarca

Se requiere de una base de datos confiable acerca de la información asociada a agricultura. Para ello se descargó previamente un archivo denominado “Estadísticas Municipales Agropecuarias”y se editó de tal modo que solo quedaran las columnas de interés. El archivo fue llamado “EVA_CUNDINAMARCA2.csv”. A partir de la función “read.csv” se lee dicho archivo.

datos <- read.csv("C:/Users/JUAN PABLO/Downloads/EVA_CUNDINAMARCA2_f.csv", sep = ";")
datos$COD_DEPTO<-as.double(datos$COD_DEPTO)
datos$DEPTO<-as.character(datos$DEPTO)
datos$MUN<-as.character(datos$MUN)
datos$GRUPO<-as.character(datos$GRUPO)
datos$SUBGRUPO<-as.character(datos$SUBGRUPO)
datos$CULTIVO<-as.character(datos$CULTIVO)
datos$ANO<-as.double(datos$ANO)
datos$PRODUCCION<-as.double(datos$PRODUCCION)
datos$ESTADO<-as.character(datos$ESTADO)
datos$CICLO<-as.character(datos$CICLO)
head(datos)
##   COD_DEPTO        DEPTO COD_MUN     MUN      GRUPO  SUBGRUPO          CULTIVO
## 1        25 CUNDINAMARCA   25754  SOACHA HORTALIZAS      APIO             APIO
## 2        25 CUNDINAMARCA   25845     UNE HORTALIZAS   CEBOLLA CEBOLLA DE BULBO
## 3        25 CUNDINAMARCA    2543  MADRID HORTALIZAS ZANAHORIA        ZANAHORIA
## 4        25 CUNDINAMARCA   25151 CAQUEZA HORTALIZAS   CEBOLLA CEBOLLA DE BULBO
## 5        25 CUNDINAMARCA   25099  BOJACA HORTALIZAS ZANAHORIA        ZANAHORIA
## 6        25 CUNDINAMARCA   25754  SOACHA HORTALIZAS   LECHUGA          LECHUGA
##    ANO AREA_SEMBRADA AREA_COSECHADA PRODUCCION RENDIMIENTO           ESTADO
## 1 2006           371            330      10060       30.48 HORTALIZA FRESCA
## 2 2006           400            400       9200       23.00 HORTALIZA FRESCA
## 3 2006           290            280       8960       32.00 HORTALIZA FRESCA
## 4 2006           430            415       8300       20.00 HORTALIZA FRESCA
## 5 2006           205            205       6413       31.28 HORTALIZA FRESCA
## 6 2006           250            201       6030       30.00 HORTALIZA FRESCA
##        CICLO..        CICLO
## 1 TRANSITORIO, TRANSITORIO,
## 2 TRANSITORIO, TRANSITORIO,
## 3 TRANSITORIO, TRANSITORIO,
## 4 TRANSITORIO, TRANSITORIO,
## 5 TRANSITORIO, TRANSITORIO,
## 6 TRANSITORIO, TRANSITORIO,
tail(datos)
##       COD_DEPTO        DEPTO COD_MUN         MUN                 GRUPO SUBGRUPO
## 17766        25 CUNDINAMARCA   25841      UBAQUE TUBERCULOS Y PLATANOS     PAPA
## 17767        25 CUNDINAMARCA   25843       UBATE TUBERCULOS Y PLATANOS     PAPA
## 17768        25 CUNDINAMARCA   25845         UNE TUBERCULOS Y PLATANOS     PAPA
## 17769        25 CUNDINAMARCA   25873 VILLAPINZON TUBERCULOS Y PLATANOS     PAPA
## 17770        25 CUNDINAMARCA   25898     ZIPACON TUBERCULOS Y PLATANOS     PAPA
## 17771        25 CUNDINAMARCA   25899   ZIPAQUIRA TUBERCULOS Y PLATANOS     PAPA
##       CULTIVO  ANO AREA_SEMBRADA AREA_COSECHADA PRODUCCION RENDIMIENTO
## 17766    PAPA 2018           162         162.00       3564        22.0
## 17767    PAPA 2018           430         430.00       8340        19.4
## 17768    PAPA 2018           450         450.00      11250        25.0
## 17769    PAPA 2018          6134           6.13     171752        28.0
## 17770    PAPA 2018           300         300.00      11640        38.8
## 17771    PAPA 2018           120         120.00       2160        18.0
##                 ESTADO      CICLO..        CICLO
## 17766 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 17767 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 17768 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 17769 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 17770 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 17771 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,

Al visualizar los datos se puede observar que se tiene información del área sembrada (hectáreas), el área cosechada (hectáreas) y el rendimiento de los cultivos (Ton/ha) que se presentan en Cundinamarca del año 2006 al año 2018.

Los cultivos se clasifican en grupos y a su vez en subgrupos. También se puede conocer su estado, es decir si es un producto fresco o seco y además se presenta su ciclo, que corresponde a la duración del cultivo.

La biblioteca “dplyr” provee las herramientas que permiten explorar el contenido de los datos.

El primer ejercicio será obtener el rendimiento de acuerdo con el grupo al que pertence el cultivo y al municipio donde este se encuentre

datos %>%
  group_by(MUN, GRUPO) %>%
  summarise(rend_prom = mean(RENDIMIENTO, na.rm = TRUE)) -> rend_resumen
## `summarise()` regrouping output by 'MUN' (override with `.groups` argument)
### Let's visualize only the first six records
head(rend_resumen)
## Warning: `...` is not empty.
## 
## We detected these problematic arguments:
## * `needs_dots`
## 
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?
## # A tibble: 6 x 3
## # Groups:   MUN [1]
##   MUN          GRUPO                                            rend_prom
##   <chr>        <chr>                                                <dbl>
## 1 AGUA DE DIOS CEREALES                                            10.1  
## 2 AGUA DE DIOS FIBRAS                                               1.89 
## 3 AGUA DE DIOS FRUTALES                                            11.8  
## 4 AGUA DE DIOS OTROS PERMANENTES                                    0.692
## 5 AGUA DE DIOS PLANTAS AROMATICAS, CONDIMENTARIAS Y MEDICINALES    28.9  
## 6 AGUA DE DIOS TUBERCULOS Y PLATANOS                               10.1

Además, se puede calcular el rendimiento promedio por cada GRUPO de cultivos. El grupo con el mayor rendimiento promedio corresponde a hortalizas. Seguido a este se presentan flores y follajes y en tercer lugar se observan los frutales.

datos %>%
  group_by(GRUPO) %>%
  summarise(rend_dep = mean(RENDIMIENTO, na.rm = TRUE)) -> rend_cundinamarca
## `summarise()` ungrouping output (override with `.groups` argument)
rend_cundinamarca
## Warning: `...` is not empty.
## 
## We detected these problematic arguments:
## * `needs_dots`
## 
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?
## # A tibble: 12 x 2
##    GRUPO                                            rend_dep
##    <chr>                                               <dbl>
##  1 CEREALES                                             2.43
##  2 FIBRAS                                               2.23
##  3 FLORES Y FOLLAJES                                   14.2 
##  4 FORESTALES                                           1.03
##  5 FRUTALES                                            11.4 
##  6 HONGOS                                               3.2 
##  7 HORTALIZAS                                          20.6 
##  8 LEGUMINOSAS                                          2.78
##  9 OLEAGINOSAS                                          3.23
## 10 OTROS PERMANENTES                                    2.16
## 11 PLANTAS AROMATICAS, CONDIMENTARIAS Y MEDICINALES     9.52
## 12 TUBERCULOS Y PLATANOS                               14.4

Este cuadro de código permite filtrar los municipios de Cundinamarca con el mayor rendimiento en el año 2018. En primer lugar se observa que FOSCA presenta un rendimiento de 126 ton/ha en los cultivos del grupo HORTALIZAS, en segundo lugar SIBATÉ con un valor de 72 ton/ha en frutales y en tercer lugar Sasaima, con un rendimiento de 70 ton/ha en flores y follajes.

datos %>% 
  filter(ANO==2018) %>% 
  group_by(GRUPO, MUN) %>%
  summarize(max_rend = max(RENDIMIENTO, na.rm = TRUE)) %>%
    slice(which.max(max_rend)) -> rend_max_18
## Warning in max(RENDIMIENTO, na.rm = TRUE): ningun argumento finito para max;
## retornando -Inf

## Warning in max(RENDIMIENTO, na.rm = TRUE): ningun argumento finito para max;
## retornando -Inf

## Warning in max(RENDIMIENTO, na.rm = TRUE): ningun argumento finito para max;
## retornando -Inf
## `summarise()` regrouping output by 'GRUPO' (override with `.groups` argument)
rend_max_18
## Warning: `...` is not empty.
## 
## We detected these problematic arguments:
## * `needs_dots`
## 
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?
## # A tibble: 12 x 3
## # Groups:   GRUPO [12]
##    GRUPO                                            MUN         max_rend
##    <chr>                                            <chr>          <dbl>
##  1 CEREALES                                         NARIÑO         40   
##  2 FIBRAS                                           BELTRAN         2.96
##  3 FLORES Y FOLLAJES                                SASAIMA        70   
##  4 FORESTALES                                       PULI            2   
##  5 FRUTALES                                         SIBATE         72   
##  6 HONGOS                                           GRANADA         4   
##  7 HORTALIZAS                                       FOSCA         126   
##  8 LEGUMINOSAS                                      CAQUEZA        15   
##  9 OLEAGINOSAS                                      MEDINA          3.57
## 10 OTROS PERMANENTES                                PARATEBUENO    14   
## 11 PLANTAS AROMATICAS, CONDIMENTARIAS Y MEDICINALES PACHO          30   
## 12 TUBERCULOS Y PLATANOS                            PARATEBUENO    60

El siguiente cuadro de código permite filtrar los municipios con mayor área cosechada en el año 2018 en el departamento de Cundinamarca. San Bernardo cuenta con 970 hectáreas cosechadas, teniendo así la mayor área ocupada por FRUTALES

datos %>% 
  filter(ANO==2018) %>% 
  group_by(GRUPO, MUN) %>%
  summarize(max_area_cosecha = max(AREA_COSECHADA, na.rm = TRUE)) %>%
    slice(which.max(max_area_cosecha)) -> area_cosecha_max
## `summarise()` regrouping output by 'GRUPO' (override with `.groups` argument)
area_cosecha_max
## Warning: `...` is not empty.
## 
## We detected these problematic arguments:
## * `needs_dots`
## 
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?
## # A tibble: 12 x 3
## # Groups:   GRUPO [12]
##    GRUPO                                      MUN               max_area_cosecha
##    <chr>                                      <chr>                        <dbl>
##  1 CEREALES                                   GACHALA                        765
##  2 FIBRAS                                     BELTRAN                        390
##  3 FLORES Y FOLLAJES                          NEMOCON                        400
##  4 FORESTALES                                 SAN JUAN DE RIOS~               91
##  5 FRUTALES                                   SAN BERNARDO                   970
##  6 HONGOS                                     GRANADA                          1
##  7 HORTALIZAS                                 MOSQUERA                       600
##  8 LEGUMINOSAS                                UBAQUE                         856
##  9 OLEAGINOSAS                                PUERTO SALGAR                   69
## 10 OTROS PERMANENTES                          GUADUAS                        942
## 11 PLANTAS AROMATICAS, CONDIMENTARIAS Y MEDI~ CACHIPAY                       108
## 12 TUBERCULOS Y PLATANOS                      LA CALERA                      950

Según los informes de Agronet (2018) el cultivo de mayor relevancia respecto al área cosechada en San Bernardo es el de mora. Esto se ha dado gracias al apoyo del Minisiterio de Agricultura que ha promovido este cultivo en cuanto a productividad y comercialización.

Actualmente, es el departamento de mayor área sembrada y cosechada en mora del país.

datos %>% 
  filter(MUN=="SAN BERNARDO" & SUBGRUPO=="MORA") %>% 
  group_by(ANO, CULTIVO) ->  sb_tda

sb_tda
## Warning: `...` is not empty.
## 
## We detected these problematic arguments:
## * `needs_dots`
## 
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?
## # A tibble: 12 x 15
## # Groups:   ANO, CULTIVO [12]
##    COD_DEPTO DEPTO COD_MUN MUN   GRUPO SUBGRUPO CULTIVO   ANO AREA_SEMBRADA
##        <dbl> <chr>   <int> <chr> <chr> <chr>    <chr>   <dbl>         <dbl>
##  1        25 CUND~   25649 SAN ~ FRUT~ MORA     MORA     2007        960   
##  2        25 CUND~   25649 SAN ~ FRUT~ MORA     MORA     2008       1077   
##  3        25 CUND~   25649 SAN ~ FRUT~ MORA     MORA     2009       1177   
##  4        25 CUND~   25649 SAN ~ FRUT~ MORA     MORA     2010       1217   
##  5        25 CUND~   25649 SAN ~ FRUT~ MORA     MORA     2011        977   
##  6        25 CUND~   25649 SAN ~ FRUT~ MORA     MORA     2012       1047   
##  7        25 CUND~   25649 SAN ~ FRUT~ MORA     MORA     2013          1.04
##  8        25 CUND~   25649 SAN ~ FRUT~ MORA     MORA     2014       1033   
##  9        25 CUND~   25649 SAN ~ FRUT~ MORA     MORA     2015       1045   
## 10        25 CUND~   25649 SAN ~ FRUT~ MORA     MORA     2016          1.03
## 11        25 CUND~   25649 SAN ~ FRUT~ MORA     MORA     2017          1   
## 12        25 CUND~   25649 SAN ~ FRUT~ MORA     MORA     2018        992   
## # ... with 6 more variables: AREA_COSECHADA <dbl>, PRODUCCION <dbl>,
## #   RENDIMIENTO <dbl>, ESTADO <chr>, CICLO.. <chr>, CICLO <chr>

Para tener una mejor interpretación de los datos se pueden hacer un gráfico de barras que muestre la variación en la producción de mora en San Bernardo en el periodo de 2007 a 2018. Fácilmente se observa que ha habido un incremento con el transcurso de los años.

g <- ggplot(aes(x=ANO, y=PRODUCCION/1000), data = sb_tda) + geom_bar(stat='identity') + labs(y='Producción de mora, San Bernardo [Ton x 1000]', x='AÑO')
g + ggtitle("Evolución de la producción de mora en San Bernardo. 2007-2018") + labs(caption= "Fuente de datos: EMA data (DANE, 2018)")

Este cuadro de código permite determinar cuáles fueron los grupos de mayor área cosechada en el año 2018. Se observa que el grupo con mayor valor es el de OTROS PERMANENTES.

datos %>% 
  filter(ANO==2018) %>% 
  group_by(GRUPO) %>%
  summarize(sum_area_cosecha = sum(AREA_COSECHADA, na.rm = TRUE)) %>%
     arrange(desc(sum_area_cosecha)) -> total_area_cosecha
## `summarise()` ungrouping output (override with `.groups` argument)
total_area_cosecha
## Warning: `...` is not empty.
## 
## We detected these problematic arguments:
## * `needs_dots`
## 
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?
## # A tibble: 12 x 2
##    GRUPO                                            sum_area_cosecha
##    <chr>                                                       <dbl>
##  1 OTROS PERMANENTES                                          32326.
##  2 FRUTALES                                                   27989.
##  3 TUBERCULOS Y PLATANOS                                      23321.
##  4 CEREALES                                                   13686 
##  5 HORTALIZAS                                                  8689 
##  6 LEGUMINOSAS                                                 7124 
##  7 FLORES Y FOLLAJES                                           1817 
##  8 PLANTAS AROMATICAS, CONDIMENTARIAS Y MEDICINALES             617 
##  9 FIBRAS                                                       390 
## 10 FORESTALES                                                   328 
## 11 OLEAGINOSAS                                                  126.
## 12 HONGOS                                                         1
datos %>%
  filter(GRUPO=="OTROS PERMANENTES" & ANO==2018) %>%
  group_by(CULTIVO) %>%
  summarize(sum_cosecha = sum(AREA_COSECHADA, na.rm = TRUE)) %>%
     arrange(desc(sum_cosecha)) -> total_cosecha
## `summarise()` ungrouping output (override with `.groups` argument)
total_cosecha
## Warning: `...` is not empty.
## 
## We detected these problematic arguments:
## * `needs_dots`
## 
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?
## # A tibble: 3 x 2
##   CULTIVO       sum_cosecha
##   <chr>               <dbl>
## 1 CAFE               20941.
## 2 CAÑA PANELERA       9260.
## 3 CACAO               2125.

A partir de este cuadro de código se puden identificar los cultivos que hacen parte del grupo OTROS PERMANENTES los cuales presentan la mayor área cosechada. Estos son: el café, la caña panelera y el cacao.

Cundinamarca es por tradición una región cafetera que actulamente busca posicionar el café de alta calidad tanto a nivel nacional como internacional. Alrededor de 28.000 familias siembran, cultivan y se benefician de este producto. Para el año 2018 se observa que el municipio que abarca la mayor área cosechada es Guaduas

Por otro lado, el cacao ha venido introduciéndose debido a la demanda del mercado internacional del mismo para la producción de chocolate. De este modo, el gobierno de Cundinarmca a través de la Secretaría de Agricultura y Desarrollo Rural ha favorecido la implementación de nuevas áreas y de tecnología para la transformación del grano. Actualmente, 3.500 familias en Cundinamarca tienen ingresos gracias a este cultivo y es Paime el municipio que mayor área cosechada presenta para el 2018

La producción de caña panelera en Cundinamarca es una práctica ancestral que es desarrollada principalmente por pequeños agricultores. A partir de esta se produce un alimento natural conocido como panela, el cual es consumido principalmente de manera local como endulzante por muchas familias colombianas. Actualmente Guaduas posee la mayor área cosechada en el departamento

datos %>% 
  filter(ANO==2018 & GRUPO=="OTROS PERMANENTES") %>% 
  group_by(CULTIVO, MUN) %>%
  summarize(max_area2 = max(AREA_COSECHADA, na.rm = TRUE)) %>%
    slice(which.max(max_area2)) -> area_cosecha2
## `summarise()` regrouping output by 'CULTIVO' (override with `.groups` argument)
area_cosecha2
## Warning: `...` is not empty.
## 
## We detected these problematic arguments:
## * `needs_dots`
## 
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?
## # A tibble: 3 x 3
## # Groups:   CULTIVO [3]
##   CULTIVO       MUN     max_area2
##   <chr>         <chr>       <dbl>
## 1 CACAO         PAIME         351
## 2 CAFE          GUADUAS       942
## 3 CAÑA PANELERA GUADUAS       801
total_area_cosecha$GRUPO <- abbreviate(total_area_cosecha$GRUPO, 3)

Los siguientes dos cuadros de texto permiten visualizar de manera gráfica el área cosechada en el año 2018 de acuerdo con el GRUPO. Rápidamente se observa que los de mayor predominancia son: otros permanentes, frutales y tubérculos y plátanos.

g <- ggplot(aes(x=GRUPO, y=sum_area_cosecha), data = total_area_cosecha) + geom_bar(stat='identity') + labs(y='Total Area cosechada[Ha]')
g+ ggtitle("Area total cosechada por grupos en 2018. Cundinamarca") + theme(plot.title = element_text(hjust = 0.5)) +
   labs(caption= "Fuente: EMA data (DANE, 2018)")

4. Unión de las estadísticas agrícolas con los municipios

Para esta parte se requiere el archivo tipo Shape que corresponda al Marco Geoestadístico Departamental de Cundinamarca. Este se puede obtener en las bases de datos del DANE.

La librería sf será de gran utilidad para trabajar con datos espaciales

cun_munic <- sf::st_read("C:/Users/JUAN PABLO/Documents/PROGRAMAS GEOMATICA/25_CUNDINAMARCA/ADMINISTRATIVO/MGN_MPIO_POLITICO.shp")
## Reading layer `MGN_MPIO_POLITICO' from data source `C:\Users\JUAN PABLO\Documents\PROGRAMAS GEOMATICA\25_CUNDINAMARCA\ADMINISTRATIVO\MGN_MPIO_POLITICO.shp' using driver `ESRI Shapefile'
## Simple feature collection with 116 features and 9 fields
## geometry type:  MULTIPOLYGON
## dimension:      XY
## bbox:           xmin: -74.89063 ymin: 3.730129 xmax: -73.05256 ymax: 5.837258
## geographic CRS: WGS 84

Para conocer las propieadades del archivo cargado este debe ser llamado. Se puede observar que corresponde a un Simple Feature con 116 características y 9 campos que tiene como sistemas de coordenadas geográfico el WGS 84

cun_munic
## Simple feature collection with 116 features and 9 fields
## geometry type:  MULTIPOLYGON
## dimension:      XY
## bbox:           xmin: -74.89063 ymin: 3.730129 xmax: -73.05256 ymax: 5.837258
## geographic CRS: WGS 84
## First 10 features:
##    DPTO_CCDGO MPIO_CCDGO    MPIO_CNMBR                               MPIO_CRSLC
## 1          25      25483        NARIÑO                                     1899
## 2          25      25513         PACHO                                     1604
## 3          25      25506       VENECIA         Decreto 727 Septiembre 5 de 1951
## 4          25      25491       NOCAIMA                                     1735
## 5          25      25489       NIMAIMA            Ordenanza 30 de Julio de 1904
## 6          25      25488          NILO                                     1899
## 7          25      25486       NEMOCÓN                                     1778
## 8          25      25530   PARATEBUENO Ordenanza 36 del 30 de Noviembre de 1981
## 9          25      25535         PASCA                                     1887
## 10         25      25572 PUERTO SALGAR    Ordenanza 47 del 14 de Agosto de 1935
##    MPIO_NAREA MPIO_NANO   DPTO_CNMBR Shape_Leng  Shape_Area
## 1    55.16263      2017 CUNDINAMARCA  0.5219117 0.004493674
## 2   402.62678      2017 CUNDINAMARCA  1.2021630 0.032839624
## 3   122.20332      2017 CUNDINAMARCA  0.4873683 0.009951825
## 4    68.93823      2017 CUNDINAMARCA  0.3987992 0.005621814
## 5    59.49982      2017 CUNDINAMARCA  0.4990524 0.004852617
## 6   224.70968      2017 CUNDINAMARCA  0.8442993 0.018305852
## 7    98.36504      2017 CUNDINAMARCA  0.5509410 0.008022009
## 8   885.52351      2017 CUNDINAMARCA  1.7923439 0.072136135
## 9   271.71161      2017 CUNDINAMARCA  0.7143557 0.022134302
## 10  515.94145      2017 CUNDINAMARCA  1.3299992 0.042109370
##                          geometry
## 1  MULTIPOLYGON (((-74.7413 4....
## 2  MULTIPOLYGON (((-74.21183 5...
## 3  MULTIPOLYGON (((-74.44812 4...
## 4  MULTIPOLYGON (((-74.39011 5...
## 5  MULTIPOLYGON (((-74.34091 5...
## 6  MULTIPOLYGON (((-74.56068 4...
## 7  MULTIPOLYGON (((-73.88945 5...
## 8  MULTIPOLYGON (((-73.06503 4...
## 9  MULTIPOLYGON (((-74.24153 4...
## 10 MULTIPOLYGON (((-74.51278 5...

Para realizar una unión de objetos se necesita un atributo común o variable compartida. En este caso los dos conjuntos de información poseen como atributo común el código del municipio. En los datos iniciales es llamado COD_MUN y en el shapefile es llamado MPIO_CCDGO

Para verificar si esta información es verás se usará el siguiente cuadro de código.

datos %>% filter (MUN =="SAN BERNARDO") ->  sb_datos
sb_datos
##     COD_DEPTO        DEPTO COD_MUN          MUN                 GRUPO
## 1          25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 2          25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 3          25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 4          25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 5          25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 6          25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 7          25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 8          25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 9          25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 10         25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 11         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 12         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 13         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 14         25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 15         25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 16         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 17         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 18         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 19         25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 20         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 21         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 22         25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 23         25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 24         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 25         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 26         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 27         25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 28         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 29         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 30         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 31         25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 32         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 33         25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 34         25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 35         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 36         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 37         25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 38         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 39         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 40         25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 41         25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 42         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 43         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 44         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 45         25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 46         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 47         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 48         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 49         25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 50         25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 51         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 52         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 53         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 54         25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 55         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 56         25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 57         25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 58         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 59         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 60         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 61         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 62         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 63         25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 64         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 65         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 66         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 67         25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 68         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 69         25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 70         25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 71         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 72         25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 73         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 74         25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 75         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 76         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 77         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 78         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 79         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 80         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 81         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 82         25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 83         25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 84         25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 85         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 86         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 87         25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 88         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 89         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 90         25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 91         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 92         25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 93         25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 94         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 95         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 96         25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 97         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 98         25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 99         25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 100        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 101        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 102        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 103        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 104        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 105        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 106        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 107        25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 108        25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 109        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 110        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 111        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 112        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 113        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 114        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 115        25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 116        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 117        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 118        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 119        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 120        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 121        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 122        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 123        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 124        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 125        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 126        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 127        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 128        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 129        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 130        25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 131        25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 132        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 133        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 134        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 135        25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 136        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 137        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 138        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 139        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 140        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 141        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 142        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 143        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 144        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 145        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 146        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 147        25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 148        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 149        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 150        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 151        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 152        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 153        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 154        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 155        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 156        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 157        25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 158        25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 159        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 160        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 161        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 162        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 163        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 164        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 165        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 166        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 167        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 168        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 169        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 170        25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 171        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 172        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 173        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 174        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 175        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 176        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 177        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 178        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 179        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 180        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 181        25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 182        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 183        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 184        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 185        25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 186        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 187        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 188        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 189        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 190        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 191        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 192        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 193        25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 194        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 195        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 196        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 197        25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 198        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 199        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 200        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 201        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 202        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 203        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 204        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 205        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 206        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 207        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 208        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 209        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 210        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 211        25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 212        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 213        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 214        25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 215        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 216        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 217        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 218        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 219        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 220        25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 221        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 222        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 223        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 224        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 225        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 226        25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 227        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 228        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 229        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 230        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 231        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 232        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 233        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 234        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 235        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 236        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 237        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 238        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 239        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 240        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 241        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 242        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 243        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 244        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 245        25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 246        25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 247        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 248        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 249        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 250        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 251        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 252        25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 253        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 254        25 CUNDINAMARCA   25649 SAN BERNARDO     OTROS PERMANENTES
## 255        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 256        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 257        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 258        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 259        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 260        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 261        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 262        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 263        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 264        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 265        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 266        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 267        25 CUNDINAMARCA   25649 SAN BERNARDO              FRUTALES
## 268        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 269        25 CUNDINAMARCA   25649 SAN BERNARDO           LEGUMINOSAS
## 270        25 CUNDINAMARCA   25649 SAN BERNARDO            HORTALIZAS
## 271        25 CUNDINAMARCA   25649 SAN BERNARDO              CEREALES
## 272        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
## 273        25 CUNDINAMARCA   25649 SAN BERNARDO TUBERCULOS Y PLATANOS
##              SUBGRUPO         CULTIVO  ANO AREA_SEMBRADA AREA_COSECHADA
## 1          HABICHUELA      HABICHUELA 2006         70.00          70.00
## 2              FRIJOL          FRIJOL 2006         75.00          75.00
## 3             CEBOLLA CEBOLLA DE RAMA 2006          8.00           8.00
## 4              ARVEJA          ARVEJA 2006         80.00          80.00
## 5                MAIZ            MAIZ 2006         28.00          28.00
## 6                PAPA            PAPA 2006        130.00          35.00
## 7          HABICHUELA      HABICHUELA 2007         70.00          70.00
## 8          HABICHUELA      HABICHUELA 2007         70.00          70.00
## 9              FRIJOL          FRIJOL 2007         75.00          75.00
## 10            CEBOLLA CEBOLLA DE RAMA 2007          8.00           8.00
## 11             FRIJOL          FRIJOL 2007         75.00          75.00
## 12             ARVEJA          ARVEJA 2007         60.00          60.00
## 13             ARVEJA          ARVEJA 2007         70.00          70.00
## 14               MAIZ            MAIZ 2007         50.00          50.00
## 15               MAIZ            MAIZ 2007         15.00          15.00
## 16               MORA            MORA 2007        960.00         745.00
## 17  FRUTALES EXOTICOS          GULUPA 2007        295.00         265.00
## 18         GRANADILLA      GRANADILLA 2007        145.00         105.00
## 19               CAFE            CAFE 2007        396.00         376.00
## 20    TOMATE DE ARBOL TOMATE DE ARBOL 2007        110.00          80.00
## 21             CURUBA          CURUBA 2007         35.00          35.00
## 22               PAPA            PAPA 2007         35.00          25.00
## 23               PAPA            PAPA 2007         40.00          35.00
## 24               MORA            MORA 2008       1077.00         947.00
## 25         HABICHUELA      HABICHUELA 2008         70.00          70.00
## 26         HABICHUELA      HABICHUELA 2008         70.00          70.00
## 27            CEBOLLA CEBOLLA DE RAMA 2008         10.00          10.00
## 28             ARVEJA          ARVEJA 2008         70.00          70.00
## 29             ARVEJA          ARVEJA 2008         70.00          70.00
## 30             FRIJOL          FRIJOL 2008         75.00          75.00
## 31            CEBOLLA CEBOLLA DE RAMA 2008         10.00           8.00
## 32             FRIJOL          FRIJOL 2008         75.00          75.00
## 33               MAIZ            MAIZ 2008         50.00          50.00
## 34               MAIZ            MAIZ 2008         50.00          50.00
## 35  FRUTALES EXOTICOS          GULUPA 2008        315.00         285.00
## 36         GRANADILLA      GRANADILLA 2008        258.00         138.00
## 37               CAFE            CAFE 2008        389.00         359.00
## 38    TOMATE DE ARBOL TOMATE DE ARBOL 2008        210.00         105.00
## 39             CURUBA          CURUBA 2008         35.00          30.00
## 40               PAPA            PAPA 2008         40.00          35.00
## 41               PAPA            PAPA 2008         40.00          30.00
## 42         HABICHUELA      HABICHUELA 2009         90.00          87.00
## 43         HABICHUELA      HABICHUELA 2009         70.00          59.00
## 44             ARVEJA          ARVEJA 2009        110.00         103.00
## 45            CEBOLLA CEBOLLA DE RAMA 2009         10.00           8.00
## 46             ARVEJA          ARVEJA 2009         80.00          73.00
## 47             FRIJOL          FRIJOL 2009         70.00          64.00
## 48             FRIJOL          FRIJOL 2009         80.00          72.00
## 49               MAIZ            MAIZ 2009         30.00          21.00
## 50               MAIZ            MAIZ 2009         25.00          17.00
## 51  FRUTALES EXOTICOS          GULUPA 2009        375.00         325.00
## 52    TOMATE DE ARBOL TOMATE DE ARBOL 2009        460.00         210.00
## 53         GRANADILLA      GRANADILLA 2009        335.00         200.00
## 54               CAFE            CAFE 2009        392.00         377.00
## 55             CURUBA          CURUBA 2009         40.00          30.00
## 56               PAPA            PAPA 2009        210.00         202.00
## 57               PAPA            PAPA 2009        186.00         173.00
## 58               MORA            MORA 2009       1177.00           1.08
## 59    TOMATE DE ARBOL TOMATE DE ARBOL 2010        680.00         350.00
## 60  FRUTALES EXOTICOS          GULUPA 2010        295.00         275.00
## 61         HABICHUELA      HABICHUELA 2010        110.00          98.00
## 62         HABICHUELA      HABICHUELA 2010        105.00          90.00
## 63            CEBOLLA CEBOLLA DE RAMA 2010         25.00          25.00
## 64             ARVEJA          ARVEJA 2010        180.00         164.00
## 65             FRIJOL          FRIJOL 2010        150.00         138.00
## 66             ARVEJA          ARVEJA 2010        120.00         112.00
## 67               MAIZ            MAIZ 2010        120.00         102.00
## 68             FRIJOL          FRIJOL 2010         90.00          81.00
## 69               MAIZ            MAIZ 2010         60.00          46.00
## 70               PAPA            PAPA 2010        900.00         695.00
## 71         GRANADILLA      GRANADILLA 2010        265.00         195.00
## 72               CAFE            CAFE 2010        399.00         360.00
## 73       CADUCIFOLIOS    CADUCIFOLIOS 2010         50.00          40.00
## 74               PAPA            PAPA 2010         90.00          87.00
## 75               MORA            MORA 2010       1217.00           1.04
## 76               MORA            MORA 2011        977.00         935.00
## 77    TOMATE DE ARBOL TOMATE DE ARBOL 2011        685.00         563.00
## 78         HABICHUELA      HABICHUELA 2011         90.00          88.00
## 79         HABICHUELA      HABICHUELA 2011         70.00          59.00
## 80             ARVEJA          ARVEJA 2011        150.00         146.00
## 81             FRIJOL          FRIJOL 2011        113.00         110.00
## 82            CEBOLLA CEBOLLA DE RAMA 2011         35.00          29.00
## 83          ARRACACHA       ARRACACHA 2011         20.00          20.00
## 84               MAIZ            MAIZ 2011        106.00         105.00
## 85             ARVEJA          ARVEJA 2011         80.00          56.00
## 86             FRIJOL          FRIJOL 2011         70.00          61.00
## 87               MAIZ            MAIZ 2011         25.00          20.00
## 88  FRUTALES EXOTICOS          GULUPA 2011        184.00         151.00
## 89         GRANADILLA      GRANADILLA 2011        164.00         123.00
## 90               CAFE            CAFE 2011        400.00         350.00
## 91       CADUCIFOLIOS    CADUCIFOLIOS 2011         33.00          28.00
## 92               PAPA            PAPA 2011        220.00         218.00
## 93               PAPA            PAPA 2011        186.00         145.00
## 94               MORA            MORA 2012       1047.00         962.00
## 95    TOMATE DE ARBOL TOMATE DE ARBOL 2012        750.00         532.00
## 96  FRUTALES EXOTICOS          GULUPA 2012        183.00         181.00
## 97         HABICHUELA      HABICHUELA 2012        121.00         117.00
## 98         HABICHUELA      HABICHUELA 2012        116.00         103.00
## 99               YUCA            YUCA 2012         30.00          25.00
## 100         ARRACACHA       ARRACACHA 2012         45.00          38.00
## 101           CEBOLLA CEBOLLA DE RAMA 2012         29.00          27.00
## 102            ARVEJA          ARVEJA 2012        139.00         131.00
## 103            ARVEJA          ARVEJA 2012        132.00         123.00
## 104           CEBOLLA CEBOLLA DE RAMA 2012         28.00          20.00
## 105            FRIJOL          FRIJOL 2012        104.00          97.00
## 106            FRIJOL          FRIJOL 2012         99.00          89.00
## 107              MAIZ            MAIZ 2012         33.00          28.00
## 108              MAIZ            MAIZ 2012         35.00          33.00
## 109            TOMATE          TOMATE 2012          4.00           4.00
## 110            TOMATE          TOMATE 2012          4.00           3.00
## 111        GRANADILLA      GRANADILLA 2012        179.00         109.00
## 112      CADUCIFOLIOS    CADUCIFOLIOS 2012         33.00          25.00
## 113              PAPA            PAPA 2012        175.00         169.00
## 114              PAPA            PAPA 2012        167.00         162.00
## 115              CAFE            CAFE 2012         85.00           0.00
## 116          CITRICOS        CITRICOS 2012        112.00           0.00
## 117   TOMATE DE ARBOL TOMATE DE ARBOL 2013        740.00         624.00
## 118 FRUTALES EXOTICOS          GULUPA 2013        183.00         181.00
## 119          CITRICOS        CITRICOS 2013        111.00         111.00
## 120        HABICHUELA      HABICHUELA 2013        170.00         160.00
## 121        HABICHUELA      HABICHUELA 2013        100.00          95.00
## 122              YUCA            YUCA 2013         20.00          19.00
## 123           CEBOLLA CEBOLLA DE RAMA 2013         28.00          27.00
## 124           CEBOLLA CEBOLLA DE RAMA 2013         31.00          25.00
## 125         ARRACACHA       ARRACACHA 2013         25.00          22.00
## 126            FRIJOL          FRIJOL 2013         99.00          89.00
## 127            ARVEJA          ARVEJA 2013         85.00          75.00
## 128            ARVEJA          ARVEJA 2013        129.00         118.00
## 129            FRIJOL          FRIJOL 2013         25.00          22.00
## 130              MAIZ            MAIZ 2013         29.00          25.00
## 131              MAIZ            MAIZ 2013         15.00          13.00
## 132            TOMATE          TOMATE 2013          4.00           4.00
## 133            TOMATE          TOMATE 2013          4.00           4.00
## 134            TOMATE          TOMATE 2013          3.00           3.00
## 135              CAFE            CAFE 2013        311.00         276.00
## 136        GRANADILLA      GRANADILLA 2013        179.00          99.00
## 137      CADUCIFOLIOS    CADUCIFOLIOS 2013         33.00          25.00
## 138              PAPA            PAPA 2013        175.00         169.00
## 139              PAPA            PAPA 2013        160.00         158.00
## 140              MORA            MORA 2013          1.04           1.02
## 141   TOMATE DE ARBOL TOMATE DE ARBOL 2014        750.00         697.00
## 142 FRUTALES EXOTICOS          GULUPA 2014        183.00         183.00
## 143        GRANADILLA      GRANADILLA 2014        179.00         150.00
## 144          CITRICOS        CITRICOS 2014        115.00         106.00
## 145 FRUTALES EXOTICOS          UCHUVA 2014         83.00          83.00
## 146        HABICHUELA      HABICHUELA 2014        168.00         157.00
## 147              CAFE            CAFE 2014        259.00         242.00
## 148        HABICHUELA      HABICHUELA 2014        125.00         115.00
## 149              YUCA            YUCA 2014         18.00          17.00
## 150            FRIJOL          FRIJOL 2014         93.00          90.00
## 151            ARVEJA          ARVEJA 2014        122.00         120.00
## 152           CEBOLLA CEBOLLA DE RAMA 2014         24.00          18.00
## 153           CEBOLLA CEBOLLA DE RAMA 2014         20.00          15.00
## 154            ARVEJA          ARVEJA 2014         87.00          83.00
## 155         ARRACACHA       ARRACACHA 2014         21.00          20.00
## 156            FRIJOL          FRIJOL 2014         30.00          29.00
## 157              MAIZ            MAIZ 2014         28.00          25.00
## 158              MAIZ            MAIZ 2014         25.00          21.00
## 159            TOMATE          TOMATE 2014          5.00           4.00
## 160            TOMATE          TOMATE 2014          4.00           4.00
## 161      CADUCIFOLIOS    CADUCIFOLIOS 2014         34.00          29.00
## 162              PAPA            PAPA 2014        147.00         140.00
## 163              PAPA            PAPA 2014        135.00         133.00
## 164              MORA            MORA 2014       1033.00           1.01
## 165   TOMATE DE ARBOL TOMATE DE ARBOL 2015        758.00         734.00
## 166              PAPA            PAPA 2015        152.00         144.00
## 167 FRUTALES EXOTICOS          GULUPA 2015        185.00         182.00
## 168        GRANADILLA      GRANADILLA 2015        183.00         155.00
## 169              PAPA            PAPA 2015        177.00         171.00
## 170              CAFE            CAFE 2015        269.00         261.00
## 171          CITRICOS           LIMON 2015        118.00         105.00
## 172        HABICHUELA      HABICHUELA 2015        172.00         162.00
## 173        HABICHUELA      HABICHUELA 2015        102.00          97.00
## 174              YUCA            YUCA 2015         22.00          21.00
## 175           CEBOLLA CEBOLLA DE RAMA 2015         30.00          29.00
## 176           CEBOLLA CEBOLLA DE RAMA 2015         27.00          25.00
## 177         ARRACACHA       ARRACACHA 2015         27.00          25.00
## 178            ARVEJA          ARVEJA 2015        127.00         117.00
## 179            FRIJOL          FRIJOL 2015        102.00          98.00
## 180            ARVEJA          ARVEJA 2015         89.00          77.00
## 181              MAIZ            MAIZ 2015         32.00          30.00
## 182            TOMATE          TOMATE 2015          4.00           4.00
## 183            TOMATE          TOMATE 2015          6.00           4.00
## 184            FRIJOL          FRIJOL 2015         27.00          24.00
## 185              MAIZ            MAIZ 2015         17.00          15.00
## 186      CADUCIFOLIOS    CADUCIFOLIOS 2015         35.00          34.00
## 187              MORA            MORA 2015       1045.00           1.02
## 188              MORA            MORA 2016          1.03         860.00
## 189   TOMATE DE ARBOL TOMATE DE ARBOL 2016        752.00         681.00
## 190              PAPA            PAPA 2016         53.00          53.00
## 191              PAPA            PAPA 2016         45.00          45.00
## 192          CITRICOS           LIMON 2016        118.00         114.00
## 193              CAFE            CAFE 2016        271.00         258.00
## 194        GRANADILLA      GRANADILLA 2016         78.00          68.00
## 195 FRUTALES EXOTICOS          UCHUVA 2016         80.00          60.00
## 196 FRUTALES EXOTICOS          GULUPA 2016         65.00          57.00
## 197              CAÑA   CAÑA PANELERA 2016         25.00          25.00
## 198              YUCA            YUCA 2016         22.00          22.00
## 199         ARRACACHA       ARRACACHA 2016         27.00          27.00
## 200        HABICHUELA      HABICHUELA 2016         62.00          62.00
## 201        HABICHUELA      HABICHUELA 2016         58.00          58.00
## 202           PLATANO         PLATANO 2016         61.00          61.00
## 203           CEBOLLA CEBOLLA DE RAMA 2016         28.00          28.00
## 204           CEBOLLA CEBOLLA DE RAMA 2016         25.00          25.00
## 205            ARVEJA          ARVEJA 2016         54.00          54.00
## 206            TOMATE          TOMATE 2016          7.00           7.00
## 207            TOMATE          TOMATE 2016          6.00           6.00
## 208            ARVEJA          ARVEJA 2016         44.00          44.00
## 209            FRIJOL          FRIJOL 2016         40.00          40.00
## 210            FRIJOL          FRIJOL 2016         35.00          35.00
## 211              MAIZ            MAIZ 2016         16.00          16.00
## 212            TOMATE          TOMATE 2016          1.00           1.00
## 213            TOMATE          TOMATE 2016          1.00           1.00
## 214              MAIZ            MAIZ 2016         10.00          10.00
## 215          AGUACATE        AGUACATE 2016         21.00          18.00
## 216            FEIJOA          FEIJOA 2016         10.00          10.00
## 217          ARANDANO        ARANDANO 2016          1.00           1.00
## 218              MORA            MORA 2017          1.00         990.00
## 219   TOMATE DE ARBOL TOMATE DE ARBOL 2017        772.00         687.00
## 220              CAFE            CAFE 2017        269.00         240.00
## 221              PAPA            PAPA 2017         43.00          43.00
## 222              PAPA            PAPA 2017         32.00          32.00
## 223          CITRICOS           LIMON 2017         78.00          78.00
## 224 FRUTALES EXOTICOS          UCHUVA 2017         94.00          69.00
## 225        GRANADILLA      GRANADILLA 2017         63.00          58.00
## 226              CAÑA   CAÑA PANELERA 2017         25.00          25.00
## 227 FRUTALES EXOTICOS          GULUPA 2017         26.00          21.00
## 228        HABICHUELA      HABICHUELA 2017         56.00          56.00
## 229         ARRACACHA       ARRACACHA 2017         20.00          20.00
## 230        HABICHUELA      HABICHUELA 2017         50.00          50.00
## 231           CEBOLLA CEBOLLA DE RAMA 2017         30.00          30.00
## 232          AGUACATE        AGUACATE 2017         27.00          14.00
## 233              YUCA            YUCA 2017         15.00          15.00
## 234           PLATANO         PLATANO 2017         57.00          53.00
## 235           CEBOLLA CEBOLLA DE RAMA 2017         23.00          23.00
## 236            ARVEJA          ARVEJA 2017         60.00          60.00
## 237            PAPAYA       PAPAYUELA 2017         15.00          13.00
## 238            ARVEJA          ARVEJA 2017         50.00          50.00
## 239            FRIJOL          FRIJOL 2017         40.00          40.00
## 240            FRIJOL          FRIJOL 2017         38.00          38.00
## 241            TOMATE          TOMATE 2017          5.00           5.00
## 242            TOMATE          TOMATE 2017          5.00           5.00
## 243            TOMATE          TOMATE 2017          1.00           1.00
## 244            TOMATE          TOMATE 2017          1.00           1.00
## 245              MAIZ            MAIZ 2017         12.00          12.00
## 246              MAIZ            MAIZ 2017         10.00          10.00
## 247            ACHIRA          ACHIRA 2017          3.00           3.00
## 248            FEIJOA          FEIJOA 2017         12.00           9.00
## 249 FRUTALES EXOTICOS           AGRAZ 2017          1.00           1.00
## 250              MORA            MORA 2018        992.00         970.00
## 251   TOMATE DE ARBOL TOMATE DE ARBOL 2018        780.00         670.00
## 252              CAFE            CAFE 2018        253.00         231.00
## 253 FRUTALES EXOTICOS          UCHUVA 2018        100.00          73.00
## 254              CAÑA   CAÑA PANELERA 2018         25.00          25.00
## 255          CITRICOS           LIMON 2018         38.00          38.00
## 256        GRANADILLA      GRANADILLA 2018         58.00          36.00
## 257            PAPAYA       PAPAYUELA 2018         26.00          15.00
## 258 FRUTALES EXOTICOS          GULUPA 2018         34.00          15.00
## 259          AGUACATE        AGUACATE 2018         85.00          14.00
## 260            FEIJOA          FEIJOA 2018         20.00          11.00
## 261         ARRACACHA       ARRACACHA 2018         22.00          22.00
## 262              YUCA            YUCA 2018         18.00          18.00
## 263        HABICHUELA      HABICHUELA 2018         42.00          42.00
## 264           CEBOLLA CEBOLLA DE RAMA 2018         23.00          23.00
## 265           PLATANO         PLATANO 2018         37.00          37.00
## 266            TOMATE          TOMATE 2018          6.00           6.00
## 267 FRUTALES EXOTICOS           AGRAZ 2018          1.00           1.00
## 268            ARVEJA          ARVEJA 2018         30.00          30.00
## 269            FRIJOL          FRIJOL 2018         20.00          20.00
## 270            TOMATE          TOMATE 2018          1.00           1.00
## 271              MAIZ            MAIZ 2018          8.00           8.00
## 272            ACHIRA          ACHIRA 2018          3.00           3.00
## 273              PAPA            PAPA 2018         35.00          35.00
##     PRODUCCION RENDIMIENTO                 ESTADO      CICLO..        CICLO
## 1          700       10.00      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 2          135        1.80             GRANO SECO TRANSITORIO, TRANSITORIO,
## 3          120       15.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 4          114        1.43             GRANO SECO TRANSITORIO, TRANSITORIO,
## 5           35        1.25             GRANO SECO TRANSITORIO, TRANSITORIO,
## 6          438       12.50       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 7          700       10.00      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 8          700       10.00      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 9          135        1.80             GRANO SECO TRANSITORIO, TRANSITORIO,
## 10         120       15.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 11          95        1.27             GRANO SECO TRANSITORIO, TRANSITORIO,
## 12          84        1.40             GRANO SECO TRANSITORIO, TRANSITORIO,
## 13          82        1.17             GRANO SECO TRANSITORIO, TRANSITORIO,
## 14          75        1.50             GRANO SECO TRANSITORIO, TRANSITORIO,
## 15          23        1.53             GRANO SECO TRANSITORIO, TRANSITORIO,
## 16        7450       10.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 17        2650       10.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 18        1260       12.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 19         176        0.47 CAFE VERDE EQUIVALENTE  PERMANENTE,  PERMANENTE,
## 20         800       10.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 21         350       10.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 22         313       12.50       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 23         420       12.00       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 24        9470       10.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 25         700       10.00      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 26         700       10.00      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 27         150       15.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 28         135        1.93             GRANO SECO TRANSITORIO, TRANSITORIO,
## 29         125        1.79             GRANO SECO TRANSITORIO, TRANSITORIO,
## 30         125        1.67             GRANO SECO TRANSITORIO, TRANSITORIO,
## 31         120       15.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 32         115        1.53             GRANO SECO TRANSITORIO, TRANSITORIO,
## 33          85        1.70             GRANO SECO TRANSITORIO, TRANSITORIO,
## 34          85        1.70             GRANO SECO TRANSITORIO, TRANSITORIO,
## 35        2850       10.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 36        1656       12.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 37         185        0.52 CAFE VERDE EQUIVALENTE  PERMANENTE,  PERMANENTE,
## 38        1050       10.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 39         300       10.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 40         420       12.00       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 41         339       11.30       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 42         818        9.40      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 43         590       10.00      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 44         160        1.55             GRANO SECO TRANSITORIO, TRANSITORIO,
## 45         139       17.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 46         126        1.73             GRANO SECO TRANSITORIO, TRANSITORIO,
## 47         105        1.64             GRANO SECO TRANSITORIO, TRANSITORIO,
## 48          74        1.03             GRANO SECO TRANSITORIO, TRANSITORIO,
## 49          32        1.52             GRANO SECO TRANSITORIO, TRANSITORIO,
## 50          25        1.47             GRANO SECO TRANSITORIO, TRANSITORIO,
## 51        2925        9.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 52        2024        9.64           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 53         748        3.74           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 54         216        0.57 CAFE VERDE EQUIVALENTE  PERMANENTE,  PERMANENTE,
## 55         180        6.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 56        2123       10.51       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 57        1817       10.50       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 58        9855        9.15           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 59        5600       16.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 60        2475        9.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 61         980       10.00      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 62         405        4.50      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 63         350       14.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 64         160        0.98             GRANO SECO TRANSITORIO, TRANSITORIO,
## 65         150        1.09             GRANO SECO TRANSITORIO, TRANSITORIO,
## 66         137        1.22             GRANO SECO TRANSITORIO, TRANSITORIO,
## 67         120        1.18             GRANO SECO TRANSITORIO, TRANSITORIO,
## 68          98        1.21             GRANO SECO TRANSITORIO, TRANSITORIO,
## 69          57        1.24             GRANO SECO TRANSITORIO, TRANSITORIO,
## 70       13160       18.94       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 71        2340       12.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 72         217        0.60 CAFE VERDE EQUIVALENTE  PERMANENTE,  PERMANENTE,
## 73         240        6.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 74         914       10.50       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 75        9540        9.20           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 76        9350       10.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 77        9008       16.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 78         880       10.00      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 79         590       10.00      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 80         192        1.32             GRANO SECO TRANSITORIO, TRANSITORIO,
## 81         172        1.56             GRANO SECO TRANSITORIO, TRANSITORIO,
## 82         145        5.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 83         106        5.30       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 84          94        0.90             GRANO SECO TRANSITORIO, TRANSITORIO,
## 85          82        1.46             GRANO SECO TRANSITORIO, TRANSITORIO,
## 86          71        1.16             GRANO SECO TRANSITORIO, TRANSITORIO,
## 87          25        1.25             GRANO SECO TRANSITORIO, TRANSITORIO,
## 88        1359        9.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 89        1476       12.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 90         220        0.63 CAFE VERDE EQUIVALENTE  PERMANENTE,  PERMANENTE,
## 91         168        6.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 92        2289       10.50       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 93        1523       10.50       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 94        8658        9.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 95        8512       16.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 96        1665        9.20           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 97        1107        9.50      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 98         979        9.50      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 99         700       28.00       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 100        304        8.00       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 101        284       10.50       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 102        238        1.82             GRANO SECO TRANSITORIO, TRANSITORIO,
## 103        224        1.82             GRANO SECO TRANSITORIO, TRANSITORIO,
## 104        210       10.50       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 105        116        1.20             GRANO SECO TRANSITORIO, TRANSITORIO,
## 106        107        1.20             GRANO SECO TRANSITORIO, TRANSITORIO,
## 107         76        2.71             GRANO SECO TRANSITORIO, TRANSITORIO,
## 108         29        0.90             GRANO SECO TRANSITORIO, TRANSITORIO,
## 109          6        1.70       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 110          5        1.70       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 111       1308       12.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 112        150        6.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 113       1769       10.50       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 114       1701       10.50       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 115          0          NA CAFE VERDE EQUIVALENTE  PERMANENTE,  PERMANENTE,
## 116          0          NA           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 117       9984       16.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 118       1665        9.20           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 119        722        6.50           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 120       1520        9.50      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 121        903        9.50      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 122        532       28.00       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 123        284       10.50       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 124        253       10.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 125        176        8.00       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 126        159        1.79             GRANO SECO TRANSITORIO, TRANSITORIO,
## 127        144        1.93             GRANO SECO TRANSITORIO, TRANSITORIO,
## 128        141        1.19             GRANO SECO TRANSITORIO, TRANSITORIO,
## 129         39        1.79             GRANO SECO TRANSITORIO, TRANSITORIO,
## 130         23        0.90             GRANO SECO TRANSITORIO, TRANSITORIO,
## 131         12        0.90             GRANO SECO TRANSITORIO, TRANSITORIO,
## 132          7        1.70       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 133          6        1.70       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 134          3        1.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 135        177        0.64 CAFE VERDE EQUIVALENTE  PERMANENTE,  PERMANENTE,
## 136       1188       12.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 137        150        6.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 138       1775       10.50       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 139       1311        8.30       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 140       9180        9.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 141      11152       16.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 142       1464        8.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 143       1500       10.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 144        689        6.50           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 145       1079       13.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 146       1413        9.00      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 147        168        0.69 CAFE VERDE EQUIVALENTE  PERMANENTE,  PERMANENTE,
## 148       1035        9.00      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 149        425       25.00       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 150        221        2.45             GRANO SECO TRANSITORIO, TRANSITORIO,
## 151        210        1.75             GRANO SECO TRANSITORIO, TRANSITORIO,
## 152        198       11.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 153        165       11.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 154        145        1.75             GRANO SECO TRANSITORIO, TRANSITORIO,
## 155        140        7.00       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 156         71        2.45             GRANO SECO TRANSITORIO, TRANSITORIO,
## 157         63        2.50             GRANO SECO TRANSITORIO, TRANSITORIO,
## 158         53        2.50             GRANO SECO TRANSITORIO, TRANSITORIO,
## 159         16        4.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 160         16        4.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 161        174        6.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 162       1540       11.00       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 163       1463       11.00       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 164       9117        9.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 165      13212       18.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 166       2736       19.00       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 167       1729        9.50           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 168       2325       15.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 169       2907       17.00       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 170        201        0.77 CAFE VERDE EQUIVALENTE  PERMANENTE,  PERMANENTE,
## 171        714        6.80           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 172       1571        9.70      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 173        941        9.70      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 174        525       25.00       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 175        310       10.70       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 176        268       10.70       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 177        250       10.00       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 178        233        2.00             GRANO SECO TRANSITORIO, TRANSITORIO,
## 179        182        1.86             GRANO SECO TRANSITORIO, TRANSITORIO,
## 180        154        2.00             GRANO SECO TRANSITORIO, TRANSITORIO,
## 181         89        2.98             GRANO SECO TRANSITORIO, TRANSITORIO,
## 182         80       19.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 183         76       19.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 184         45        1.86             GRANO SECO TRANSITORIO, TRANSITORIO,
## 185         45        2.98             GRANO SECO TRANSITORIO, TRANSITORIO,
## 186        272        8.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 187       9162        9.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 188       7912        9.20           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 189      10896       16.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 190        954       18.00       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 191        810       18.00       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 192        775        6.80           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 193        206        0.80 CAFE VERDE EQUIVALENTE  PERMANENTE,  PERMANENTE,
## 194        816       12.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 195        720       12.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 196        537        9.50           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 197         75        3.00                 PANELA  PERMANENTE,  PERMANENTE,
## 198        440       20.00       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 199        405       15.00       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 200        360        5.80      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 201        336        5.80      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 202        305        5.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 203        263        9.40       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 204        235        9.40       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 205        113        2.10             GRANO SECO TRANSITORIO, TRANSITORIO,
## 206        112       16.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 207         96       16.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 208         92        2.10             GRANO SECO TRANSITORIO, TRANSITORIO,
## 209         74        1.86             GRANO SECO TRANSITORIO, TRANSITORIO,
## 210         65        1.86             GRANO SECO TRANSITORIO, TRANSITORIO,
## 211         39        2.45             GRANO SECO TRANSITORIO, TRANSITORIO,
## 212         27       27.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 213         27       27.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 214         25        2.45             GRANO SECO TRANSITORIO, TRANSITORIO,
## 215        144        8.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 216         80        8.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 217          2        4.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 218       9900       10.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 219      13740       20.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 220        304        1.26 CAFE VERDE EQUIVALENTE  PERMANENTE,  PERMANENTE,
## 221        774       18.00       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 222        576       18.00       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
## 223        530        6.80           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 224        828       12.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 225        696       12.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 226         75        3.00                 PANELA  PERMANENTE,  PERMANENTE,
## 227        200        9.50           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 228        325        5.80      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 229        300       15.00       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 230        290        5.80      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 231        288        9.60       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 232        112        8.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 233        270       18.00       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 234        265        5.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 235        221        9.60       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 236        113        1.89             GRANO SECO TRANSITORIO, TRANSITORIO,
## 237        286       22.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 238         95        1.89             GRANO SECO TRANSITORIO, TRANSITORIO,
## 239         84        2.10             GRANO SECO TRANSITORIO, TRANSITORIO,
## 240         80        2.10             GRANO SECO TRANSITORIO, TRANSITORIO,
## 241         80       16.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 242         80       16.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 243         40       40.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 244         40       40.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 245         29        2.45             GRANO SECO TRANSITORIO, TRANSITORIO,
## 246         25        2.45             GRANO SECO TRANSITORIO, TRANSITORIO,
## 247          7        2.20       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 248         72        8.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 249          2        4.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 250       9700       10.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 251      13400       20.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 252        299        1.29 CAFE VERDE EQUIVALENTE  PERMANENTE,  PERMANENTE,
## 253        876       12.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 254         75        3.00                 PANELA  PERMANENTE,  PERMANENTE,
## 255        258        6.80           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 256        432       12.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 257        330       22.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 258        143        9.50           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 259        119        8.50           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 260         90        8.20           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 261        330       15.00       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 262        324       18.00       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 263        244        5.80      LEGUMINOSA FRESCA TRANSITORIO, TRANSITORIO,
## 264        221        9.60       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 265        185        5.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 266         96       16.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 267          2        4.00           FRUTO FRESCO  PERMANENTE,  PERMANENTE,
## 268         57        1.89             GRANO SECO TRANSITORIO, TRANSITORIO,
## 269         42        2.10             GRANO SECO TRANSITORIO, TRANSITORIO,
## 270         40       40.00       HORTALIZA FRESCA TRANSITORIO, TRANSITORIO,
## 271         20        2.45             GRANO SECO TRANSITORIO, TRANSITORIO,
## 272          7        2.20       TUBERCULO FRESCO       ANUAL,       ANUAL,
## 273        630       18.00       TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,
class(sb_datos$COD_MUN)
## [1] "integer"

Para poder realizar la unión, se requiere hacer modificaciones tanto en la tipología de datos estadísticos como en el contenido del código que identifica a cada municipio. Para ello es ideal crear una copia de los datos originales y así no perderlos o alterarlos.

datos2 <- datos
datos2$TEMP <-  as.character(datos2$COD_MUN)
datos2$MPIO_CCDGO<- as.factor(datos2$TEMP)

Se puede observar que ya se presenta la unión de los datos y que COD_MUN coincide con MPIO_CCDGO

head(datos2)
##   COD_DEPTO        DEPTO COD_MUN     MUN      GRUPO  SUBGRUPO          CULTIVO
## 1        25 CUNDINAMARCA   25754  SOACHA HORTALIZAS      APIO             APIO
## 2        25 CUNDINAMARCA   25845     UNE HORTALIZAS   CEBOLLA CEBOLLA DE BULBO
## 3        25 CUNDINAMARCA    2543  MADRID HORTALIZAS ZANAHORIA        ZANAHORIA
## 4        25 CUNDINAMARCA   25151 CAQUEZA HORTALIZAS   CEBOLLA CEBOLLA DE BULBO
## 5        25 CUNDINAMARCA   25099  BOJACA HORTALIZAS ZANAHORIA        ZANAHORIA
## 6        25 CUNDINAMARCA   25754  SOACHA HORTALIZAS   LECHUGA          LECHUGA
##    ANO AREA_SEMBRADA AREA_COSECHADA PRODUCCION RENDIMIENTO           ESTADO
## 1 2006           371            330      10060       30.48 HORTALIZA FRESCA
## 2 2006           400            400       9200       23.00 HORTALIZA FRESCA
## 3 2006           290            280       8960       32.00 HORTALIZA FRESCA
## 4 2006           430            415       8300       20.00 HORTALIZA FRESCA
## 5 2006           205            205       6413       31.28 HORTALIZA FRESCA
## 6 2006           250            201       6030       30.00 HORTALIZA FRESCA
##        CICLO..        CICLO  TEMP MPIO_CCDGO
## 1 TRANSITORIO, TRANSITORIO, 25754      25754
## 2 TRANSITORIO, TRANSITORIO, 25845      25845
## 3 TRANSITORIO, TRANSITORIO,  2543       2543
## 4 TRANSITORIO, TRANSITORIO, 25151      25151
## 5 TRANSITORIO, TRANSITORIO, 25099      25099
## 6 TRANSITORIO, TRANSITORIO, 25754      25754

Ahora, la idea es filtrar por un año particular y elegir dos atributos importantes como lo son producción y rendimiento de papa

Este cultivo fue seleccionado ya que Cundinamarca es el departamento que mayormente aporta a la producción anual nacional (39%). Esto debido a que varias regiones del territorio poseen las caracterísiticas ideales para su producción: temperaturas de 12 a 14°C, humedad relativa del 75 al 80%, precipitaciones anules de 600 a 800 mm y alturas entre los 2.000 hasta los 3.500 m.s.m.

Actualmente la papa abarca aproximadamente el 27% del área sembrada del departamento

datos2 %>% filter(CULTIVO == "PAPA" & ANO ==2018)  -> datos3
head(datos3)
##   COD_DEPTO        DEPTO COD_MUN              MUN                 GRUPO
## 1        25 CUNDINAMARCA   25019            ALBAN TUBERCULOS Y PLATANOS
## 2        25 CUNDINAMARCA   25099           BOJACA TUBERCULOS Y PLATANOS
## 3        25 CUNDINAMARCA    2512          CABRERA TUBERCULOS Y PLATANOS
## 4        25 CUNDINAMARCA   25126           CAJICA TUBERCULOS Y PLATANOS
## 5        25 CUNDINAMARCA   25151          CAQUEZA TUBERCULOS Y PLATANOS
## 6        25 CUNDINAMARCA   25154 CARMEN DE CARUPA TUBERCULOS Y PLATANOS
##   SUBGRUPO CULTIVO  ANO AREA_SEMBRADA AREA_COSECHADA PRODUCCION RENDIMIENTO
## 1     PAPA    PAPA 2018             2              2         40       20.00
## 2     PAPA    PAPA 2018           100            100       1900       19.00
## 3     PAPA    PAPA 2018            85             85       1879       22.11
## 4     PAPA    PAPA 2018            10             10        300       30.00
## 5     PAPA    PAPA 2018            60             60       1200       20.00
## 6     PAPA    PAPA 2018            50             50        850       17.00
##             ESTADO      CICLO..        CICLO  TEMP MPIO_CCDGO
## 1 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25019      25019
## 2 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25099      25099
## 3 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,  2512       2512
## 4 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25126      25126
## 5 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25151      25151
## 6 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25154      25154
class(datos3)
## [1] "data.frame"
datos4 <- datos3 %>% dplyr::select(MUN, MPIO_CCDGO, ANO, PRODUCCION, RENDIMIENTO) 
datos4
##                 MUN MPIO_CCDGO  ANO PRODUCCION RENDIMIENTO
## 1             ALBAN      25019 2018         40       20.00
## 2            BOJACA      25099 2018       1900       19.00
## 3           CABRERA       2512 2018       1879       22.11
## 4            CAJICA      25126 2018        300       30.00
## 5           CAQUEZA      25151 2018       1200       20.00
## 6  CARMEN DE CARUPA      25154 2018        850       17.00
## 7              CHIA      25175 2018        125       25.00
## 8          CHIPAQUE      25178 2018        362       14.46
## 9           CHOACHI      25181 2018        560       14.00
## 10         CHOCONTA      25183 2018       2240       16.00
## 11            COGUA        252 2018       8604       19.64
## 12             COTA      25214 2018       1248       26.00
## 13         CUCUNUBA      25224 2018       1480       16.44
## 14         EL ROSAL       2526 2018       6300       18.00
## 15       FACATATIVA      25269 2018       7677       18.72
## 16            FOSCA      25281 2018       7680       24.00
## 17            FUNZA      25286 2018       3434       17.00
## 18          FUQUENE      25288 2018       1952       26.38
## 19       GACHANCIPA      25295 2018        127       21.23
## 20          GACHETA      25297 2018        108       18.00
## 21          GRANADA      25312 2018       1200       20.00
## 22         GUACHETA      25317 2018       5400       18.00
## 23           GUASCA      25322 2018       2401       34.30
## 24        GUATAVITA      25326 2018      11100       32.65
## 25            JUNIN      25372 2018       1564       25.64
## 26        LA CALERA      25377 2018      28500       30.00
## 27      LENGUAZAQUE      25407 2018       2880       18.00
## 28          MACHETA      25426 2018       7268       16.15
## 29           MADRID       2543 2018       9240       22.00
## 30            MANTA      25436 2018        200       20.00
## 31         MOSQUERA      25473 2018       5500       22.00
## 32          NEMOCON      25486 2018        540       18.00
## 33            PACHO      25513 2018       1120       16.00
## 34            PASCA      25535 2018      25000       25.00
## 35     SAN BERNARDO      25649 2018        630       18.00
## 36     SAN CAYETANO      25653 2018        600       12.00
## 37         SESQUILE      25736 2018       1000       20.00
## 38           SIBATE       2574 2018      22080       25.82
## 39         SIMIJACA      25745 2018       2700       18.00
## 40           SOACHA      25754 2018       8200       20.00
## 41             SOPO      25758 2018        600       20.00
## 42       SUBACHOQUE      25769 2018      11050       21.05
## 43           SUESCA      25772 2018      26370       31.02
## 44             SUSA      25779 2018       4000       22.22
## 45        SUTATAUSA      25781 2018       1960       20.00
## 46            TABIO      25785 2018       1840       23.00
## 47            TAUSA      25793 2018       1500       15.00
## 48            TENJO      25799 2018      10350       23.00
## 49        TOCANCIPA      25817 2018        180       18.00
## 50            UBALA      25839 2018         77       15.43
## 51           UBAQUE      25841 2018       3564       22.00
## 52            UBATE      25843 2018       8340       19.40
## 53              UNE      25845 2018      11250       25.00
## 54      VILLAPINZON      25873 2018     171752       28.00
## 55          ZIPACON      25898 2018      11640       38.80
## 56        ZIPAQUIRA      25899 2018       2160       18.00
datos4 %>% 
  gather("ANO", "PRODUCCION", "RENDIMIENTO" , key = variable, value = number)
##                  MUN MPIO_CCDGO    variable    number
## 1              ALBAN      25019         ANO   2018.00
## 2             BOJACA      25099         ANO   2018.00
## 3            CABRERA       2512         ANO   2018.00
## 4             CAJICA      25126         ANO   2018.00
## 5            CAQUEZA      25151         ANO   2018.00
## 6   CARMEN DE CARUPA      25154         ANO   2018.00
## 7               CHIA      25175         ANO   2018.00
## 8           CHIPAQUE      25178         ANO   2018.00
## 9            CHOACHI      25181         ANO   2018.00
## 10          CHOCONTA      25183         ANO   2018.00
## 11             COGUA        252         ANO   2018.00
## 12              COTA      25214         ANO   2018.00
## 13          CUCUNUBA      25224         ANO   2018.00
## 14          EL ROSAL       2526         ANO   2018.00
## 15        FACATATIVA      25269         ANO   2018.00
## 16             FOSCA      25281         ANO   2018.00
## 17             FUNZA      25286         ANO   2018.00
## 18           FUQUENE      25288         ANO   2018.00
## 19        GACHANCIPA      25295         ANO   2018.00
## 20           GACHETA      25297         ANO   2018.00
## 21           GRANADA      25312         ANO   2018.00
## 22          GUACHETA      25317         ANO   2018.00
## 23            GUASCA      25322         ANO   2018.00
## 24         GUATAVITA      25326         ANO   2018.00
## 25             JUNIN      25372         ANO   2018.00
## 26         LA CALERA      25377         ANO   2018.00
## 27       LENGUAZAQUE      25407         ANO   2018.00
## 28           MACHETA      25426         ANO   2018.00
## 29            MADRID       2543         ANO   2018.00
## 30             MANTA      25436         ANO   2018.00
## 31          MOSQUERA      25473         ANO   2018.00
## 32           NEMOCON      25486         ANO   2018.00
## 33             PACHO      25513         ANO   2018.00
## 34             PASCA      25535         ANO   2018.00
## 35      SAN BERNARDO      25649         ANO   2018.00
## 36      SAN CAYETANO      25653         ANO   2018.00
## 37          SESQUILE      25736         ANO   2018.00
## 38            SIBATE       2574         ANO   2018.00
## 39          SIMIJACA      25745         ANO   2018.00
## 40            SOACHA      25754         ANO   2018.00
## 41              SOPO      25758         ANO   2018.00
## 42        SUBACHOQUE      25769         ANO   2018.00
## 43            SUESCA      25772         ANO   2018.00
## 44              SUSA      25779         ANO   2018.00
## 45         SUTATAUSA      25781         ANO   2018.00
## 46             TABIO      25785         ANO   2018.00
## 47             TAUSA      25793         ANO   2018.00
## 48             TENJO      25799         ANO   2018.00
## 49         TOCANCIPA      25817         ANO   2018.00
## 50             UBALA      25839         ANO   2018.00
## 51            UBAQUE      25841         ANO   2018.00
## 52             UBATE      25843         ANO   2018.00
## 53               UNE      25845         ANO   2018.00
## 54       VILLAPINZON      25873         ANO   2018.00
## 55           ZIPACON      25898         ANO   2018.00
## 56         ZIPAQUIRA      25899         ANO   2018.00
## 57             ALBAN      25019  PRODUCCION     40.00
## 58            BOJACA      25099  PRODUCCION   1900.00
## 59           CABRERA       2512  PRODUCCION   1879.00
## 60            CAJICA      25126  PRODUCCION    300.00
## 61           CAQUEZA      25151  PRODUCCION   1200.00
## 62  CARMEN DE CARUPA      25154  PRODUCCION    850.00
## 63              CHIA      25175  PRODUCCION    125.00
## 64          CHIPAQUE      25178  PRODUCCION    362.00
## 65           CHOACHI      25181  PRODUCCION    560.00
## 66          CHOCONTA      25183  PRODUCCION   2240.00
## 67             COGUA        252  PRODUCCION   8604.00
## 68              COTA      25214  PRODUCCION   1248.00
## 69          CUCUNUBA      25224  PRODUCCION   1480.00
## 70          EL ROSAL       2526  PRODUCCION   6300.00
## 71        FACATATIVA      25269  PRODUCCION   7677.00
## 72             FOSCA      25281  PRODUCCION   7680.00
## 73             FUNZA      25286  PRODUCCION   3434.00
## 74           FUQUENE      25288  PRODUCCION   1952.00
## 75        GACHANCIPA      25295  PRODUCCION    127.00
## 76           GACHETA      25297  PRODUCCION    108.00
## 77           GRANADA      25312  PRODUCCION   1200.00
## 78          GUACHETA      25317  PRODUCCION   5400.00
## 79            GUASCA      25322  PRODUCCION   2401.00
## 80         GUATAVITA      25326  PRODUCCION  11100.00
## 81             JUNIN      25372  PRODUCCION   1564.00
## 82         LA CALERA      25377  PRODUCCION  28500.00
## 83       LENGUAZAQUE      25407  PRODUCCION   2880.00
## 84           MACHETA      25426  PRODUCCION   7268.00
## 85            MADRID       2543  PRODUCCION   9240.00
## 86             MANTA      25436  PRODUCCION    200.00
## 87          MOSQUERA      25473  PRODUCCION   5500.00
## 88           NEMOCON      25486  PRODUCCION    540.00
## 89             PACHO      25513  PRODUCCION   1120.00
## 90             PASCA      25535  PRODUCCION  25000.00
## 91      SAN BERNARDO      25649  PRODUCCION    630.00
## 92      SAN CAYETANO      25653  PRODUCCION    600.00
## 93          SESQUILE      25736  PRODUCCION   1000.00
## 94            SIBATE       2574  PRODUCCION  22080.00
## 95          SIMIJACA      25745  PRODUCCION   2700.00
## 96            SOACHA      25754  PRODUCCION   8200.00
## 97              SOPO      25758  PRODUCCION    600.00
## 98        SUBACHOQUE      25769  PRODUCCION  11050.00
## 99            SUESCA      25772  PRODUCCION  26370.00
## 100             SUSA      25779  PRODUCCION   4000.00
## 101        SUTATAUSA      25781  PRODUCCION   1960.00
## 102            TABIO      25785  PRODUCCION   1840.00
## 103            TAUSA      25793  PRODUCCION   1500.00
## 104            TENJO      25799  PRODUCCION  10350.00
## 105        TOCANCIPA      25817  PRODUCCION    180.00
## 106            UBALA      25839  PRODUCCION     77.00
## 107           UBAQUE      25841  PRODUCCION   3564.00
## 108            UBATE      25843  PRODUCCION   8340.00
## 109              UNE      25845  PRODUCCION  11250.00
## 110      VILLAPINZON      25873  PRODUCCION 171752.00
## 111          ZIPACON      25898  PRODUCCION  11640.00
## 112        ZIPAQUIRA      25899  PRODUCCION   2160.00
## 113            ALBAN      25019 RENDIMIENTO     20.00
## 114           BOJACA      25099 RENDIMIENTO     19.00
## 115          CABRERA       2512 RENDIMIENTO     22.11
## 116           CAJICA      25126 RENDIMIENTO     30.00
## 117          CAQUEZA      25151 RENDIMIENTO     20.00
## 118 CARMEN DE CARUPA      25154 RENDIMIENTO     17.00
## 119             CHIA      25175 RENDIMIENTO     25.00
## 120         CHIPAQUE      25178 RENDIMIENTO     14.46
## 121          CHOACHI      25181 RENDIMIENTO     14.00
## 122         CHOCONTA      25183 RENDIMIENTO     16.00
## 123            COGUA        252 RENDIMIENTO     19.64
## 124             COTA      25214 RENDIMIENTO     26.00
## 125         CUCUNUBA      25224 RENDIMIENTO     16.44
## 126         EL ROSAL       2526 RENDIMIENTO     18.00
## 127       FACATATIVA      25269 RENDIMIENTO     18.72
## 128            FOSCA      25281 RENDIMIENTO     24.00
## 129            FUNZA      25286 RENDIMIENTO     17.00
## 130          FUQUENE      25288 RENDIMIENTO     26.38
## 131       GACHANCIPA      25295 RENDIMIENTO     21.23
## 132          GACHETA      25297 RENDIMIENTO     18.00
## 133          GRANADA      25312 RENDIMIENTO     20.00
## 134         GUACHETA      25317 RENDIMIENTO     18.00
## 135           GUASCA      25322 RENDIMIENTO     34.30
## 136        GUATAVITA      25326 RENDIMIENTO     32.65
## 137            JUNIN      25372 RENDIMIENTO     25.64
## 138        LA CALERA      25377 RENDIMIENTO     30.00
## 139      LENGUAZAQUE      25407 RENDIMIENTO     18.00
## 140          MACHETA      25426 RENDIMIENTO     16.15
## 141           MADRID       2543 RENDIMIENTO     22.00
## 142            MANTA      25436 RENDIMIENTO     20.00
## 143         MOSQUERA      25473 RENDIMIENTO     22.00
## 144          NEMOCON      25486 RENDIMIENTO     18.00
## 145            PACHO      25513 RENDIMIENTO     16.00
## 146            PASCA      25535 RENDIMIENTO     25.00
## 147     SAN BERNARDO      25649 RENDIMIENTO     18.00
## 148     SAN CAYETANO      25653 RENDIMIENTO     12.00
## 149         SESQUILE      25736 RENDIMIENTO     20.00
## 150           SIBATE       2574 RENDIMIENTO     25.82
## 151         SIMIJACA      25745 RENDIMIENTO     18.00
## 152           SOACHA      25754 RENDIMIENTO     20.00
## 153             SOPO      25758 RENDIMIENTO     20.00
## 154       SUBACHOQUE      25769 RENDIMIENTO     21.05
## 155           SUESCA      25772 RENDIMIENTO     31.02
## 156             SUSA      25779 RENDIMIENTO     22.22
## 157        SUTATAUSA      25781 RENDIMIENTO     20.00
## 158            TABIO      25785 RENDIMIENTO     23.00
## 159            TAUSA      25793 RENDIMIENTO     15.00
## 160            TENJO      25799 RENDIMIENTO     23.00
## 161        TOCANCIPA      25817 RENDIMIENTO     18.00
## 162            UBALA      25839 RENDIMIENTO     15.43
## 163           UBAQUE      25841 RENDIMIENTO     22.00
## 164            UBATE      25843 RENDIMIENTO     19.40
## 165              UNE      25845 RENDIMIENTO     25.00
## 166      VILLAPINZON      25873 RENDIMIENTO     28.00
## 167          ZIPACON      25898 RENDIMIENTO     38.80
## 168        ZIPAQUIRA      25899 RENDIMIENTO     18.00
head(datos4)
##                MUN MPIO_CCDGO  ANO PRODUCCION RENDIMIENTO
## 1            ALBAN      25019 2018         40       20.00
## 2           BOJACA      25099 2018       1900       19.00
## 3          CABRERA       2512 2018       1879       22.11
## 4           CAJICA      25126 2018        300       30.00
## 5          CAQUEZA      25151 2018       1200       20.00
## 6 CARMEN DE CARUPA      25154 2018        850       17.00

Este cuadro de código permite convertir una tabla de atributos de formato largo a formato ancho.

datos4 %>% 
  group_by(MPIO_CCDGO) %>% 
  mutate(Visit = 1:n()) %>% 
  gather("ANO", "PRODUCCION", "RENDIMIENTO", key = variable, value = number) %>% 
  unite(combi, variable, Visit) %>%
  spread(combi, number) -> datos5
head(datos5)
## Warning: `...` is not empty.
## 
## We detected these problematic arguments:
## * `needs_dots`
## 
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?
## # A tibble: 6 x 5
## # Groups:   MPIO_CCDGO [6]
##   MUN              MPIO_CCDGO ANO_1 PRODUCCION_1 RENDIMIENTO_1
##   <chr>            <fct>      <dbl>        <dbl>         <dbl>
## 1 ALBAN            25019       2018           40          20  
## 2 BOJACA           25099       2018         1900          19  
## 3 CABRERA          2512        2018         1879          22.1
## 4 CAJICA           25126       2018          300          30  
## 5 CAQUEZA          25151       2018         1200          20  
## 6 CARMEN DE CARUPA 25154       2018          850          17
tail(datos5)
## Warning: `...` is not empty.
## 
## We detected these problematic arguments:
## * `needs_dots`
## 
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?
## # A tibble: 6 x 5
## # Groups:   MPIO_CCDGO [6]
##   MUN         MPIO_CCDGO ANO_1 PRODUCCION_1 RENDIMIENTO_1
##   <chr>       <fct>      <dbl>        <dbl>         <dbl>
## 1 UBAQUE      25841       2018         3564          22  
## 2 UBATE       25843       2018         8340          19.4
## 3 UNE         25845       2018        11250          25  
## 4 VILLAPINZON 25873       2018       171752          28  
## 5 ZIPACON     25898       2018        11640          38.8
## 6 ZIPAQUIRA   25899       2018         2160          18

Aquí se está realizando una copia de los datos originales en caso de que se realice algún cambio

cun_munic2 <- cun_munic
cun_munic_stat = left_join(cun_munic2, datos5, by="MPIO_CCDGO")
summary(cun_munic_stat)
##   DPTO_CCDGO         MPIO_CCDGO         MPIO_CNMBR         MPIO_CRSLC       
##  Length:116         Length:116         Length:116         Length:116        
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##                                                                             
##    MPIO_NAREA        MPIO_NANO     DPTO_CNMBR          Shape_Leng    
##  Min.   :  43.06   Min.   :2017   Length:116         Min.   :0.2928  
##  1st Qu.:  91.80   1st Qu.:2017   Class :character   1st Qu.:0.4988  
##  Median : 131.63   Median :2017   Mode  :character   Median :0.6205  
##  Mean   : 192.85   Mean   :2017                      Mean   :0.7064  
##  3rd Qu.: 214.78   3rd Qu.:2017                      3rd Qu.:0.8325  
##  Max.   :1196.75   Max.   :2017                      Max.   :1.9999  
##                                                                      
##    Shape_Area           MUN                ANO_1       PRODUCCION_1   
##  Min.   :0.003511   Length:116         Min.   :2018   Min.   :    40  
##  1st Qu.:0.007486   Class :character   1st Qu.:2018   1st Qu.:   615  
##  Median :0.010735   Mode  :character   Median :2018   Median :  1952  
##  Mean   :0.015721                      Mean   :2018   Mean   :  7916  
##  3rd Qu.:0.017503                      3rd Qu.:2018   3rd Qu.:  7472  
##  Max.   :0.097502                      Max.   :2018   Max.   :171752  
##                                        NA's   :65     NA's   :65      
##  RENDIMIENTO_1            geometry  
##  Min.   :12.00   MULTIPOLYGON :116  
##  1st Qu.:18.00   epsg:4326    :  0  
##  Median :20.00   +proj=long...:  0  
##  Mean   :21.31                      
##  3rd Qu.:24.50                      
##  Max.   :38.80                      
##  NA's   :65

5. Visualización gráfica

#install.packages("RColorBrewer")
library(RColorBrewer)
library(leaflet)

A partir de este código y gracias a las funciones de las librerías “RColorBrewer” y “leaflet” se visualiza un mapa de los municipios de Cundinamarca que tuvieron mayor producción de papa en el año 2018. La escala de color permite identificar fácilmente los municipios de mayor y menor producción.

bins <- c(0, 250, 500, 1000, 2000, 5000, 10000, 15000)
pal <- colorBin("magma", domain = cun_munic_stat$PRODUCCION_1, bins = bins)

  mapa <- leaflet(data = cun_munic_stat) %>%
  addTiles() %>%
  addPolygons(label = ~PRODUCCION_1,
              popup = ~MPIO_CNMBR,
              fillColor = ~pal(PRODUCCION_1),
              color = "#444444",
              weight = 1,
              smoothFactor = 0.5,
              opacity = 1.0,
              fillOpacity = 0.5,
              highlightOptions = highlightOptions(color = "white", weight = 2, bringToFront = TRUE)
              ) %>%
  addProviderTiles(providers$OpenStreetMap) %>%
  addLegend("bottomright", pal = pal, values = ~PRODUCCION_1,
    title = "Producción de Papa en Cundinamarca [Ton] (2018)",
    opacity = 1
  )
## Warning in pal(PRODUCCION_1): Some values were outside the color scale and will
## be treated as NA
mapa

Siguiendo los pasos anteriores se puede construir otro mapa referente a rendimiento en el cultivo papa

datos %>% 
  filter(ANO==2018 & GRUPO=="TUBERCULOS Y PLATANOS") %>% 
  group_by(CULTIVO, MUN) %>%
  summarize(max_rend = max(RENDIMIENTO, na.rm = TRUE)) %>%
    slice(which.max(max_rend)) -> max_rend2
## `summarise()` regrouping output by 'CULTIVO' (override with `.groups` argument)
max_rend2
## Warning: `...` is not empty.
## 
## We detected these problematic arguments:
## * `needs_dots`
## 
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?
## # A tibble: 6 x 3
## # Groups:   CULTIVO [6]
##   CULTIVO   MUN          max_rend
##   <chr>     <chr>           <dbl>
## 1 ACHIRA    MANTA             5  
## 2 ARRACACHA SAN CAYETANO     18  
## 3 ÑAME      MEDINA            5  
## 4 PAPA      ZIPACON          38.8
## 5 PLATANO   PARATEBUENO      20  
## 6 YUCA      PARATEBUENO      60
datos6<-datos
datos6$TEMP <-  as.character(datos6$COD_MUN)
datos6$MPIO_CCDGO<- as.factor(datos6$TEMP)
head(datos6)
##   COD_DEPTO        DEPTO COD_MUN     MUN      GRUPO  SUBGRUPO          CULTIVO
## 1        25 CUNDINAMARCA   25754  SOACHA HORTALIZAS      APIO             APIO
## 2        25 CUNDINAMARCA   25845     UNE HORTALIZAS   CEBOLLA CEBOLLA DE BULBO
## 3        25 CUNDINAMARCA    2543  MADRID HORTALIZAS ZANAHORIA        ZANAHORIA
## 4        25 CUNDINAMARCA   25151 CAQUEZA HORTALIZAS   CEBOLLA CEBOLLA DE BULBO
## 5        25 CUNDINAMARCA   25099  BOJACA HORTALIZAS ZANAHORIA        ZANAHORIA
## 6        25 CUNDINAMARCA   25754  SOACHA HORTALIZAS   LECHUGA          LECHUGA
##    ANO AREA_SEMBRADA AREA_COSECHADA PRODUCCION RENDIMIENTO           ESTADO
## 1 2006           371            330      10060       30.48 HORTALIZA FRESCA
## 2 2006           400            400       9200       23.00 HORTALIZA FRESCA
## 3 2006           290            280       8960       32.00 HORTALIZA FRESCA
## 4 2006           430            415       8300       20.00 HORTALIZA FRESCA
## 5 2006           205            205       6413       31.28 HORTALIZA FRESCA
## 6 2006           250            201       6030       30.00 HORTALIZA FRESCA
##        CICLO..        CICLO  TEMP MPIO_CCDGO
## 1 TRANSITORIO, TRANSITORIO, 25754      25754
## 2 TRANSITORIO, TRANSITORIO, 25845      25845
## 3 TRANSITORIO, TRANSITORIO,  2543       2543
## 4 TRANSITORIO, TRANSITORIO, 25151      25151
## 5 TRANSITORIO, TRANSITORIO, 25099      25099
## 6 TRANSITORIO, TRANSITORIO, 25754      25754
datos6 <- datos2 %>% filter(CULTIVO== "PAPA", ANO==2018)
datos6
##    COD_DEPTO        DEPTO COD_MUN              MUN                 GRUPO
## 1         25 CUNDINAMARCA   25019            ALBAN TUBERCULOS Y PLATANOS
## 2         25 CUNDINAMARCA   25099           BOJACA TUBERCULOS Y PLATANOS
## 3         25 CUNDINAMARCA    2512          CABRERA TUBERCULOS Y PLATANOS
## 4         25 CUNDINAMARCA   25126           CAJICA TUBERCULOS Y PLATANOS
## 5         25 CUNDINAMARCA   25151          CAQUEZA TUBERCULOS Y PLATANOS
## 6         25 CUNDINAMARCA   25154 CARMEN DE CARUPA TUBERCULOS Y PLATANOS
## 7         25 CUNDINAMARCA   25175             CHIA TUBERCULOS Y PLATANOS
## 8         25 CUNDINAMARCA   25178         CHIPAQUE TUBERCULOS Y PLATANOS
## 9         25 CUNDINAMARCA   25181          CHOACHI TUBERCULOS Y PLATANOS
## 10        25 CUNDINAMARCA   25183         CHOCONTA TUBERCULOS Y PLATANOS
## 11        25 CUNDINAMARCA     252            COGUA TUBERCULOS Y PLATANOS
## 12        25 CUNDINAMARCA   25214             COTA TUBERCULOS Y PLATANOS
## 13        25 CUNDINAMARCA   25224         CUCUNUBA TUBERCULOS Y PLATANOS
## 14        25 CUNDINAMARCA    2526         EL ROSAL TUBERCULOS Y PLATANOS
## 15        25 CUNDINAMARCA   25269       FACATATIVA TUBERCULOS Y PLATANOS
## 16        25 CUNDINAMARCA   25281            FOSCA TUBERCULOS Y PLATANOS
## 17        25 CUNDINAMARCA   25286            FUNZA TUBERCULOS Y PLATANOS
## 18        25 CUNDINAMARCA   25288          FUQUENE TUBERCULOS Y PLATANOS
## 19        25 CUNDINAMARCA   25295       GACHANCIPA TUBERCULOS Y PLATANOS
## 20        25 CUNDINAMARCA   25297          GACHETA TUBERCULOS Y PLATANOS
## 21        25 CUNDINAMARCA   25312          GRANADA TUBERCULOS Y PLATANOS
## 22        25 CUNDINAMARCA   25317         GUACHETA TUBERCULOS Y PLATANOS
## 23        25 CUNDINAMARCA   25322           GUASCA TUBERCULOS Y PLATANOS
## 24        25 CUNDINAMARCA   25326        GUATAVITA TUBERCULOS Y PLATANOS
## 25        25 CUNDINAMARCA   25372            JUNIN TUBERCULOS Y PLATANOS
## 26        25 CUNDINAMARCA   25377        LA CALERA TUBERCULOS Y PLATANOS
## 27        25 CUNDINAMARCA   25407      LENGUAZAQUE TUBERCULOS Y PLATANOS
## 28        25 CUNDINAMARCA   25426          MACHETA TUBERCULOS Y PLATANOS
## 29        25 CUNDINAMARCA    2543           MADRID TUBERCULOS Y PLATANOS
## 30        25 CUNDINAMARCA   25436            MANTA TUBERCULOS Y PLATANOS
## 31        25 CUNDINAMARCA   25473         MOSQUERA TUBERCULOS Y PLATANOS
## 32        25 CUNDINAMARCA   25486          NEMOCON TUBERCULOS Y PLATANOS
## 33        25 CUNDINAMARCA   25513            PACHO TUBERCULOS Y PLATANOS
## 34        25 CUNDINAMARCA   25535            PASCA TUBERCULOS Y PLATANOS
## 35        25 CUNDINAMARCA   25649     SAN BERNARDO TUBERCULOS Y PLATANOS
## 36        25 CUNDINAMARCA   25653     SAN CAYETANO TUBERCULOS Y PLATANOS
## 37        25 CUNDINAMARCA   25736         SESQUILE TUBERCULOS Y PLATANOS
## 38        25 CUNDINAMARCA    2574           SIBATE TUBERCULOS Y PLATANOS
## 39        25 CUNDINAMARCA   25745         SIMIJACA TUBERCULOS Y PLATANOS
## 40        25 CUNDINAMARCA   25754           SOACHA TUBERCULOS Y PLATANOS
## 41        25 CUNDINAMARCA   25758             SOPO TUBERCULOS Y PLATANOS
## 42        25 CUNDINAMARCA   25769       SUBACHOQUE TUBERCULOS Y PLATANOS
## 43        25 CUNDINAMARCA   25772           SUESCA TUBERCULOS Y PLATANOS
## 44        25 CUNDINAMARCA   25779             SUSA TUBERCULOS Y PLATANOS
## 45        25 CUNDINAMARCA   25781        SUTATAUSA TUBERCULOS Y PLATANOS
## 46        25 CUNDINAMARCA   25785            TABIO TUBERCULOS Y PLATANOS
## 47        25 CUNDINAMARCA   25793            TAUSA TUBERCULOS Y PLATANOS
## 48        25 CUNDINAMARCA   25799            TENJO TUBERCULOS Y PLATANOS
## 49        25 CUNDINAMARCA   25817        TOCANCIPA TUBERCULOS Y PLATANOS
## 50        25 CUNDINAMARCA   25839            UBALA TUBERCULOS Y PLATANOS
## 51        25 CUNDINAMARCA   25841           UBAQUE TUBERCULOS Y PLATANOS
## 52        25 CUNDINAMARCA   25843            UBATE TUBERCULOS Y PLATANOS
## 53        25 CUNDINAMARCA   25845              UNE TUBERCULOS Y PLATANOS
## 54        25 CUNDINAMARCA   25873      VILLAPINZON TUBERCULOS Y PLATANOS
## 55        25 CUNDINAMARCA   25898          ZIPACON TUBERCULOS Y PLATANOS
## 56        25 CUNDINAMARCA   25899        ZIPAQUIRA TUBERCULOS Y PLATANOS
##    SUBGRUPO CULTIVO  ANO AREA_SEMBRADA AREA_COSECHADA PRODUCCION RENDIMIENTO
## 1      PAPA    PAPA 2018             2           2.00         40       20.00
## 2      PAPA    PAPA 2018           100         100.00       1900       19.00
## 3      PAPA    PAPA 2018            85          85.00       1879       22.11
## 4      PAPA    PAPA 2018            10          10.00        300       30.00
## 5      PAPA    PAPA 2018            60          60.00       1200       20.00
## 6      PAPA    PAPA 2018            50          50.00        850       17.00
## 7      PAPA    PAPA 2018             5           5.00        125       25.00
## 8      PAPA    PAPA 2018            25          25.00        362       14.46
## 9      PAPA    PAPA 2018            40          40.00        560       14.00
## 10     PAPA    PAPA 2018           140         140.00       2240       16.00
## 11     PAPA    PAPA 2018           438         438.00       8604       19.64
## 12     PAPA    PAPA 2018            48          48.00       1248       26.00
## 13     PAPA    PAPA 2018            90          90.00       1480       16.44
## 14     PAPA    PAPA 2018           350         350.00       6300       18.00
## 15     PAPA    PAPA 2018           410         410.00       7677       18.72
## 16     PAPA    PAPA 2018           320         320.00       7680       24.00
## 17     PAPA    PAPA 2018           202         202.00       3434       17.00
## 18     PAPA    PAPA 2018            74          74.00       1952       26.38
## 19     PAPA    PAPA 2018             6           6.00        127       21.23
## 20     PAPA    PAPA 2018             6           6.00        108       18.00
## 21     PAPA    PAPA 2018            60          60.00       1200       20.00
## 22     PAPA    PAPA 2018           300         300.00       5400       18.00
## 23     PAPA    PAPA 2018            70          70.00       2401       34.30
## 24     PAPA    PAPA 2018           340         340.00      11100       32.65
## 25     PAPA    PAPA 2018            61          61.00       1564       25.64
## 26     PAPA    PAPA 2018           950         950.00      28500       30.00
## 27     PAPA    PAPA 2018           160         160.00       2880       18.00
## 28     PAPA    PAPA 2018           450         450.00       7268       16.15
## 29     PAPA    PAPA 2018           420         420.00       9240       22.00
## 30     PAPA    PAPA 2018            10          10.00        200       20.00
## 31     PAPA    PAPA 2018           250         250.00       5500       22.00
## 32     PAPA    PAPA 2018            30          30.00        540       18.00
## 33     PAPA    PAPA 2018            70          70.00       1120       16.00
## 34     PAPA    PAPA 2018             1           1.00      25000       25.00
## 35     PAPA    PAPA 2018            35          35.00        630       18.00
## 36     PAPA    PAPA 2018            50          50.00        600       12.00
## 37     PAPA    PAPA 2018            50          50.00       1000       20.00
## 38     PAPA    PAPA 2018           855         855.00      22080       25.82
## 39     PAPA    PAPA 2018           150         150.00       2700       18.00
## 40     PAPA    PAPA 2018           410         410.00       8200       20.00
## 41     PAPA    PAPA 2018            30          30.00        600       20.00
## 42     PAPA    PAPA 2018           525         525.00      11050       21.05
## 43     PAPA    PAPA 2018           850         850.00      26370       31.02
## 44     PAPA    PAPA 2018           180         180.00       4000       22.22
## 45     PAPA    PAPA 2018            98          98.00       1960       20.00
## 46     PAPA    PAPA 2018            80          80.00       1840       23.00
## 47     PAPA    PAPA 2018           100         100.00       1500       15.00
## 48     PAPA    PAPA 2018           450         450.00      10350       23.00
## 49     PAPA    PAPA 2018            10          10.00        180       18.00
## 50     PAPA    PAPA 2018             5           5.00         77       15.43
## 51     PAPA    PAPA 2018           162         162.00       3564       22.00
## 52     PAPA    PAPA 2018           430         430.00       8340       19.40
## 53     PAPA    PAPA 2018           450         450.00      11250       25.00
## 54     PAPA    PAPA 2018          6134           6.13     171752       28.00
## 55     PAPA    PAPA 2018           300         300.00      11640       38.80
## 56     PAPA    PAPA 2018           120         120.00       2160       18.00
##              ESTADO      CICLO..        CICLO  TEMP MPIO_CCDGO
## 1  TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25019      25019
## 2  TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25099      25099
## 3  TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,  2512       2512
## 4  TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25126      25126
## 5  TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25151      25151
## 6  TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25154      25154
## 7  TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25175      25175
## 8  TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25178      25178
## 9  TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25181      25181
## 10 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25183      25183
## 11 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,   252        252
## 12 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25214      25214
## 13 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25224      25224
## 14 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,  2526       2526
## 15 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25269      25269
## 16 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25281      25281
## 17 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25286      25286
## 18 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25288      25288
## 19 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25295      25295
## 20 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25297      25297
## 21 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25312      25312
## 22 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25317      25317
## 23 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25322      25322
## 24 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25326      25326
## 25 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25372      25372
## 26 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25377      25377
## 27 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25407      25407
## 28 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25426      25426
## 29 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,  2543       2543
## 30 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25436      25436
## 31 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25473      25473
## 32 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25486      25486
## 33 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25513      25513
## 34 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25535      25535
## 35 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25649      25649
## 36 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25653      25653
## 37 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25736      25736
## 38 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO,  2574       2574
## 39 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25745      25745
## 40 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25754      25754
## 41 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25758      25758
## 42 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25769      25769
## 43 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25772      25772
## 44 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25779      25779
## 45 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25781      25781
## 46 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25785      25785
## 47 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25793      25793
## 48 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25799      25799
## 49 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25817      25817
## 50 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25839      25839
## 51 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25841      25841
## 52 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25843      25843
## 53 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25845      25845
## 54 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25873      25873
## 55 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25898      25898
## 56 TUBERCULO FRESCO TRANSITORIO, TRANSITORIO, 25899      25899
datos7 <- datos6 %>% dplyr::select(MUN, MPIO_CCDGO, ANO, PRODUCCION, RENDIMIENTO)
datos7
##                 MUN MPIO_CCDGO  ANO PRODUCCION RENDIMIENTO
## 1             ALBAN      25019 2018         40       20.00
## 2            BOJACA      25099 2018       1900       19.00
## 3           CABRERA       2512 2018       1879       22.11
## 4            CAJICA      25126 2018        300       30.00
## 5           CAQUEZA      25151 2018       1200       20.00
## 6  CARMEN DE CARUPA      25154 2018        850       17.00
## 7              CHIA      25175 2018        125       25.00
## 8          CHIPAQUE      25178 2018        362       14.46
## 9           CHOACHI      25181 2018        560       14.00
## 10         CHOCONTA      25183 2018       2240       16.00
## 11            COGUA        252 2018       8604       19.64
## 12             COTA      25214 2018       1248       26.00
## 13         CUCUNUBA      25224 2018       1480       16.44
## 14         EL ROSAL       2526 2018       6300       18.00
## 15       FACATATIVA      25269 2018       7677       18.72
## 16            FOSCA      25281 2018       7680       24.00
## 17            FUNZA      25286 2018       3434       17.00
## 18          FUQUENE      25288 2018       1952       26.38
## 19       GACHANCIPA      25295 2018        127       21.23
## 20          GACHETA      25297 2018        108       18.00
## 21          GRANADA      25312 2018       1200       20.00
## 22         GUACHETA      25317 2018       5400       18.00
## 23           GUASCA      25322 2018       2401       34.30
## 24        GUATAVITA      25326 2018      11100       32.65
## 25            JUNIN      25372 2018       1564       25.64
## 26        LA CALERA      25377 2018      28500       30.00
## 27      LENGUAZAQUE      25407 2018       2880       18.00
## 28          MACHETA      25426 2018       7268       16.15
## 29           MADRID       2543 2018       9240       22.00
## 30            MANTA      25436 2018        200       20.00
## 31         MOSQUERA      25473 2018       5500       22.00
## 32          NEMOCON      25486 2018        540       18.00
## 33            PACHO      25513 2018       1120       16.00
## 34            PASCA      25535 2018      25000       25.00
## 35     SAN BERNARDO      25649 2018        630       18.00
## 36     SAN CAYETANO      25653 2018        600       12.00
## 37         SESQUILE      25736 2018       1000       20.00
## 38           SIBATE       2574 2018      22080       25.82
## 39         SIMIJACA      25745 2018       2700       18.00
## 40           SOACHA      25754 2018       8200       20.00
## 41             SOPO      25758 2018        600       20.00
## 42       SUBACHOQUE      25769 2018      11050       21.05
## 43           SUESCA      25772 2018      26370       31.02
## 44             SUSA      25779 2018       4000       22.22
## 45        SUTATAUSA      25781 2018       1960       20.00
## 46            TABIO      25785 2018       1840       23.00
## 47            TAUSA      25793 2018       1500       15.00
## 48            TENJO      25799 2018      10350       23.00
## 49        TOCANCIPA      25817 2018        180       18.00
## 50            UBALA      25839 2018         77       15.43
## 51           UBAQUE      25841 2018       3564       22.00
## 52            UBATE      25843 2018       8340       19.40
## 53              UNE      25845 2018      11250       25.00
## 54      VILLAPINZON      25873 2018     171752       28.00
## 55          ZIPACON      25898 2018      11640       38.80
## 56        ZIPAQUIRA      25899 2018       2160       18.00
datos7 %>% 
  gather("ANO", "PRODUCCION", "RENDIMIENTO" , key = variable, value = number)
##                  MUN MPIO_CCDGO    variable    number
## 1              ALBAN      25019         ANO   2018.00
## 2             BOJACA      25099         ANO   2018.00
## 3            CABRERA       2512         ANO   2018.00
## 4             CAJICA      25126         ANO   2018.00
## 5            CAQUEZA      25151         ANO   2018.00
## 6   CARMEN DE CARUPA      25154         ANO   2018.00
## 7               CHIA      25175         ANO   2018.00
## 8           CHIPAQUE      25178         ANO   2018.00
## 9            CHOACHI      25181         ANO   2018.00
## 10          CHOCONTA      25183         ANO   2018.00
## 11             COGUA        252         ANO   2018.00
## 12              COTA      25214         ANO   2018.00
## 13          CUCUNUBA      25224         ANO   2018.00
## 14          EL ROSAL       2526         ANO   2018.00
## 15        FACATATIVA      25269         ANO   2018.00
## 16             FOSCA      25281         ANO   2018.00
## 17             FUNZA      25286         ANO   2018.00
## 18           FUQUENE      25288         ANO   2018.00
## 19        GACHANCIPA      25295         ANO   2018.00
## 20           GACHETA      25297         ANO   2018.00
## 21           GRANADA      25312         ANO   2018.00
## 22          GUACHETA      25317         ANO   2018.00
## 23            GUASCA      25322         ANO   2018.00
## 24         GUATAVITA      25326         ANO   2018.00
## 25             JUNIN      25372         ANO   2018.00
## 26         LA CALERA      25377         ANO   2018.00
## 27       LENGUAZAQUE      25407         ANO   2018.00
## 28           MACHETA      25426         ANO   2018.00
## 29            MADRID       2543         ANO   2018.00
## 30             MANTA      25436         ANO   2018.00
## 31          MOSQUERA      25473         ANO   2018.00
## 32           NEMOCON      25486         ANO   2018.00
## 33             PACHO      25513         ANO   2018.00
## 34             PASCA      25535         ANO   2018.00
## 35      SAN BERNARDO      25649         ANO   2018.00
## 36      SAN CAYETANO      25653         ANO   2018.00
## 37          SESQUILE      25736         ANO   2018.00
## 38            SIBATE       2574         ANO   2018.00
## 39          SIMIJACA      25745         ANO   2018.00
## 40            SOACHA      25754         ANO   2018.00
## 41              SOPO      25758         ANO   2018.00
## 42        SUBACHOQUE      25769         ANO   2018.00
## 43            SUESCA      25772         ANO   2018.00
## 44              SUSA      25779         ANO   2018.00
## 45         SUTATAUSA      25781         ANO   2018.00
## 46             TABIO      25785         ANO   2018.00
## 47             TAUSA      25793         ANO   2018.00
## 48             TENJO      25799         ANO   2018.00
## 49         TOCANCIPA      25817         ANO   2018.00
## 50             UBALA      25839         ANO   2018.00
## 51            UBAQUE      25841         ANO   2018.00
## 52             UBATE      25843         ANO   2018.00
## 53               UNE      25845         ANO   2018.00
## 54       VILLAPINZON      25873         ANO   2018.00
## 55           ZIPACON      25898         ANO   2018.00
## 56         ZIPAQUIRA      25899         ANO   2018.00
## 57             ALBAN      25019  PRODUCCION     40.00
## 58            BOJACA      25099  PRODUCCION   1900.00
## 59           CABRERA       2512  PRODUCCION   1879.00
## 60            CAJICA      25126  PRODUCCION    300.00
## 61           CAQUEZA      25151  PRODUCCION   1200.00
## 62  CARMEN DE CARUPA      25154  PRODUCCION    850.00
## 63              CHIA      25175  PRODUCCION    125.00
## 64          CHIPAQUE      25178  PRODUCCION    362.00
## 65           CHOACHI      25181  PRODUCCION    560.00
## 66          CHOCONTA      25183  PRODUCCION   2240.00
## 67             COGUA        252  PRODUCCION   8604.00
## 68              COTA      25214  PRODUCCION   1248.00
## 69          CUCUNUBA      25224  PRODUCCION   1480.00
## 70          EL ROSAL       2526  PRODUCCION   6300.00
## 71        FACATATIVA      25269  PRODUCCION   7677.00
## 72             FOSCA      25281  PRODUCCION   7680.00
## 73             FUNZA      25286  PRODUCCION   3434.00
## 74           FUQUENE      25288  PRODUCCION   1952.00
## 75        GACHANCIPA      25295  PRODUCCION    127.00
## 76           GACHETA      25297  PRODUCCION    108.00
## 77           GRANADA      25312  PRODUCCION   1200.00
## 78          GUACHETA      25317  PRODUCCION   5400.00
## 79            GUASCA      25322  PRODUCCION   2401.00
## 80         GUATAVITA      25326  PRODUCCION  11100.00
## 81             JUNIN      25372  PRODUCCION   1564.00
## 82         LA CALERA      25377  PRODUCCION  28500.00
## 83       LENGUAZAQUE      25407  PRODUCCION   2880.00
## 84           MACHETA      25426  PRODUCCION   7268.00
## 85            MADRID       2543  PRODUCCION   9240.00
## 86             MANTA      25436  PRODUCCION    200.00
## 87          MOSQUERA      25473  PRODUCCION   5500.00
## 88           NEMOCON      25486  PRODUCCION    540.00
## 89             PACHO      25513  PRODUCCION   1120.00
## 90             PASCA      25535  PRODUCCION  25000.00
## 91      SAN BERNARDO      25649  PRODUCCION    630.00
## 92      SAN CAYETANO      25653  PRODUCCION    600.00
## 93          SESQUILE      25736  PRODUCCION   1000.00
## 94            SIBATE       2574  PRODUCCION  22080.00
## 95          SIMIJACA      25745  PRODUCCION   2700.00
## 96            SOACHA      25754  PRODUCCION   8200.00
## 97              SOPO      25758  PRODUCCION    600.00
## 98        SUBACHOQUE      25769  PRODUCCION  11050.00
## 99            SUESCA      25772  PRODUCCION  26370.00
## 100             SUSA      25779  PRODUCCION   4000.00
## 101        SUTATAUSA      25781  PRODUCCION   1960.00
## 102            TABIO      25785  PRODUCCION   1840.00
## 103            TAUSA      25793  PRODUCCION   1500.00
## 104            TENJO      25799  PRODUCCION  10350.00
## 105        TOCANCIPA      25817  PRODUCCION    180.00
## 106            UBALA      25839  PRODUCCION     77.00
## 107           UBAQUE      25841  PRODUCCION   3564.00
## 108            UBATE      25843  PRODUCCION   8340.00
## 109              UNE      25845  PRODUCCION  11250.00
## 110      VILLAPINZON      25873  PRODUCCION 171752.00
## 111          ZIPACON      25898  PRODUCCION  11640.00
## 112        ZIPAQUIRA      25899  PRODUCCION   2160.00
## 113            ALBAN      25019 RENDIMIENTO     20.00
## 114           BOJACA      25099 RENDIMIENTO     19.00
## 115          CABRERA       2512 RENDIMIENTO     22.11
## 116           CAJICA      25126 RENDIMIENTO     30.00
## 117          CAQUEZA      25151 RENDIMIENTO     20.00
## 118 CARMEN DE CARUPA      25154 RENDIMIENTO     17.00
## 119             CHIA      25175 RENDIMIENTO     25.00
## 120         CHIPAQUE      25178 RENDIMIENTO     14.46
## 121          CHOACHI      25181 RENDIMIENTO     14.00
## 122         CHOCONTA      25183 RENDIMIENTO     16.00
## 123            COGUA        252 RENDIMIENTO     19.64
## 124             COTA      25214 RENDIMIENTO     26.00
## 125         CUCUNUBA      25224 RENDIMIENTO     16.44
## 126         EL ROSAL       2526 RENDIMIENTO     18.00
## 127       FACATATIVA      25269 RENDIMIENTO     18.72
## 128            FOSCA      25281 RENDIMIENTO     24.00
## 129            FUNZA      25286 RENDIMIENTO     17.00
## 130          FUQUENE      25288 RENDIMIENTO     26.38
## 131       GACHANCIPA      25295 RENDIMIENTO     21.23
## 132          GACHETA      25297 RENDIMIENTO     18.00
## 133          GRANADA      25312 RENDIMIENTO     20.00
## 134         GUACHETA      25317 RENDIMIENTO     18.00
## 135           GUASCA      25322 RENDIMIENTO     34.30
## 136        GUATAVITA      25326 RENDIMIENTO     32.65
## 137            JUNIN      25372 RENDIMIENTO     25.64
## 138        LA CALERA      25377 RENDIMIENTO     30.00
## 139      LENGUAZAQUE      25407 RENDIMIENTO     18.00
## 140          MACHETA      25426 RENDIMIENTO     16.15
## 141           MADRID       2543 RENDIMIENTO     22.00
## 142            MANTA      25436 RENDIMIENTO     20.00
## 143         MOSQUERA      25473 RENDIMIENTO     22.00
## 144          NEMOCON      25486 RENDIMIENTO     18.00
## 145            PACHO      25513 RENDIMIENTO     16.00
## 146            PASCA      25535 RENDIMIENTO     25.00
## 147     SAN BERNARDO      25649 RENDIMIENTO     18.00
## 148     SAN CAYETANO      25653 RENDIMIENTO     12.00
## 149         SESQUILE      25736 RENDIMIENTO     20.00
## 150           SIBATE       2574 RENDIMIENTO     25.82
## 151         SIMIJACA      25745 RENDIMIENTO     18.00
## 152           SOACHA      25754 RENDIMIENTO     20.00
## 153             SOPO      25758 RENDIMIENTO     20.00
## 154       SUBACHOQUE      25769 RENDIMIENTO     21.05
## 155           SUESCA      25772 RENDIMIENTO     31.02
## 156             SUSA      25779 RENDIMIENTO     22.22
## 157        SUTATAUSA      25781 RENDIMIENTO     20.00
## 158            TABIO      25785 RENDIMIENTO     23.00
## 159            TAUSA      25793 RENDIMIENTO     15.00
## 160            TENJO      25799 RENDIMIENTO     23.00
## 161        TOCANCIPA      25817 RENDIMIENTO     18.00
## 162            UBALA      25839 RENDIMIENTO     15.43
## 163           UBAQUE      25841 RENDIMIENTO     22.00
## 164            UBATE      25843 RENDIMIENTO     19.40
## 165              UNE      25845 RENDIMIENTO     25.00
## 166      VILLAPINZON      25873 RENDIMIENTO     28.00
## 167          ZIPACON      25898 RENDIMIENTO     38.80
## 168        ZIPAQUIRA      25899 RENDIMIENTO     18.00
datos7 %>% 
  group_by(MPIO_CCDGO) %>% 
  mutate(Visit = 1:n()) %>% 
  gather("ANO", "PRODUCCION", "RENDIMIENTO", key = variable, value = number) %>% 
  unite(combi, variable, Visit) %>%
  spread(combi, number) -> datos8
head(datos8)
## Warning: `...` is not empty.
## 
## We detected these problematic arguments:
## * `needs_dots`
## 
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?
## # A tibble: 6 x 5
## # Groups:   MPIO_CCDGO [6]
##   MUN              MPIO_CCDGO ANO_1 PRODUCCION_1 RENDIMIENTO_1
##   <chr>            <fct>      <dbl>        <dbl>         <dbl>
## 1 ALBAN            25019       2018           40          20  
## 2 BOJACA           25099       2018         1900          19  
## 3 CABRERA          2512        2018         1879          22.1
## 4 CAJICA           25126       2018          300          30  
## 5 CAQUEZA          25151       2018         1200          20  
## 6 CARMEN DE CARUPA 25154       2018          850          17
tail(datos8)
## Warning: `...` is not empty.
## 
## We detected these problematic arguments:
## * `needs_dots`
## 
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?
## # A tibble: 6 x 5
## # Groups:   MPIO_CCDGO [6]
##   MUN         MPIO_CCDGO ANO_1 PRODUCCION_1 RENDIMIENTO_1
##   <chr>       <fct>      <dbl>        <dbl>         <dbl>
## 1 UBAQUE      25841       2018         3564          22  
## 2 UBATE       25843       2018         8340          19.4
## 3 UNE         25845       2018        11250          25  
## 4 VILLAPINZON 25873       2018       171752          28  
## 5 ZIPACON     25898       2018        11640          38.8
## 6 ZIPAQUIRA   25899       2018         2160          18
cun_munic3 <- cun_munic
cun_munic_stat3 = left_join(cun_munic3, datos8, by="MPIO_CCDGO")
summary(cun_munic_stat3)
##   DPTO_CCDGO         MPIO_CCDGO         MPIO_CNMBR         MPIO_CRSLC       
##  Length:116         Length:116         Length:116         Length:116        
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##                                                                             
##    MPIO_NAREA        MPIO_NANO     DPTO_CNMBR          Shape_Leng    
##  Min.   :  43.06   Min.   :2017   Length:116         Min.   :0.2928  
##  1st Qu.:  91.80   1st Qu.:2017   Class :character   1st Qu.:0.4988  
##  Median : 131.63   Median :2017   Mode  :character   Median :0.6205  
##  Mean   : 192.85   Mean   :2017                      Mean   :0.7064  
##  3rd Qu.: 214.78   3rd Qu.:2017                      3rd Qu.:0.8325  
##  Max.   :1196.75   Max.   :2017                      Max.   :1.9999  
##                                                                      
##    Shape_Area           MUN                ANO_1       PRODUCCION_1   
##  Min.   :0.003511   Length:116         Min.   :2018   Min.   :    40  
##  1st Qu.:0.007486   Class :character   1st Qu.:2018   1st Qu.:   615  
##  Median :0.010735   Mode  :character   Median :2018   Median :  1952  
##  Mean   :0.015721                      Mean   :2018   Mean   :  7916  
##  3rd Qu.:0.017503                      3rd Qu.:2018   3rd Qu.:  7472  
##  Max.   :0.097502                      Max.   :2018   Max.   :171752  
##                                        NA's   :65     NA's   :65      
##  RENDIMIENTO_1            geometry  
##  Min.   :12.00   MULTIPOLYGON :116  
##  1st Qu.:18.00   epsg:4326    :  0  
##  Median :20.00   +proj=long...:  0  
##  Mean   :21.31                      
##  3rd Qu.:24.50                      
##  Max.   :38.80                      
##  NA's   :65
bins <- c(10, 15, 20, 25, 30, 35)
pal <- colorBin("Dark2", domain = cun_munic_stat3$RENDIMIENTO_1, bins = bins)

  mapa2 <- leaflet(data = cun_munic_stat3) %>%
  addTiles() %>%
  addPolygons(label = ~RENDIMIENTO_1,
              popup = ~MPIO_CNMBR,
              fillColor = ~pal(RENDIMIENTO_1),
              color = "#444444",
              weight = 1,
              smoothFactor = 0.5,
              opacity = 1.0,
              fillOpacity = 0.5,
              highlightOptions = highlightOptions(color = "white", weight = 2, bringToFront = TRUE)
              ) %>%
  addProviderTiles(providers$OpenStreetMap) %>%
  addLegend("bottomright", pal = pal, values = ~RENDIMIENTO_1,
    title = "Rendimiento de Papa en Cundinamarca [Ton/ha] (2018)",
    opacity = 1
  )
## Warning in pal(RENDIMIENTO_1): Some values were outside the color scale and will
## be treated as NA
mapa2

Los municipios que presentan el mayor rendimiento en 2018 (coloreados de verde claro), corresponden en orden descendente a Guasca (34.3 ton/ha), Guatavita (32.65 ton/ha), Suesca (31.02 ton/ha), La Calera (30 ton/ha) y Cajicá (30 ton/ha), con rendimientos entre 30 y 35 ton/ha.

Al contrastar con el boletín de evaluaciones agropecuarias municipales del año 2017 (Agronet) se puede decir que hay una mejoría general en los rendimientos ya que para dicho año los valores fueron inferiores a 30 ton/ha.

sessionInfo()
## R version 4.0.2 (2020-06-22)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 8.1 x64 (build 9600)
## 
## Matrix products: default
## 
## locale:
## [1] LC_COLLATE=Spanish_Colombia.1252  LC_CTYPE=Spanish_Colombia.1252   
## [3] LC_MONETARY=Spanish_Colombia.1252 LC_NUMERIC=C                     
## [5] LC_TIME=Spanish_Colombia.1252    
## 
## attached base packages:
## [1] stats     graphics  grDevices utils     datasets  methods   base     
## 
## other attached packages:
##  [1] leaflet_2.0.3       RColorBrewer_1.1-2  cowplot_1.1.0      
##  [4] ggrepel_0.8.2       GSODR_2.1.2         rnaturalearth_0.1.0
##  [7] viridis_0.5.1       viridisLite_0.3.0   sf_0.9-6           
## [10] maptools_1.0-1      rgeos_0.5-5         sp_1.4-2           
## [13] forcats_0.5.0       stringr_1.4.0       dplyr_1.0.0        
## [16] purrr_0.3.4         readr_1.3.1         tidyr_1.1.0        
## [19] tibble_3.0.2        ggplot2_3.3.2       tidyverse_1.3.0    
## [22] here_0.1           
## 
## loaded via a namespace (and not attached):
##  [1] httr_1.4.1              jsonlite_1.7.0          modelr_0.1.8           
##  [4] assertthat_0.2.1        blob_1.2.1              cellranger_1.1.0       
##  [7] yaml_2.2.1              pillar_1.4.6            backports_1.1.7        
## [10] lattice_0.20-41         glue_1.4.1              digest_0.6.25          
## [13] rvest_0.3.5             leaflet.providers_1.9.0 colorspace_1.4-1       
## [16] htmltools_0.5.0         pkgconfig_2.0.3         broom_0.7.0            
## [19] haven_2.3.1             scales_1.1.1            generics_0.0.2         
## [22] farver_2.0.3            ellipsis_0.3.1          withr_2.2.0            
## [25] cli_2.0.2               magrittr_1.5            crayon_1.3.4           
## [28] readxl_1.3.1            evaluate_0.14           fs_1.4.2               
## [31] fansi_0.4.1             xml2_1.3.2              foreign_0.8-80         
## [34] class_7.3-17            tools_4.0.2             data.table_1.12.8      
## [37] hms_0.5.3               lifecycle_0.2.0         munsell_0.5.0          
## [40] reprex_0.3.0            compiler_4.0.2          e1071_1.7-3            
## [43] rlang_0.4.6             classInt_0.4-3          units_0.6-7            
## [46] grid_4.0.2              rstudioapi_0.11         htmlwidgets_1.5.1      
## [49] crosstalk_1.1.0.1       labeling_0.3            rmarkdown_2.3          
## [52] gtable_0.3.0            DBI_1.1.0               R6_2.4.1               
## [55] gridExtra_2.3           lubridate_1.7.9         knitr_1.29             
## [58] utf8_1.1.4              rprojroot_1.3-2         KernSmooth_2.23-17     
## [61] stringi_1.4.6           Rcpp_1.0.5              vctrs_0.3.1            
## [64] dbplyr_1.4.4            tidyselect_1.1.0        xfun_0.15

6. Referencias

Cámara de Comercio de Bogotá. (2015). PAPA [Ebook] (pp. 10-11). Bogotá.

Cortés, C., Gil, P., Moreno, C., Gil, J., Guzmán, F., & Durán, C. et al. (2006). ALIANZA PARA EL MEJORAMIENTO DE LA PRODUCTIVIDAD Y COMERCIALIZACIÓN DE MORA DE CASTILLA (Rubus Glaucus), A TRAVÉS DE LA ASOCIACIÓN DE PRODUCTORES DE FRUTAS Y VERDURAS DE CLIMA FRÍO Y MODERADO DEL MUNICIPIO DE SAN BERNARDO (FRUSAN) [Archivo PDF] (pp. 7-9). Recuperado de http://observatorio.misionrural.net/alianzas/productos/mora/sanbernardo-silvania/preinversion.pdf

DANE. (2017). Particularidades del cultivo de caña panelera (Saccharum officinarum L.) en Colombia [Archivo PDF] (pp. 1-2). Recuperado de https://www.dane.gov.co/files/investigaciones/agropecuario/sipsa/Bol_Insumos_mar_2017.pdf

FAFP. (2017). Boletin mensual regional [Archivo PDF]. Recuperado de https://fedepapa.com/Boletines/REGIONALES/BOLET%C3%8DN%20REGIONAL%20CUNDINAMARCA%2001.pdf

Gobernación de Cundinamarca. (2020). Cerca de 3.500 familias viven del cacao en Cundinamarca. Recuperado el 7 de Octubre de 2020, de http://www.cundinamarca.gov.co/Home/prensa2018/asnoticiasprensa/dia+del+cacaocultor

MADR. (2013). El cultivo de la papa, Solanum tuberosum Alimento de gran valor nutritivo, clave en la seguridad alimentaria mundial [Archivo PDF] (p. 1). Recuperado de https://www.dane.gov.co/files/investigaciones/agropecuario/sipsa/insumos_factores_de_produccion_sep_2013.pdf