Este cuaderno ilustra algunas estadisticas agricolas del año 2021 en los municipios del departamento Casanare usando como fuente datos la evaluación agrícola municipal elaborada por la Unidad de Planeación Rural Agropecuaria (UPRA).
El archivo de UPRA se puede descargar de este enlace.
# setup
# install.packages("leaflet")
# install.packages('tidyverse')
# install.packages('readxl') # cargar librerias
library(leaflet)
library(tidyverse)## -- Attaching packages --------------------------------------- tidyverse 1.3.2 --
## v ggplot2 3.3.6 v purrr 0.3.4
## v tibble 3.1.8 v dplyr 1.0.10
## v tidyr 1.2.1 v stringr 1.4.1
## v readr 2.1.3 v forcats 0.5.2
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()library(readxl)#
#(archivos = list.files(pattern='xls'))
list.files(path='./inputs', pattern='xls')## [1] "BaseEVA_Agrícola2021.xlsx" "EVA2021.xlsx"# cómo saber cuáles hojas hay en el archivo
(hojas = readxl::excel_sheets("./inputs/EVA2021.xlsx"))## [1] "AgricolaDesagregados"# ahora sí lectura
eva2021 = readxl::read_excel("./inputs/EVA2021.xlsx", sheet = "AgricolaDesagregados")# despliegue de los datos almacenados en la variable eva2021
eva2021El Departamento está ubicado en la parte oriental del pais, al noroccidente de la Orinoquia, abarcando una amplia faja de la cordillera Oriental de los Andes.
El departamento del Casanare esta dividido en 19 municipios, 11 corregimientos, 106 inspecciones de policia, asi como, numerosos caserios y sitios poblados.
-Superficie 44.640 km2 -Poblacion 325.389 Habitantes -Densidad 7,29 Habitantes por km2 -Capital Yopal: 88.124 Habitantes
casanare2021 = dplyr::filter(eva2021, DEPTO == "Casanare")Se presenta una recopilacion con el ambito agricola del departamento
casanare2021casanare2021.tmp <- casanare2021 %>% select('COD_MUN':'CICLO')casanare2021.tmpcasanare2021 %>% mutate(AREA_SEMB = as.numeric(AREA_SEMB),
AREA_COS = as.numeric(AREA_COS),
PROD = as.numeric(PROD),
REND = as.numeric(REND)) -> casanare2021casanare2021Encontramos los cultivos mas representativos en el departamento del Casanare.
casanare2021 %>%
filter(PROD > 0) %>%
group_by(CULTIVO) %>%
summarize(total_produccion = sum(PROD)) %>%
arrange(desc(total_produccion))Ahora tenemos los municipios con mayor produccion para cada cultivo:
casanare2021 %>%
group_by(CULTIVO, MUN) %>%
summarize(max_prod = max(PROD, na.rm = TRUE)) %>%
slice(which.max(max_prod)) %>%
arrange(desc(max_prod))## `summarise()` has grouped output by 'CULTIVO'. You can override using the
## `.groups` argument.Ahora se obtienen los grupos de cultivos con mayor produccion y el respectivo muncipio
casanare2021 %>%
group_by(GRUPO,MUN) %>%
summarize(max_prod = max(PROD, na.rm = TRUE)) %>%
slice(which.max(max_prod)) %>%
arrange(desc(max_prod))## `summarise()` has grouped output by 'GRUPO'. You can override using the
## `.groups` argument.casanare2021 %>%
group_by(COD_MUN, MUN, GRUPO) %>%
filter(GRUPO=='Cereales') %>%
summarize(max_prod = max(PROD, na.rm = TRUE)) %>%
arrange(desc(max_prod)) -> cereales2021En el siguiente cuadro se puede apreciar el grupo con mayor produccion que son los cereales y los muncicipios donde se produce, evaluando su produccion en los mismos
cereales2021casanare2021 %>%
group_by(COD_MUN, MUN, GRUPO) %>%
filter(GRUPO=='Oleaginosas') %>%
summarize(max_prod = max(PROD, na.rm = TRUE)) %>%
arrange(desc(max_prod)) -> oleaginosas2021Tambien se logra observar el segundo grupo de mayor cultivo en el departamento y sus respectivos municipios
oleaginosas2021write_csv(cereales2021, "./casanare_cereales_2021.csv")
write_csv(oleaginosas2021, "./casanare_oleag_2021.csv")Unidad de Planificacion Rural Agropecuaria (UPRA) este enlace.
Gobernacion de Casanare este enlace
sessionInfo()## R version 4.2.1 (2022-06-23 ucrt)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 10 x64 (build 17763)
##
## 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] readxl_1.4.1 forcats_0.5.2 stringr_1.4.1 dplyr_1.0.10
## [5] purrr_0.3.4 readr_2.1.3 tidyr_1.2.1 tibble_3.1.8
## [9] ggplot2_3.3.6 tidyverse_1.3.2 leaflet_2.1.1
##
## loaded via a namespace (and not attached):
## [1] lubridate_1.8.0 assertthat_0.2.1 digest_0.6.29
## [4] utf8_1.2.2 R6_2.5.1 cellranger_1.1.0
## [7] backports_1.4.1 reprex_2.0.2 evaluate_0.16
## [10] httr_1.4.4 pillar_1.8.1 rlang_1.0.6
## [13] googlesheets4_1.0.1 rstudioapi_0.14 jquerylib_0.1.4
## [16] rmarkdown_2.16 googledrive_2.0.0 htmlwidgets_1.5.4
## [19] bit_4.0.4 munsell_0.5.0 broom_1.0.1
## [22] compiler_4.2.1 modelr_0.1.9 xfun_0.33
## [25] pkgconfig_2.0.3 htmltools_0.5.3 tidyselect_1.1.2
## [28] fansi_1.0.3 crayon_1.5.2 tzdb_0.3.0
## [31] dbplyr_2.2.1 withr_2.5.0 grid_4.2.1
## [34] jsonlite_1.8.2 gtable_0.3.1 lifecycle_1.0.2
## [37] DBI_1.1.3 magrittr_2.0.3 scales_1.2.1
## [40] vroom_1.6.0 cli_3.4.1 stringi_1.7.8
## [43] cachem_1.0.6 fs_1.5.2 xml2_1.3.3
## [46] bslib_0.4.0 ellipsis_0.3.2 generics_0.1.3
## [49] vctrs_0.4.2 tools_4.2.1 bit64_4.0.5
## [52] glue_1.6.2 hms_1.1.2 crosstalk_1.2.0
## [55] parallel_4.2.1 fastmap_1.1.0 yaml_2.3.5
## [58] colorspace_2.0-3 gargle_1.2.1 rvest_1.0.3
## [61] knitr_1.40 haven_2.5.1 sass_0.4.2