# ************************************************************************
# ************* GENERACIÓN DE TABULADOS TOMO II - COMERCIO  *************
# ************************************************************************

# ********************************************************************** #
# Instituto Nacional de Estadística y Censos (INEC)                      #
# Fuente: Encuesta Estructural Empresarial 2024                          #
# Responsable: Unidad de Gestión de Estadísticas Estructurales (GESE)    #
# ********************************************************************** #
# Fecha de elaboración: 30/01/2026                                       #
# Fecha última modificación: 23/02/2026                                  #
# ********************************************************************** #
# Elaborado por:                                                         #
# Gestión de Estadísticas Estructurales - GESE                           #
# Instituto Nacional de Estadística y Censos (INEC)                      #
# ********************************************************************** #
# Revisado por:                                                          #
# Roberto Chaves                                                         #
# Jefe de Gestión de Estadísticas Estructurales - GESE                   #
# Instituto Nacional de Estadística y Censos (INEC)                      #
# roberto_chaves@inec.gob.ec                                             #
# ********************************************************************** #
# Aprobado por:                                                          #
# Diana Barco                                                            #
# Directora de Estadísticas Económicas (DECON)                           #
# Instituto Nacional de Estadística y Censos (INEC)                      #
# Diana_Barco@inec.gob.ec                                                #
##########################################################################

#========================================================================#
# FUNCIONES                                                              #
#========================================================================#

"Carga de librerías"

enesem_lib <- function(libreria) {
  if (!requireNamespace(as.character(libreria), quietly = TRUE)) {
    install.packages(as.character(libreria))
  }
  library(libreria, character.only = TRUE)
}

#========================================================================#
# CARGAR LIBRERÍAS                                                       #
#========================================================================#

enesem_lib("tidyverse")
enesem_lib("lubridate")
enesem_lib("haven")
enesem_lib("openxlsx")
enesem_lib("janitor")

# **** TABULADOS TOMO II - COMERCIO (2024) *** -------------------------------------------------

#Establecer la dirección de trabajo ----

"Estimado Usuario. Por favor en el disco C: de su computadora, crear una carpeta llamada 
Tabulados Tomo II, y coloque la BDD de la encuesta (2024_ENESEM_BDD_Comercio.sav), sintaxis y el
archivo llamado DISEÑO_COM.xlsx. 
En esta carpeta se exportarán los resultados de los tabulados."

setwd("C:/Tabulados Tomo II")

#Abrir directorio.
dir()

# *** Cargar base de datos****

dat <- read_sav("2024_ENESEM_BDD_Comercio.sav") #En caso de haber editado el nombre de la BDD reemplazarlo en esta línea

# dat <-  read_csv("2024_ENESEM_BDD_Comercio.csv") #En caso de que se descargue la base de datos en formato csv, quitar comentario (#) de esta línea de código y comentar (#) el comando read_sav.

######### 1) TABULADOS SERVICIOS  #########

comercio <- dat %>% 
  group_by(cod_cpc, cod_cpc_desc) %>% 
  summarise(nac = sum(valor_nacional, na.rm=TRUE),ext = sum(valor_extranjero, na.rm=TRUE),tot = sum(ventas_totales,na.rm=TRUE),cot = sum(costo_venta_total,na.rm=TRUE)) 

suma <- c(colSums(comercio[,3:6])) 

comercio <- bind_rows(comercio, suma) %>% arrange(!is.na(cod_cpc)) 

comercio[1,2] <- "Total Nacional"  

## renombrar variables ---- 

names (comercio) = c ("Código CPC","Descripción Código CPC","Valor vendido - Nacional","Valor vendido - Extranjero","Valor vendido - Total","Costo de ventas - Total")

# ============================================================================ #
#####               DISEÑO Y EXPORTACIÓN DE TABULADOS A EXCEL              ##### 
# ============================================================================ #

"En esta sección se diseñara y exportara los tabulados en formato excel"

##### Configuracion tabulados #####

com <- loadWorkbook("DISEÑO_COM.xlsx")

##### CREACIÓN #####

writeData(com,
          "C1",
          comercio, 
          startRow = 3, 
          startCol = 1,  
          colNames = TRUE)

##### EXPORTACIÓN #####

anio_inv <- floor_date(today(), "day") %>%
  str_sub(1, 4) %>% 
  as.numeric() %>% 
  sum(-2, na.rm = T) %>% 
  str_c(.,"_","ENESEM_Tabulados_Comercio.xlsx")

saveWorkbook(com, anio_inv,overwrite = TRUE)

