
# ********************************************************************** #
# ******************      GENERACIÓN DE AGREGADOS       **************** #
# *************** ENCUESTA ESTRUCTURAL EMPRESARIAL 2024 **************** #
# ********************************************************************** #
# 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: 18/11/2022                                       #
# Fecha última modificación: 23/02/2026                                  #
# ********************************************************************** #
# Elaborado por:                                                         #
# Gestión de Estadísticas Estructurales - GESE                           #
# Instituto Nacional de Estadística y Censos                             #
# ********************************************************************** #
# Revisado por                                                           #
# Roberto Chaves                                                         #
# Jefe de Gestión de Estadísticas Estructurales                          #
# Instituto Nacional de Estadística y Censos                             #
# roberto_chaves@inec.gob.ec                                             #
# ********************************************************************** #
# Aprobado por:                                                          #
# Diana Barco                                                            #
# Directora de Estadísticas Económicas (DECON)                           #
# Instituto Nacional de Estadística y Censos                             #
# Diana_Barco@inec.gob.ec                                                #
##########################################################################

#========================================================================#
# FUNCIÓN                                                                #
#========================================================================#

"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 LIBRERIAS                                                       #
#========================================================================#

enesem_lib("openxlsx")
enesem_lib("dplyr")
enesem_lib("rio")
enesem_lib("Hmisc")
enesem_lib("tidyverse")
enesem_lib("haven")
enesem_lib("janitor") 

#Establecer la dirección de trabajo.

"Estimado usuario. Por favor en el disco C: de su computadora, crear una carpeta llamada Tabulados Estructural y coloque la base de datos de la encuesta y 
sintaxis 2024_ENESEM_Sintaxis_Agregados"

"Nota: Antes de correr la sintaxis comprobar que su versión de R se encuentre actualizada"

getwd()
setwd("C:/Tabulados Estructural") 

#Abrir directorio.
dir()

# *** Llamar base de datos****

data <-  read_sav("2024_ESTRUCTURAL_EMPRESARIAL_BDD.sav") #En caso de haber editado el nombre de la BDD reemplazarlo en esta línea
# data <-  read_csv("2024_ESTRUCTURAL_EMPRESARIAL_BDD.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.

# ********************************
# * CREACIÓN VARIABLES ACTIVIDAD *
# ********************************
data <- data %>% 
  mutate(cod_letra = substr(as.character(cod_ciiu4d),1,1)) %>% 
  mutate(des_letra="") %>% 
  mutate(cod_ciiu2d=substring(as.character(cod_ciiu4d),1,3)) %>% 
  mutate(des_ciiu2d="") %>% 
  mutate(cod_ciiu4d=substring(as.character(cod_ciiu4d),1,5)) %>% 
  mutate(des_ciiu4d="")

data <- data %>% 
  mutate( des_letra = case_when(cod_letra == "A" ~ "Agricultura, ganadería, silvicultura y pesca",
                              cod_letra =="B"~"Explotación de minas y canteras",
                              cod_letra =="C"~"Industrias manufactureras",
                              cod_letra =="D"~"Suministro de electricidad, gas, vapor y aire acondicionado",
                              cod_letra =="E"~"Distribución de agua; alcantarillado, gestión de desechos y actividades de saneamiento",
                              cod_letra =="F"~"Construcción",
                              cod_letra =="G"~"Comercio al por mayor y al por menor; reparación de vehículos automotores y motocicletas",
                              cod_letra =="H"~"Transporte y almacenamiento",
                              cod_letra =="I"~"Actividades de alojamiento y de servicio de comidas",
                              cod_letra =="J"~"Información y comunicación",
                              cod_letra =="K"~"Actividades financieras y de seguros",
                              cod_letra =="L"~"Actividades inmobiliarias",
                              cod_letra =="M"~"Actividades profesionales, científicas y técnicas",
                              cod_letra =="N"~"Actividades de servicios administrativos y de apoyo",
                              cod_letra =="O"~"Administración pública y defensa; planes de seguridad social de afiliacion obligatoria",
                              cod_letra =="P"~"Enseñanza",
                              cod_letra =="Q"~"Actividades de atención de la salud humana y de asistencia social",
                              cod_letra =="R"~"Artes, entretenimiento y recreación",
                              cod_letra =="S"~"Otras actividades de servicios",
                              cod_letra =="T"~"Actividades de los hogares como empleadores; actividades no diferenciadas de los hogares como productores de bienes y servicios para uso propio",
                              cod_letra =="U"~"Actividades de organizaciones y órganos extraterritoriales"))

data <- data %>% 
  mutate(des_ciiu2d = case_when(cod_ciiu2d=="A01" ~ "agricultura, ganadería, caza y actividades de servicios conexas." ,
                                cod_ciiu2d=="A02" ~ "silvicultura y extracción de madera." ,
                                cod_ciiu2d=="A03" ~ "pesca y acuicultura." ,
                                cod_ciiu2d=="B05" ~ "extracción de carbón de piedra y lignito." ,
                                cod_ciiu2d=="B06" ~ "extracción de petróleo crudo y gas natural." ,
                                cod_ciiu2d=="B07" ~ "extracción de minerales metalíferos." ,
                                cod_ciiu2d=="B08" ~ "explotación de otras minas y canteras." ,
                                cod_ciiu2d=="B09" ~ "actividades de servicios de apoyo para la explotación de minas y canteras." ,
                                cod_ciiu2d=="C10" ~ "elaboración de productos alimenticios." ,
                                cod_ciiu2d=="C11" ~ "elaboración de bebidas." ,
                                cod_ciiu2d=="C12" ~ "elaboración de productos de tabaco." ,
                                cod_ciiu2d=="C13" ~ "fabricación de productos textiles." ,
                                cod_ciiu2d=="C14" ~ "fabricación de prendas de vestir." ,
                                cod_ciiu2d=="C15" ~ "fabricación de cueros y productos conexos." ,
                                cod_ciiu2d=="C16" ~ "producción de madera y fabricación de productos de madera y corcho, excepto muebles; fabricación de artículos de paja y de materiales trenzables." ,
                                cod_ciiu2d=="C17" ~ "fabricación de papel y de productos de papel." ,
                                cod_ciiu2d=="C18" ~ "impresión y reproducción de grabaciones." ,
                                cod_ciiu2d=="C19" ~ "fabricación de coque y de productos de la refinación del petróleo." ,
                                cod_ciiu2d=="C20" ~ "fabricación de substancias y productos químicos." ,
                                cod_ciiu2d=="C21" ~ "fabricación de productos farmacéuticos, sustancias químicas medicinales y productos botánicos de uso farmacéutico." ,
                                cod_ciiu2d=="C22" ~ "fabricación de productos de caucho y plástico." ,
                                cod_ciiu2d=="C23" ~ "fabricación de otros productos minerales no metálicos." ,
                                cod_ciiu2d=="C24" ~ "fabricación de metales comunes." ,
                                cod_ciiu2d=="C25" ~ "fabricación de productos elaborados de metal, excepto maquinaria y equipo." ,
                                cod_ciiu2d=="C26" ~ "fabricación de productos de informática, electrónica y óptica." ,
                                cod_ciiu2d=="C27" ~ "fabricación de equipo eléctrico." ,
                                cod_ciiu2d=="C28" ~ "fabricación de maquinaria y equipo n.c.p." ,
                                cod_ciiu2d=="C29" ~ "fabricación de vehículos automotores, remolques y semirremolques." ,
                                cod_ciiu2d=="C30" ~ "fabricación de otros tipos de equipos de transporte." ,
                                cod_ciiu2d=="C31" ~ "fabricación de muebles." ,
                                cod_ciiu2d=="C32" ~ "otras industrias manufactureras." ,
                                cod_ciiu2d=="C33" ~ "reparación e instalación de maquinaria y equipo." ,
                                cod_ciiu2d=="D35" ~ "suministro de electricidad, gas, vapor y aire acondicionado." ,
                                cod_ciiu2d=="E36" ~ "captación, tratamiento y distribución de agua." ,
                                cod_ciiu2d=="E37" ~ "evacuación de aguas residuales." ,
                                cod_ciiu2d=="E38" ~ "recolección, tratamiento y eliminación de desechos, recuperación de materiales." ,
                                cod_ciiu2d=="E39" ~ "actividades de descontaminación y otros servicios de  gestión de desechos." ,
                                cod_ciiu2d=="F41" ~ "construcción de edificios." ,
                                cod_ciiu2d=="F42" ~ "obras de ingeniería civil." ,
                                cod_ciiu2d=="F43" ~ "actividades especializadas de la construcción." ,
                                cod_ciiu2d=="G45" ~ "comercio y reparación de vehículos automotores y motocicletas." ,
                                cod_ciiu2d=="G46" ~ "comercio al por mayor, excepto el de vehículos automotores y motocicletas." ,
                                cod_ciiu2d=="G47" ~ "comercio al por menor, excepto el de vehículos automotores y motocicletas." ,
                                cod_ciiu2d=="H49" ~ "transporte por vía terrestre y por tuberías." ,
                                cod_ciiu2d=="H50" ~ "transporte por vía acuática." ,
                                cod_ciiu2d=="H51" ~ "transporte por vía aérea." ,
                                cod_ciiu2d=="H52" ~ "almacenamiento y actividades de apoyo al transporte." ,
                                cod_ciiu2d=="H53" ~ "actividades postales y de mensajería." ,
                                cod_ciiu2d=="I55" ~ "actividades de alojamiento." ,
                                cod_ciiu2d=="I56" ~ "servicio de alimento y bebida." ,
                                cod_ciiu2d=="J58" ~ "actividades de publicación." ,
                                cod_ciiu2d=="J59" ~ "actividades de producción de películas cinematográficas, vídeos y programas de televisión, grabación de sonido y edición de música." ,
                                cod_ciiu2d=="J60" ~ "actividades de programación y transmisión." ,
                                cod_ciiu2d=="J61" ~ "telecomunicaciones." ,
                                cod_ciiu2d=="J62" ~ "programación informática, consultoría de informática y actividades conexas." ,
                                cod_ciiu2d=="J63" ~ "actividades de servicios de información." ,
                                cod_ciiu2d=="K64" ~ "actividades de servicios financieros, excepto las de seguros y fondos de pensiones." ,
                                cod_ciiu2d=="K65" ~ "seguros, reaseguros y fondos de pensiones, excepto los planes de seguridad social de afiliación obligatoria." ,
                                cod_ciiu2d=="K66" ~ "actividades auxiliares de las actividades de servicios financieros." ,
                                cod_ciiu2d=="L68" ~ "actividades inmobiliarias." ,
                                cod_ciiu2d=="M69" ~ "actividades jurídicas y de contabilidad." ,
                                cod_ciiu2d=="M70" ~ "actividades de oficinas principales; actividades de consultoría de gestión." ,
                                cod_ciiu2d=="M71" ~ "actividades de arquitectura e ingeniería; ensayos y análisis técnicos." ,
                                cod_ciiu2d=="M72" ~ "investigación científica y desarrollo." ,
                                cod_ciiu2d=="M73" ~ "publicidad y estudios de mercado." ,
                                cod_ciiu2d=="M74" ~ "otras actividades profesionales, científicas y técnicas." ,
                                cod_ciiu2d=="M75" ~ "actividades veterinarias." ,
                                cod_ciiu2d=="N77" ~ "actividades de alquiler y arrendamiento." ,
                                cod_ciiu2d=="N78" ~ "actividades de empleo." ,
                                cod_ciiu2d=="N79" ~ "actividades de agencias de viajes, operadores turísticos, servicios de reservas y actividades conexas." ,
                                cod_ciiu2d=="N80" ~ "actividades de seguridad e investigación." ,
                                cod_ciiu2d=="N81" ~ "actividades de servicios a edificios y paisajismo." ,
                                cod_ciiu2d=="N82" ~ "actividades administrativas y de apoyo de oficina y otras actividades de apoyo a las empresas." ,
                                cod_ciiu2d=="O84" ~ "administración pública y defensa; planes de seguridad social de afiliación obligatoria." ,
                                cod_ciiu2d=="P85" ~ "enseñanza." ,
                                cod_ciiu2d=="Q86" ~ "actividades de atención de la salud humana." ,
                                cod_ciiu2d=="Q87" ~ "actividades de atención en instituciones." ,
                                cod_ciiu2d=="Q88" ~ "actividades de asistencia social sin alojamiento." ,
                                cod_ciiu2d=="R90" ~ "actividades creativas, artísticas y de entretenimiento." ,
                                cod_ciiu2d=="R91" ~ "actividades de bibliotecas, archivos, museos y otras actividades culturales." ,
                                cod_ciiu2d=="R92" ~ "actividades de juegos de azar y apuestas." ,
                                cod_ciiu2d=="R93" ~ "actividades deportivas, de esparcimiento y recreativas." ,
                                cod_ciiu2d=="S94" ~ "actividades de asociaciones." ,
                                cod_ciiu2d=="S95" ~ "reparación de computadores y de efectos personales y enseres domésticos." ,
                                cod_ciiu2d=="S96" ~ "otras actividades de servicios personales." ,
                                cod_ciiu2d=="T97" ~ "actividades de los hogares como empleadores de personal doméstico." ,
                                cod_ciiu2d=="T98" ~ "actividades no diferenciadas de los hogares como productores de bienes y servicios para uso propio." ,
                                cod_ciiu2d=="U99" ~ "actividades de organizaciones y órganos extraterritoriales." 
                                
  ))
    
data <- data %>% 
  mutate(des_ciiu4d = case_when(cod_ciiu4d == "A0111 " ~ "cultivo de cereales (excepto arroz), legumbres y semillas oleaginosas." ,
                                cod_ciiu4d == "A0112 " ~ "cultivo de arroz." ,
                                cod_ciiu4d == "A0113 " ~ "cultivo de hortalizas y melones, raíces y tubérculos." ,
                                cod_ciiu4d == "A0114 " ~ "cultivo de caña de azúcar." ,
                                cod_ciiu4d == "A0115 " ~ "cultivo de tabaco." ,
                                cod_ciiu4d == "A0116 " ~ "cultivo de plantas de fibras." ,
                                cod_ciiu4d == "A0119 " ~ "cultivo de otras plantas no perennes." ,
                                cod_ciiu4d == "A0121 " ~ "cultivo de uvas." ,
                                cod_ciiu4d == "A0122 " ~ "cultivo de frutas tropicales y subtropicales." ,
                                cod_ciiu4d == "A0123 " ~ "cultivo de cítricos." ,
                                cod_ciiu4d == "A0124 " ~ "cultivo de frutas con hueso y con pepa." ,
                                cod_ciiu4d == "A0125 " ~ "cultivo de otros frutos y nueces de árboles y arbustos." ,
                                cod_ciiu4d == "A0126 " ~ "cultivo de frutos oleaginosos." ,
                                cod_ciiu4d == "A0127 " ~ "cultivo de plantas con las que se preparan bebidas." ,
                                cod_ciiu4d == "A0128 " ~ "cultivo de especias y de plantas aromáticas, medicinales y farmacéuticas." ,
                                cod_ciiu4d == "A0129 " ~ "cultivo de otras plantas perennes." ,
                                cod_ciiu4d == "A0130 " ~ "propagación de plantas." ,
                                cod_ciiu4d == "A0141 " ~ "cría de ganado bovino y búfalos." ,
                                cod_ciiu4d == "A0142 " ~ "cría de caballos y otros equinos." ,
                                cod_ciiu4d == "A0143 " ~ "cría de camellos y otros camélidos." ,
                                cod_ciiu4d == "A0144 " ~ "cría de ovejas y cabras." ,
                                cod_ciiu4d == "A0145 " ~ "cría de cerdos." ,
                                cod_ciiu4d == "A0146 " ~ "cría de aves de corral." ,
                                cod_ciiu4d == "A0149 " ~ "cría de otros animales." ,
                                cod_ciiu4d == "A0150 " ~ "cultivo de productos agrícolas en combinación con la cría de animales (explotación mixta)." ,
                                cod_ciiu4d == "A0161 " ~ "actividades de apoyo a la agricultura." ,
                                cod_ciiu4d == "A0162 " ~ "actividades de apoyo a la ganadería." ,
                                cod_ciiu4d == "A0163 " ~ "actividades poscosecha." ,
                                cod_ciiu4d == "A0164 " ~ "tratamiento de semillas para propagación." ,
                                cod_ciiu4d == "A0170 " ~ "caza ordinaria, mediante trampas y actividades de servicios conexas." ,
                                cod_ciiu4d == "A0210 " ~ "silvicultura y otras actividades forestales." ,
                                cod_ciiu4d == "A0220 " ~ "extracción de madera." ,
                                cod_ciiu4d == "A0230 " ~ "recolección de productos forestales distintos de la madera." ,
                                cod_ciiu4d == "A0240 " ~ "servicios de apoyo a la silvicultura." ,
                                cod_ciiu4d == "A0311 " ~ "pesca marina." ,
                                cod_ciiu4d == "A0312 " ~ "pesca de agua dulce." ,
                                cod_ciiu4d == "A0321 " ~ "acuicultura marina." ,
                                cod_ciiu4d == "A0322 " ~ "acuicultura de agua dulce." ,
                                cod_ciiu4d == "B0510 " ~ "extracción de carbón de piedra." ,
                                cod_ciiu4d == "B0520 " ~ "extracción de lignito." ,
                                cod_ciiu4d == "B0610 " ~ "extracción de petróleo crudo." ,
                                cod_ciiu4d == "B0620 " ~ "extracción de gas natural." ,
                                cod_ciiu4d == "B0710 " ~ "extracción de minerales de hierro." ,
                                cod_ciiu4d == "B0721 " ~ "extracción de minerales de uranio y torio." ,
                                cod_ciiu4d == "B0729 " ~ "extracción de otros minerales metalíferos no ferrosos." ,
                                cod_ciiu4d == "B0810 " ~ "extracción de piedra, arena y arcilla." ,
                                cod_ciiu4d == "B0891 " ~ "extracción de minerales para la fabricación de abonos y productos químicos." ,
                                cod_ciiu4d == "B0892 " ~ "extracción de turba." ,
                                cod_ciiu4d == "B0893 " ~ "extracción de sal." ,
                                cod_ciiu4d == "B0899 " ~ "explotación de otras minas y canteras n.c.p." ,
                                cod_ciiu4d == "B0910 " ~ "actividades de apoyo para la extracción de petróleo y gas natural." ,
                                cod_ciiu4d == "B0990 " ~ "actividades de apoyo para la explotación de otras minas y canteras." ,
                                cod_ciiu4d == "C1010 " ~ "elaboración y conservación de carne." ,
                                cod_ciiu4d == "C1020 " ~ "elaboración y conservación de pescados, crustáceos y moluscos." ,
                                cod_ciiu4d == "C1030 " ~ "elaboración y conservación de frutas, legumbres y hortalizas." ,
                                cod_ciiu4d == "C1040 " ~ "elaboración de aceites y grasas de origen vegetal y animal." ,
                                cod_ciiu4d == "C1050 " ~ "elaboración de productos lácteos." ,
                                cod_ciiu4d == "C1061 " ~ "elaboración de productos de molinería." ,
                                cod_ciiu4d == "C1062 " ~ "elaboración de almidones y productos derivados del almidón." ,
                                cod_ciiu4d == "C1071 " ~ "elaboración de productos de panadería." ,
                                cod_ciiu4d == "C1072 " ~ "elaboración de azúcar." ,
                                cod_ciiu4d == "C1073 " ~ "elaboración de cacao, chocolate y productos de confitería." ,
                                cod_ciiu4d == "C1074 " ~ "elaboración de macarrones, fideos, alcuzcuz y productos farináceos similares." ,
                                cod_ciiu4d == "C1075 " ~ "elaboración de comidas y platos preparados." ,
                                cod_ciiu4d == "C1079 " ~ "elaboración de otros productos alimenticios n.c.p." ,
                                cod_ciiu4d == "C1080 " ~ "elaboración de alimentos preparados para animales." ,
                                cod_ciiu4d == "C1101 " ~ "destilación, rectificación y mezcla de bebidas alcohólicas." ,
                                cod_ciiu4d == "C1102 " ~ "elaboración de vinos." ,
                                cod_ciiu4d == "C1103 " ~ "elaboración de bebidas malteadas y de malta." ,
                                cod_ciiu4d == "C1104 " ~ "elaboración de bebidas no alcohólicas; producción de aguas minerales y otras aguas embotelladas." ,
                                cod_ciiu4d == "C1200 " ~ "elaboración de productos de tabaco." ,
                                cod_ciiu4d == "C1311 " ~ "preparación e hilatura de fibras textiles." ,
                                cod_ciiu4d == "C1312 " ~ "tejedura de productos textiles." ,
                                cod_ciiu4d == "C1313 " ~ "servicio de acabado de productos textiles." ,
                                cod_ciiu4d == "C1391 " ~ "fabricación de tejidos de punto y ganchillo." ,
                                cod_ciiu4d == "C1392 " ~ "fabricación de artículos confeccionados de materiales textiles, excepto prendas de vestir." ,
                                cod_ciiu4d == "C1393 " ~ "fabricación de tapices y alfombras." ,
                                cod_ciiu4d == "C1394 " ~ "fabricación de cuerdas, cordeles, bramantes y redes." ,
                                cod_ciiu4d == "C1399 " ~ "fabricación de otros productos textiles n.c.p." ,
                                cod_ciiu4d == "C1410 " ~ "fabricación de prendas de vestir, excepto prendas de piel." ,
                                cod_ciiu4d == "C1420 " ~ "fabricación de artículos de piel." ,
                                cod_ciiu4d == "C1430 " ~ "fabricación de artículos de punto y ganchillo." ,
                                cod_ciiu4d == "C1511 " ~ "curtido y adobo de cueros; adobo y teñido de pieles." ,
                                cod_ciiu4d == "C1512 " ~ "fabricación de maletas, bolsos de mano y artículos similares, artículos de talabartería y guarnicionería." ,
                                cod_ciiu4d == "C1520 " ~ "fabricación de calzado." ,
                                cod_ciiu4d == "C1610 " ~ "aserrado y acepilladura de madera." ,
                                cod_ciiu4d == "C1621 " ~ "fabricación de hojas de madera para enchapado y tableros a base de madera." ,
                                cod_ciiu4d == "C1622 " ~ "fabricación de partes y piezas de carpintería para edificios y construcciones." ,
                                cod_ciiu4d == "C1623 " ~ "fabricación de recipientes de madera." ,
                                cod_ciiu4d == "C1629 " ~ "fabricación de otros productos de madera; fabricación de artículos de corcho, paja y materiales trenzables." ,
                                cod_ciiu4d == "C1701 " ~ "fabricación de pasta de madera, papel y cartón." ,
                                cod_ciiu4d == "C1702 " ~ "fabricación de papel y cartón ondulado y de envases de papel y cartón." ,
                                cod_ciiu4d == "C1709 " ~ "fabricación de otros artículos del papel y cartón." ,
                                cod_ciiu4d == "C1811 " ~ "actividades de impresión." ,
                                cod_ciiu4d == "C1812 " ~ "actividades de servicios relacionados con la impresión." ,
                                cod_ciiu4d == "C1820 " ~ "reproducción de grabaciones." ,
                                cod_ciiu4d == "C1910 " ~ "fabricación de productos de horno de coque." ,
                                cod_ciiu4d == "C1920 " ~ "fabricación de productos de la refinación del petróleo." ,
                                cod_ciiu4d == "C2011 " ~ "fabricación de substancias químicas básicas." ,
                                cod_ciiu4d == "C2012 " ~ "fabricación de abonos y compuestos de nitrógeno." ,
                                cod_ciiu4d == "C2013 " ~ "fabricación de plásticos y cauchos sintéticos en formas primarias." ,
                                cod_ciiu4d == "C2021 " ~ "fabricación de plaguicidas y otros productos químicos de uso agropecuario." ,
                                cod_ciiu4d == "C2022 " ~ "fabricación de pinturas, barnices y productos de revestimiento similares, tintas de imprenta y masillas." ,
                                cod_ciiu4d == "C2023 " ~ "fabricación de jabones y detergentes, preparados para limpiar y pulir, perfumes y preparados de tocador." ,
                                cod_ciiu4d == "C2029 " ~ "fabricación de otros productos químicos n.c.p." ,
                                cod_ciiu4d == "C2030 " ~ "fabricación de fibras artificiales." ,
                                cod_ciiu4d == "C2100 " ~ "fabricación de productos farmacéuticos, sustancias químicas medicinales y productos botánicos de uso farmacéutico." ,
                                cod_ciiu4d == "C2211 " ~ "fabricación de cubiertas y cámaras de caucho; recauchutado y renovación de cubiertas de caucho." ,
                                cod_ciiu4d == "C2219 " ~ "fabricación de otros productos de caucho." ,
                                cod_ciiu4d == "C2220 " ~ "fabricación de productos de plástico." ,
                                cod_ciiu4d == "C2310 " ~ "fabricación de vidrio y productos de vidrio." ,
                                cod_ciiu4d == "C2391 " ~ "fabricación de productos refractarios." ,
                                cod_ciiu4d == "C2392 " ~ "fabricación de materiales de construcción de arcilla." ,
                                cod_ciiu4d == "C2393 " ~ "fabricación de otros productos de porcelana y de cerámica." ,
                                cod_ciiu4d == "C2394 " ~ "fabricación de cemento, cal y yeso." ,
                                cod_ciiu4d == "C2395 " ~ "fabricación de artículos de hormigón, de cemento y yeso." ,
                                cod_ciiu4d == "C2396 " ~ "corte, tallado y acabado de la piedra." ,
                                cod_ciiu4d == "C2399 " ~ "fabricación de otros productos minerales no metálicos n.c.p." ,
                                cod_ciiu4d == "C2410 " ~ "industrias básicas de hierro y acero." ,
                                cod_ciiu4d == "C2420 " ~ "fabricación de productos primarios de metales preciosos y metales no ferrosos." ,
                                cod_ciiu4d == "C2431 " ~ "fundición de hierro y acero." ,
                                cod_ciiu4d == "C2432 " ~ "fundición de metales no ferrosos." ,
                                cod_ciiu4d == "C2511 " ~ "fabricación de productos metálicos para uso estructural." ,
                                cod_ciiu4d == "C2512 " ~ "fabricación de tanques, depósitos y recipientes de metal." ,
                                cod_ciiu4d == "C2513 " ~ "fabricación de generadores de vapor, excepto calderas de agua caliente para calefacción central." ,
                                cod_ciiu4d == "C2520 " ~ "fabricación de armas y municiones." ,
                                cod_ciiu4d == "C2591 " ~ "forja, prensado, estampado y laminado de metales; pulvimetalurgia." ,
                                cod_ciiu4d == "C2592 " ~ "tratamiento y revestimiento de metales; maquinado." ,
                                cod_ciiu4d == "C2593 " ~ "fabricación de artículos de cuchillería, herramientas de mano y artículos de ferretería." ,
                                cod_ciiu4d == "C2599 " ~ "fabricación de otros productos elaborados de metal n.c.p." ,
                                cod_ciiu4d == "C2610 " ~ "fabricación de componentes y tableros electrónicos." ,
                                cod_ciiu4d == "C2620 " ~ "fabricación de computadoras y equipo periférico." ,
                                cod_ciiu4d == "C2630 " ~ "fabricación de equipo de comunicaciones." ,
                                cod_ciiu4d == "C2640 " ~ "fabricación de aparatos electrónicos de consumo." ,
                                cod_ciiu4d == "C2651 " ~ "fabricación de equipos de medición, prueba, navegación, control y de relojes." ,
                                cod_ciiu4d == "C2652 " ~ "fabricación de relojes." ,
                                cod_ciiu4d == "C2660 " ~ "fabricación de equipo de irradiación, y equipo electrónico de uso medico y terapéutico." ,
                                cod_ciiu4d == "C2670 " ~ "fabricación de instrumentos ópticos y equipo fotográficos." ,
                                cod_ciiu4d == "C2680 " ~ "fabricación de soportes magnéticos y ópticos." ,
                                cod_ciiu4d == "C2710 " ~ "fabricación de motores, generadores, transformadores eléctricos y aparatos de distribución y control de la energía eléctrica." ,
                                cod_ciiu4d == "C2720 " ~ "fabricación de pilas, baterías y acumuladores." ,
                                cod_ciiu4d == "C2731 " ~ "fabricación de cables de fibra óptica." ,
                                cod_ciiu4d == "C2732 " ~ "fabricación de otros hilos y cables eléctricos." ,
                                cod_ciiu4d == "C2733 " ~ "fabricación de dispositivos de cableado." ,
                                cod_ciiu4d == "C2740 " ~ "fabricación de equipo eléctrico de iluminación." ,
                                cod_ciiu4d == "C2750 " ~ "fabricación de aparatos de uso doméstico." ,
                                cod_ciiu4d == "C2790 " ~ "fabricación de otros tipos de equipo eléctrico." ,
                                cod_ciiu4d == "C2811 " ~ "fabricación de motores y turbinas, excepto motores para aeronaves, vehículos automotores y motocicletas." ,
                                cod_ciiu4d == "C2812 " ~ "fabricación de equipo de propulsión de fluidos." ,
                                cod_ciiu4d == "C2813 " ~ "fabricación de otras bombas, compresores, grifos y válvulas." ,
                                cod_ciiu4d == "C2814 " ~ "fabricación de cojinetes, engranajes, trenes de engranajes y piezas de transmisión." ,
                                cod_ciiu4d == "C2815 " ~ "fabricación de hornos y quemadores." ,
                                cod_ciiu4d == "C2816 " ~ "fabricación de equipo de elevación y manipulación." ,
                                cod_ciiu4d == "C2817 " ~ "fabricación de maquinaria y equipo de oficina (excepto computadoras y equipo periférico)." ,
                                cod_ciiu4d == "C2818 " ~ "fabricación de herramientas de mano motorizadas." ,
                                cod_ciiu4d == "C2819 " ~ "fabricación de otros tipos de maquinaria de uso general." ,
                                cod_ciiu4d == "C2821 " ~ "fabricación de maquinaria agropecuaria y forestal." ,
                                cod_ciiu4d == "C2822 " ~ "fabricación de maquinaria para la conformación de metales y de máquinas herramienta." ,
                                cod_ciiu4d == "C2823 " ~ "fabricación de maquinaria metalúrgica." ,
                                cod_ciiu4d == "C2824 " ~ "fabricación de maquinaria para la explotación de minas y canteras y para obras de construcción." ,
                                cod_ciiu4d == "C2825 " ~ "fabricación de maquinaria para la elaboración de alimentos, bebidas y tabaco." ,
                                cod_ciiu4d == "C2826 " ~ "fabricación de maquinaria para la elaboración de productos textiles, prendas de vestir y cueros." ,
                                cod_ciiu4d == "C2829 " ~ "fabricación de otros tipos de maquinaria de uso especial." ,
                                cod_ciiu4d == "C2910 " ~ "fabricación de vehículos automotores." ,
                                cod_ciiu4d == "C2920 " ~ "fabricación de carrocerías para vehículos automotores; fabricación de remolques y semirremolques." ,
                                cod_ciiu4d == "C2930 " ~ "fabricación de partes, piezas y accesorios para vehículos automotores." ,
                                cod_ciiu4d == "C3011 " ~ "construcción de buques y estructuras flotantes." ,
                                cod_ciiu4d == "C3012 " ~ "construcción de embarcaciones de recreo y deporte." ,
                                cod_ciiu4d == "C3020 " ~ "fabricación de locomotoras y material rodante." ,
                                cod_ciiu4d == "C3030 " ~ "fabricación de aeronaves y naves especiales y maquinaria conexa." ,
                                cod_ciiu4d == "C3040 " ~ "fabricación de vehículos militares de combate." ,
                                cod_ciiu4d == "C3091 " ~ "fabricación de motocicletas." ,
                                cod_ciiu4d == "C3092 " ~ "fabricación de bicicletas y de sillas de ruedas para inválidos." ,
                                cod_ciiu4d == "C3099 " ~ "fabricación de otros tipos de equipo de transporte n.c.p." ,
                                cod_ciiu4d == "C3100 " ~ "fabricación de muebles." ,
                                cod_ciiu4d == "C3211 " ~ "fabricación de joyas y artículos conexos." ,
                                cod_ciiu4d == "C3212 " ~ "fabricación de bisutería y artículos conexos." ,
                                cod_ciiu4d == "C3220 " ~ "fabricación de instrumentos musicales." ,
                                cod_ciiu4d == "C3230 " ~ "fabricación de artículos de deporte." ,
                                cod_ciiu4d == "C3240 " ~ "fabricación de juegos y juguetes." ,
                                cod_ciiu4d == "C3250 " ~ "fabricación de instrumentos y materiales médicos y odontológicos." ,
                                cod_ciiu4d == "C3290 " ~ "otras industrias manufactureras n.c.p." ,
                                cod_ciiu4d == "C331  " ~ "reparación de productos elaborados de metal, maquinaria y equipo." ,
                                cod_ciiu4d == "C3311 " ~ "reparación de productos elaborados de metal." ,
                                cod_ciiu4d == "C3312 " ~ "reparación de maquinaria." ,
                                cod_ciiu4d == "C3313 " ~ "reparación de equipo electrónico y óptico." ,
                                cod_ciiu4d == "C3314 " ~ "reparación de equipo eléctrico." ,
                                cod_ciiu4d == "C3315 " ~ "reparación de equipo de transporte, excepto vehículos automotores." ,
                                cod_ciiu4d == "C3319 " ~ "reparación de otros tipos de equipo." ,
                                cod_ciiu4d == "C3320 " ~ "instalación de maquinaria y equipo industriales." ,
                                cod_ciiu4d == "D3510 " ~ "generación, transmisión y distribución de energía eléctrica." ,
                                cod_ciiu4d == "D3520 " ~ "fabricación de gas; distribución de combustibles gaseosos por tuberías." ,
                                cod_ciiu4d == "D3530 " ~ "suministro de vapor y de aire acondicionado." ,
                                cod_ciiu4d == "E3600 " ~ "captación, tratamiento y distribución de agua." ,
                                cod_ciiu4d == "E3700 " ~ "evacuación de aguas residuales." ,
                                cod_ciiu4d == "E3811 " ~ "recolección de desechos no peligrosos." ,
                                cod_ciiu4d == "E3812 " ~ "recolección de desechos peligrosos." ,
                                cod_ciiu4d == "E3821 " ~ "tratamiento y eliminación de desechos no peligrosos." ,
                                cod_ciiu4d == "E3822 " ~ "tratamiento y eliminación de desechos peligrosos." ,
                                cod_ciiu4d == "E3830 " ~ "recuperación de materiales." ,
                                cod_ciiu4d == "E3900 " ~ "actividades de descontaminación y otros servicios de  gestión de desechos." ,
                                cod_ciiu4d == "F4100 " ~ "construcción de edificios." ,
                                cod_ciiu4d == "F4210 " ~ "construcción de carreteras y líneas de ferrocarril." ,
                                cod_ciiu4d == "F4220 " ~ "construcción de proyectos de servicios públicos." ,
                                cod_ciiu4d == "F4290 " ~ "construcción de otras obras de ingeniería civil." ,
                                cod_ciiu4d == "F4311 " ~ "demolición." ,
                                cod_ciiu4d == "F4312 " ~ "preparación del terreno." ,
                                cod_ciiu4d == "F4321 " ~ "instalaciones eléctricas." ,
                                cod_ciiu4d == "F4322 " ~ "fontanería (plomería, gasfitería) e instalación de calefacción y aire acondicionado." ,
                                cod_ciiu4d == "F4329 " ~ "otras instalaciones para obras de construcción." ,
                                cod_ciiu4d == "F4330 " ~ "terminación y acabado de edificios." ,
                                cod_ciiu4d == "F4390 " ~ "otras actividades especializadas de construcción." ,
                                cod_ciiu4d == "G4510 " ~ "venta de vehículos automotores." ,
                                cod_ciiu4d == "G4520 " ~ "mantenimiento y reparación de vehículos automotores." ,
                                cod_ciiu4d == "G4530 " ~ "venta de partes, piezas y accesorios para vehículos automotores." ,
                                cod_ciiu4d == "G4540 " ~ "venta, mantenimiento y reparación de motocicletas y de sus partes, piezas y accesorios." ,
                                cod_ciiu4d == "G4610 " ~ "venta al por mayor a cambio de una comisión o por contrato." ,
                                cod_ciiu4d == "G4620 " ~ "venta al por mayor de materias primas agropecuarias y animales vivos." ,
                                cod_ciiu4d == "G4630 " ~ "venta al por mayor de alimentos, bebidas y tabaco." ,
                                cod_ciiu4d == "G4641 " ~ "venta al por mayor de textiles, prendas de vestir y calzado." ,
                                cod_ciiu4d == "G4649 " ~ "venta al por mayor de otros enseres domésticos." ,
                                cod_ciiu4d == "G4651 " ~ "venta al por mayor de computadoras, equipo y programas informáticos." ,
                                cod_ciiu4d == "G4652 " ~ "venta al por mayor de equipo, partes y piezas electrónicos y de telecomunicaciones." ,
                                cod_ciiu4d == "G4653 " ~ "venta al por mayor de maquinaria, equipo y materiales agropecuarios." ,
                                cod_ciiu4d == "G4659 " ~ "venta al por mayor de otros tipos de maquinaria y equipo." ,
                                cod_ciiu4d == "G4661 " ~ "venta al por mayor de combustibles sólidos, líquidos y gaseosos y productos conexos." ,
                                cod_ciiu4d == "G4662 " ~ "venta al por mayor de metales y minerales metalíferos." ,
                                cod_ciiu4d == "G4663 " ~ "venta al por mayor de materiales para la construcción, artículos de ferretería, equipo, materiales de fontanería (plomería o gasfitería) y calefacción." ,
                                cod_ciiu4d == "G4669 " ~ "venta al por mayor de desperdicios, desechos, chatarra y otros productos n.c.p." ,
                                cod_ciiu4d == "G4690 " ~ "venta al por mayor de otros productos no especializado." ,
                                cod_ciiu4d == "G4711 " ~ "venta al por menor en comercios no especializados con predominio de la venta de alimentos, bebidas o tabaco." ,
                                cod_ciiu4d == "G4719 " ~ "otras actividades de venta al por menor en comercios no especializados." ,
                                cod_ciiu4d == "G4721 " ~ "venta al por menor de alimentos en comercios especializados." ,
                                cod_ciiu4d == "G4722 " ~ "venta al por menor de bebidas en comercios especializados." ,
                                cod_ciiu4d == "G4723 " ~ "venta al por menor de tabaco en comercios especializados." ,
                                cod_ciiu4d == "G4730 " ~ "venta al por menor de combustibles para vehículos automotores en comercios especializados." ,
                                cod_ciiu4d == "G4741 " ~ "venta al por menor de computadores, equipo periférico, programas informáticos y equipo de telecomunicaciones en comercios especializados." ,
                                cod_ciiu4d == "G4742 " ~ "venta al por menor de equipo de sonido y vídeo en comercios especializados." ,
                                cod_ciiu4d == "G4751 " ~ "venta al por menor de productos textiles en comercios especializados." ,
                                cod_ciiu4d == "G4752 " ~ "venta al por menor de artículos de ferretería, pinturas y productos de vidrio en comercios especializados." ,
                                cod_ciiu4d == "G4753 " ~ "venta al por menor de tapices, alfombras y cubrimientos para paredes y pisos en comercios especializados." ,
                                cod_ciiu4d == "G4759 " ~ "venta al por menor de aparatos eléctricos de uso doméstico, muebles, equipo de iluminación y otros enseres domésticos en comercios especializados." ,
                                cod_ciiu4d == "G4761 " ~ "venta al por menor de libros, periódicos y artículos de papelería en comercios especializados." ,
                                cod_ciiu4d == "G4762 " ~ "venta al por menor de grabaciones de música y de vídeo en comercios especializados." ,
                                cod_ciiu4d == "G4763 " ~ "venta al por menor de equipo de deporte en comercios especializados." ,
                                cod_ciiu4d == "G4764 " ~ "venta al por menor de juegos y juguetes en comercios especializados." ,
                                cod_ciiu4d == "G4771 " ~ "venta al por menor de prendas de vestir, calzado y artículos de cuero en comercios especializados." ,
                                cod_ciiu4d == "G4772 " ~ "venta al por menor de productos farmacéuticos y medicinales, cosméticos y artículos de tocador en comercios especializados." ,
                                cod_ciiu4d == "G4773 " ~ "venta al por menor de otros productos nuevos en comercios especializados." ,
                                cod_ciiu4d == "G4774 " ~ "venta al por menor de artículos de segunda mano en comercios especializados." ,
                                cod_ciiu4d == "G4781 " ~ "venta al por menor de alimentos, bebidas y tabaco en puestos de venta y mercados." ,
                                cod_ciiu4d == "G4782 " ~ "venta al por menor de productos textiles, prendas de vestir y calzado en puestos de venta y mercados." ,
                                cod_ciiu4d == "G4789 " ~ "venta al por menor de otros productos en puestos de venta y mercados." ,
                                cod_ciiu4d == "G4791 " ~ "venta al por menor por correo y por internet." ,
                                cod_ciiu4d == "G4799 " ~ "otras actividades de venta al por menor no realizadas en comercios, puestos de venta o mercados." ,
                                cod_ciiu4d == "H4911 " ~ "transporte interurbano de pasajeros por ferrocarril." ,
                                cod_ciiu4d == "H4912 " ~ "transporte de carga por ferrocarril." ,
                                cod_ciiu4d == "H4921 " ~ "transporte urbano y suburbano de pasajeros por vía terrestre." ,
                                cod_ciiu4d == "H4922 " ~ "otras actividades de transporte de pasajeros por vía terrestre." ,
                                cod_ciiu4d == "H4923 " ~ "transporte de carga por carretera." ,
                                cod_ciiu4d == "H4930 " ~ "transporte por tuberías." ,
                                cod_ciiu4d == "H5011 " ~ "transporte de pasajeros marítimo y de cabotaje." ,
                                cod_ciiu4d == "H5012 " ~ "transporte de carga marítimo y de cabotaje." ,
                                cod_ciiu4d == "H5021 " ~ "transporte de pasajeros por vías de navegación interiores." ,
                                cod_ciiu4d == "H5022 " ~ "transporte de carga, por vías de navegación interiores." ,
                                cod_ciiu4d == "H5110 " ~ "transporte de pasajeros por vía aérea." ,
                                cod_ciiu4d == "H5120 " ~ "transporte de carga por vía aérea." ,
                                cod_ciiu4d == "H5210 " ~ "almacenamiento y depósito." ,
                                cod_ciiu4d == "H5221 " ~ "actividades de servicios vinculadas al transporte terrestre." ,
                                cod_ciiu4d == "H5222 " ~ "actividades de servicios vinculadas al transporte acuático." ,
                                cod_ciiu4d == "H5223 " ~ "actividades de servicios vinculadas al transporte aéreo." ,
                                cod_ciiu4d == "H5224 " ~ "manipulación de carga." ,
                                cod_ciiu4d == "H5229 " ~ "otras actividades de apoyo al transporte." ,
                                cod_ciiu4d == "H5310 " ~ "actividades postales." ,
                                cod_ciiu4d == "H5320 " ~ "actividades de mensajería." ,
                                cod_ciiu4d == "I5510 " ~ "actividades de alojamiento para estancias cortas." ,
                                cod_ciiu4d == "I5520 " ~ "actividades de campamentos, parques de vehículos de recreo y parques de caravanas." ,
                                cod_ciiu4d == "I5590 " ~ "otras actividades de alojamiento." ,
                                cod_ciiu4d == "I5610 " ~ "actividades de restaurantes y de servicio móvil de comidas." ,
                                cod_ciiu4d == "I5621 " ~ "suministro de comidas por encargo." ,
                                cod_ciiu4d == "I5629 " ~ "otras actividades de servicio de comidas." ,
                                cod_ciiu4d == "I5630 " ~ "actividades de servicio de bebidas." ,
                                cod_ciiu4d == "J5811 " ~ "publicación de libros, periódicos y otras actividades de publicación." ,
                                cod_ciiu4d == "J5812 " ~ "publicación de directorios y de listas de correo." ,
                                cod_ciiu4d == "J5813 " ~ "publicación de periódicos, diarios y revistas." ,
                                cod_ciiu4d == "J5819 " ~ "otras publicaciones." ,
                                cod_ciiu4d == "J5820 " ~ "publicación de programas informáticos." ,
                                cod_ciiu4d == "J5911 " ~ "actividades de producción de películas cinematográficas, vídeos y programas de televisión." ,
                                cod_ciiu4d == "J5912 " ~ "actividades de postproducción de películas cinematográficas, vídeos y programas de televisión." ,
                                cod_ciiu4d == "J5913 " ~ "actividades de distribución de películas cinematográficas, vídeos y programas de televisión." ,
                                cod_ciiu4d == "J5914 " ~ "actividades de exhibición de películas cinematográficas y cintas de vídeo." ,
                                cod_ciiu4d == "J5920 " ~ "actividades de grabación de sonido y edición de música." ,
                                cod_ciiu4d == "J6010 " ~ "transmisiones de radio." ,
                                cod_ciiu4d == "J6020 " ~ "programación y transmisiones de televisión." ,
                                cod_ciiu4d == "J6110 " ~ "actividades de telecomunicaciones alámbrica." ,
                                cod_ciiu4d == "J6120 " ~ "actividades de telecomunicaciones inalámbricas." ,
                                cod_ciiu4d == "J6130 " ~ "actividades de telecomunicaciones por satélite." ,
                                cod_ciiu4d == "J6190 " ~ "otras actividades de telecomunicaciones." ,
                                cod_ciiu4d == "J6201 " ~ "actividades de programación informática." ,
                                cod_ciiu4d == "J6202 " ~ "actividades de consultoría de informática y de gestión de instalaciones informáticas." ,
                                cod_ciiu4d == "J6209 " ~ "otras actividades de tecnología de la información y de servicios informáticos." ,
                                cod_ciiu4d == "J6311 " ~ "procesamiento de datos, hospedaje y actividades conexas." ,
                                cod_ciiu4d == "J6312 " ~ "portales web." ,
                                cod_ciiu4d == "J6391 " ~ "actividades de agencias de noticias." ,
                                cod_ciiu4d == "J6399 " ~ "otras actividades de servicios de información n.c.p." ,
                                cod_ciiu4d == "K6411 " ~ "banca central." ,
                                cod_ciiu4d == "K6419 " ~ "otros tipos de intermediación monetaria." ,
                                cod_ciiu4d == "K6420 " ~ "actividades de sociedades de cartera." ,
                                cod_ciiu4d == "K6430 " ~ "fondos y sociedades de inversión y entidades financieras similares." ,
                                cod_ciiu4d == "K6491 " ~ "arrendamiento financiero." ,
                                cod_ciiu4d == "K6492 " ~ "otras actividades de concesión de crédito." ,
                                cod_ciiu4d == "K6499 " ~ "otras actividades de servicios financieros, excepto las de seguros y fondos de pensiones, n.c.p." ,
                                cod_ciiu4d == "K6511 " ~ "seguros de vida." ,
                                cod_ciiu4d == "K6512 " ~ "seguros generales." ,
                                cod_ciiu4d == "K6520 " ~ "reaseguros." ,
                                cod_ciiu4d == "K6530 " ~ "fondos de pensión." ,
                                cod_ciiu4d == "K6611 " ~ "administración de mercados financieros." ,
                                cod_ciiu4d == "K6612 " ~ "corretaje de valores y de contratos de productos básicos." ,
                                cod_ciiu4d == "K6619 " ~ "otras actividades auxiliares a las actividades de servicios financieros." ,
                                cod_ciiu4d == "K6621 " ~ "evaluación de riesgos y daños." ,
                                cod_ciiu4d == "K6622 " ~ "actividades de los agentes y corredores de seguro." ,
                                cod_ciiu4d == "K6629 " ~ "otras actividades auxiliares de seguros y fondos de pensiones." ,
                                cod_ciiu4d == "K6630 " ~ "actividades de gestión de fondos." ,
                                cod_ciiu4d == "L6810 " ~ "actividades inmobiliarias realizadas con bienes propios o arrendados." ,
                                cod_ciiu4d == "L6820 " ~ "actividades inmobiliarias realizadas a cambio de una retribución o por contrato." ,
                                cod_ciiu4d == "M6910 " ~ "actividades jurídicas." ,
                                cod_ciiu4d == "M6920 " ~ "actividades de contabilidad, teneduría de libros y auditorias; consultoría fiscal." ,
                                cod_ciiu4d == "M7010 " ~ "actividades de oficinas principales." ,
                                cod_ciiu4d == "M7020 " ~ "actividades de consultoría de gestión." ,
                                cod_ciiu4d == "M7110 " ~ "actividades de arquitectura e ingeniería y actividades conexas de consultoría técnica." ,
                                cod_ciiu4d == "M7120 " ~ "ensayos y análisis técnicos." ,
                                cod_ciiu4d == "M7210 " ~ "investigaciones y desarrollo experimental en el campo de las ciencias naturales y la ingeniería." ,
                                cod_ciiu4d == "M7220 " ~ "investigaciones y desarrollo experimental en el campo de las ciencias sociales y las humanidades." ,
                                cod_ciiu4d == "M7310 " ~ "publicidad." ,
                                cod_ciiu4d == "M7320 " ~ "estudios de mercado y encuestas de opinión pública." ,
                                cod_ciiu4d == "M7410 " ~ "actividades especializadas de diseño." ,
                                cod_ciiu4d == "M7420 " ~ "actividades de fotografía." ,
                                cod_ciiu4d == "M7490 " ~ "otras actividades profesionales, científicas y técnicas n.c.p." ,
                                cod_ciiu4d == "M7500 " ~ "actividades veterinarias." ,
                                cod_ciiu4d == "N7710 " ~ "alquiler de vehículos automotores." ,
                                cod_ciiu4d == "N7721 " ~ "alquiler de equipo recreativo y deportivo." ,
                                cod_ciiu4d == "N7722 " ~ "alquiler de cintas de video y discos." ,
                                cod_ciiu4d == "N7729 " ~ "alquiler otros efectos personales y artículos de uso domésticos." ,
                                cod_ciiu4d == "N7730 " ~ "alquiler de otros tipos de maquinaria, equipo y bienes tangibles." ,
                                cod_ciiu4d == "N7740 " ~ "arrendamiento de propiedad intelectual y productos similares, excepto obras protegidas por derechos de autor." ,
                                cod_ciiu4d == "N7810 " ~ "actividades de agencias de empleo." ,
                                cod_ciiu4d == "N7820 " ~ "actividades de agencias de empleo temporal." ,
                                cod_ciiu4d == "N7830 " ~ "otras actividades de dotación de recursos humanos." ,
                                cod_ciiu4d == "N7911 " ~ "actividades de agencias de viajes." ,
                                cod_ciiu4d == "N7912 " ~ "actividades de operadores turísticos." ,
                                cod_ciiu4d == "N7990 " ~ "otros servicios de reservas y actividades conexas." ,
                                cod_ciiu4d == "N8010 " ~ "actividades de seguridad privada." ,
                                cod_ciiu4d == "N8020 " ~ "actividades de servicios de sistemas de seguridad." ,
                                cod_ciiu4d == "N8030 " ~ "actividades de investigación." ,
                                cod_ciiu4d == "N8110 " ~ "actividades combinadas de apoyo a instalaciones." ,
                                cod_ciiu4d == "N8121 " ~ "limpieza general de edificios." ,
                                cod_ciiu4d == "N8129 " ~ "otras actividades de limpieza de edificios e instalaciones industriales." ,
                                cod_ciiu4d == "N8130 " ~ "actividades de paisajismo y servicios de mantenimiento conexos." ,
                                cod_ciiu4d == "N8211 " ~ "actividades combinadas de servicios administrativos de oficina." ,
                                cod_ciiu4d == "N8219 " ~ "fotocopiado, preparación de documentos y otras actividades especializadas de apoyo de oficina." ,
                                cod_ciiu4d == "N8220 " ~ "actividades de centros de llamadas." ,
                                cod_ciiu4d == "N8230 " ~ "organización de convenciones y exposiciones comerciales." ,
                                cod_ciiu4d == "N8291 " ~ "actividades de agencias de cobro y agencias de calificación crediticia." ,
                                cod_ciiu4d == "N8292 " ~ "actividades de envasado y empaquetado." ,
                                cod_ciiu4d == "N8299 " ~ "otras actividades de servicios de apoyo a empresas n.c.p." ,
                                cod_ciiu4d == "O8411 " ~ "actividades de la administración pública en general." ,
                                cod_ciiu4d == "O8412 " ~ "regulación de las actividades de organismos que prestan servicios sanitarios, educativos, culturales y otros servicios sociales, excepto servicios de seguridad social." ,
                                cod_ciiu4d == "O8413 " ~ "regulación y facilitación de la actividad económica." ,
                                cod_ciiu4d == "O8421 " ~ "relaciones exteriores." ,
                                cod_ciiu4d == "O8422 " ~ "actividades de defensa." ,
                                cod_ciiu4d == "O8423 " ~ "actividades de mantenimiento del orden público y de seguridad." ,
                                cod_ciiu4d == "O8430 " ~ "actividades de planes de seguridad social de afiliación obligatoria." ,
                                cod_ciiu4d == "P8510 " ~ "enseñanza preprimaria y primaria." ,
                                cod_ciiu4d == "P8521 " ~ "enseñanza secundaria de formación general." ,
                                cod_ciiu4d == "P8522 " ~ "enseñanza de formación técnica y profesional." ,
                                cod_ciiu4d == "P8530 " ~ "enseñanza superior." ,
                                cod_ciiu4d == "P8541 " ~ "enseñanza deportiva y recreativa." ,
                                cod_ciiu4d == "P8542 " ~ "enseñanza cultural." ,
                                cod_ciiu4d == "P8549 " ~ "otros tipos de enseñanza n.c.p." ,
                                cod_ciiu4d == "P8550 " ~ "actividades de apoyo a la enseñanza." ,
                                cod_ciiu4d == "Q8610 " ~ "actividades de hospitales y clínicas." ,
                                cod_ciiu4d == "Q8620 " ~ "actividades de médicos y odontólogos." ,
                                cod_ciiu4d == "Q8690 " ~ "otras actividades de atención de la salud humana." ,
                                cod_ciiu4d == "Q8710 " ~ "actividades de atención de enfermería en instituciones." ,
                                cod_ciiu4d == "Q8720 " ~ "actividades de atención en instituciones para personas con retraso mental, enfermos mentales y toxicómanos." ,
                                cod_ciiu4d == "Q8730 " ~ "actividades de atención en instituciones para personas de edad y personas con discapacidad." ,
                                cod_ciiu4d == "Q8790 " ~ "otras actividades de atención en instituciones." ,
                                cod_ciiu4d == "Q8810 " ~ "actividades de asistencia social sin alojamiento para personas de edad y personas con discapacidad." ,
                                cod_ciiu4d == "Q8890 " ~ "otras actividades de asistencia social sin alojamiento." ,
                                cod_ciiu4d == "R9000 " ~ "actividades creativas, artísticas y de entretenimiento." ,
                                cod_ciiu4d == "R9101 " ~ "actividades de bibliotecas y archivos." ,
                                cod_ciiu4d == "R9102 " ~ "actividades de museos y gestión de lugares y edificios históricos." ,
                                cod_ciiu4d == "R9103 " ~ "actividades de jardines botánicos y zoológicos y reservas naturales." ,
                                cod_ciiu4d == "R9200 " ~ "actividades de juegos de azar y apuestas." ,
                                cod_ciiu4d == "R9311 " ~ "explotación de instalaciones deportivas." ,
                                cod_ciiu4d == "R9312 " ~ "actividades de clubes deportivos." ,
                                cod_ciiu4d == "R9319 " ~ "otras actividades deportivas." ,
                                cod_ciiu4d == "R9321 " ~ "actividades de parques de atracciones y parques temáticos." ,
                                cod_ciiu4d == "R9329 " ~ "otras actividades de esparcimiento y recreativas n.c.p." ,
                                cod_ciiu4d == "S9411 " ~ "actividades de asociaciones empresariales y de empleadores." ,
                                cod_ciiu4d == "S9412 " ~ "actividades de asociaciones profesionales." ,
                                cod_ciiu4d == "S9420 " ~ "actividades de sindicatos." ,
                                cod_ciiu4d == "S9491 " ~ "actividades de organizaciones religiosas." ,
                                cod_ciiu4d == "S9492 " ~ "actividades de organizaciones políticas." ,
                                cod_ciiu4d == "S9499 " ~ "actividades de otras asociaciones n.c.p." ,
                                cod_ciiu4d == "S9511 " ~ "reparación de computadoras y equipo periférico." ,
                                cod_ciiu4d == "S9512 " ~ "reparación de equipo de comunicaciones." ,
                                cod_ciiu4d == "S9521 " ~ "reparación de aparatos electrónicos de consumo." ,
                                cod_ciiu4d == "S9522 " ~ "reparación de aparatos de uso doméstico y equipo doméstico y de jardinería." ,
                                cod_ciiu4d == "S9523 " ~ "reparación de calzado y artículos de cuero." ,
                                cod_ciiu4d == "S9524 " ~ "reparación de muebles y accesorios domésticos." ,
                                cod_ciiu4d == "S9529 " ~ "reparación de otros bienes personales y enseres domésticos." ,
                                cod_ciiu4d == "S9601 " ~ "lavado y limpieza, incluida la limpieza en seco, de productos textiles y de piel." ,
                                cod_ciiu4d == "S9602 " ~ "actividades de peluquería y otros tratamientos de belleza." ,
                                cod_ciiu4d == "S9603 " ~ "pompas fúnebres y actividades conexas." ,
                                cod_ciiu4d == "S9609 " ~ "otras actividades de servicios personales n.c.p." ,
                                cod_ciiu4d == "T9700 " ~ "actividades de los hogares como empleadores de personal doméstico." ,
                                cod_ciiu4d == "T9810 " ~ "actividades no diferenciadas de los hogares como productores de bienes y servicios para uso propio." ,
                                cod_ciiu4d == "T9820 " ~ "actividades no diferenciadas de los hogares como productores de servicios para uso propio." ,
                                cod_ciiu4d == "U9900 " ~ "actividades de organizaciones y órganos extraterritoriales."
                                
  ))  


data <- data %>% 
  mutate(cod_sector=5) %>% 
  mutate(des_sector="") %>% 
  mutate(cod_region="")

data <- data %>% 
  mutate(cod_sector = case_when(cod_letra=="C"~1,
                                cod_letra=="B"~2,
                                cod_letra=="G"~3,
                                cod_letra=="F"~4))

data <- data %>% 
  mutate(des_sector = case_when(cod_sector==1~"Manufactura",
                                cod_sector==2~"Mineria",
                                cod_sector==3~"Comercio",
                                cod_sector==4~"Construcción",
                                cod_sector==5~"Servicios"))

data$cod_sector <- with(data, as.character(cod_sector))



# ********************************
# *      CREACIÓN DE REGIÓN      *
# ********************************

data <- data %>% 
  mutate(cod_region = case_when(provincia=="01"~1,
                                provincia=="02"~1,
                                provincia=="03"~1,
                                provincia=="04"~1,
                                provincia=="05"~1,
                                provincia=="06"~1,
                                provincia=="07"~2,
                                provincia=="08"~2,
                                provincia=="09"~2,
                                provincia=="10"~1,
                                provincia=="11"~1,
                                provincia=="12"~2,
                                provincia=="13"~2,
                                provincia=="14"~3,
                                provincia=="15"~3,
                                provincia=="16"~3,
                                provincia=="17"~1,
                                provincia=="18"~1,
                                provincia=="19"~1,
                                provincia=="20"~4,
                                provincia=="21"~3,
                                provincia=="22"~3,
                                provincia=="23"~1,
                                provincia=="24"~2))


data <- mutate(data, des_region="")
data$des_region <- with(data, ifelse(cod_region==1,"Sierra",des_region))
data$des_region <- with(data, ifelse(cod_region==2,"Costa",des_region))
data$des_region <- with(data, ifelse(cod_region==3,"Amazonia",des_region))
data$des_region <- with(data, ifelse(cod_region==4,"Insular",des_region))
data$cod_region <- with(data, as.character(cod_region))



# ********************************
# *      TAMAÑO DE EMPRESA       *
# ********************************

data <- mutate(data, des_tamano="")
data$des_tamano <- with(data, ifelse(cod_tamano==1,"Micro empresa",des_tamano))
data$des_tamano <- with(data, ifelse(cod_tamano==2,"Pequeña empresa",des_tamano))
data$des_tamano <- with(data, ifelse(cod_tamano==3,"Mediana Empresa A",des_tamano))
data$des_tamano <- with(data, ifelse(cod_tamano==4,"Mediana Empresa B",des_tamano))
data$des_tamano <- with(data, ifelse(cod_tamano==5,"Grande Empresa",des_tamano))
data$cod_tamano <- with(data, as.character(cod_tamano))

# *****************************
# *        PRODUCCIÓN         *
# *****************************

# CÁLCULO DE COMPONENTES DE LA PRODUCCIÓN

# **** Ventas Netas por Tipo de Producto/Servicio ****
data <- data %>%
  rowwise() %>%
  mutate(Vbp = v2001,
         Vbc = sum(v2002, v2003, na.rm = T),
         Vns = v2004)
label(data$Vbp) <- "Ventas netas de bienes producidos por la empresa"
label(data$Vbc) <- "Ventas netas de bienes no producidos (mercaderías) por la empresa"
label(data$Vns) <- "Ventas netas de servicios"

# **** Total del costo de compras netas de bienes no producidos ****
data <- data %>%
  rowwise() %>%
  mutate(Cbnp = sum(v1049, v1052, na.rm = T))
label(data$Cbnp) <- "Total del costo de compras netas de bienes no producidos"


# **** Otros ingresos ****
# Incluye Otros, se eliminó variables Arrendamiento Mercantil y Otros ingresos no operacionales y se incluye provenientes del exterior
data <- data %>%
  rowwise() %>%
  mutate(oingxser = sum(v1028, v1027, na.rm = T))
label(data$oingxser) <- "Otros ingresos por servicios no operacionales"


# **** Variación de existencias de producción ****
data <- data %>%
  rowwise() %>%
  mutate(varexisbt = sum(v1066, v1070, -v1064, -v1068, na.rm = T), # Variación existencias artículos producidos para la venta
         varexism = sum(v1054, -v1047, na.rm = T)) # Variación existencias mercaderías
label(data$varexisbt) <- "Variación de existencias de artículos producidos para la venta"
label(data$varexism) <- "Variación de existencias de artículos para la venta sin transformación (Mercaderías)"


# **** Total construcciones de activos por cuenta propia ****
data <- mutate(data, tcaf = v4146)
label(data$tcaf) <- "Construcciones de activos fijos por cuenta propia"


# **** Cálculo de producción ****
data <- data %>%
  rowwise() %>%
  mutate(prodtota = sum(Vbp, Vbc, Vns, -Cbnp, oingxser, varexisbt, varexism, tcaf, na.rm = T))
label(data$prodtota) <- "Producción Total Empresarial"


# *****************************
# *    CONSUMO INTERMEDIO     *
# *****************************

# CALCULO DE COMPONENTES DEL CONSUMO INTERMEDIO

# **** Total Insumos ****

# **** Materia prima utilizada ****
data <- data %>%
  rowwise() %>%
  mutate(matprima = sum(v1056, v1058, v1060, -v1062, na.rm = T))
label(data$matprima) <- "Materia prima utilizada"

# **** Repuestos y Accesorios ****
data <- mutate(data, repacces = v1141)
label(data$repacces) <- "Suministros, herramientas, materiales y repuestos"


# **** Total Insumos ****
data <- data %>%
  rowwise() %>%
  mutate(totinsum =	sum(matprima, repacces, na.rm=T))
label(data$totinsum) <- "Total insumos"


# **** Gastos ****
data <- data %>%
  rowwise() %>%
  mutate(servbanc = sum(v1186, na.rm = T),
         gasxalqu = sum(v1138, na.rm = T),
         gasopera =	sum(v1124, v1127, v1130, v1133, v1146, v1152, v1161, v1173, v1091, v1094, gasxalqu, na.rm = T),
         otrgasop =	sum(v1135, v1155, v1164, v1167, v1178, v1200, servbanc, na.rm = T),
         totgadop = sum(gasopera, otrgasop, na.rm = T))
label(data$servbanc) <- "Gastos financieros"
label(data$gasxalqu) <- "Arrendamientos"
label(data$gasopera) <- "Gastos operacionales"
label(data$otrgasop) <- "Otros gastos operacionales"
label(data$totgadop) <- "Total gastos operacionales"


# **** Cálculo del Consumo Intermedio ****
data <- data %>%
  rowwise() %>%
  mutate(consint = sum(totinsum, gasopera, otrgasop, na.rm = T))
label(data$consint) <- "Consumo Intermedio Empresarial"


# *****************************
# *      VALOR AGREGADO       *
# *****************************

data <- data %>%
  rowwise() %>%
  mutate(valag = sum(prodtota, -consint, na.rm = T))
label(data$valag) <- "Valor agregado empresarial"


# *****************************
# *      DEPRECIACIONES       *
# *****************************

data <- mutate(data, deprecia = v4152)
label(data$deprecia) <- "Depreciaciones"


# *****************************
# *      REMUNERACIONES       *
# *****************************

data <- data %>%
  rowwise() %>%
  mutate(totremun =	sum(v1082, v1085, v1088, v1097, v1100, v1103, v1205, na.rm = T))
label(data$totremun) <- "Remuneraciones empresariales"


# *****************************
# *  TOTAL PERSONAL OCUPADO   *
# *****************************

data <- mutate(data, totalpeoc = v5090)

label(data$totalpeoc) <- "Personal ocupado empresarial"


# ***********************************
# * FORMACIÓN BRUTA DE CAPITAL FIJO *
# ***********************************

# **** Cálculo de activos fijos ****
# Compra de bienes nuevos en el 2024
data <- data %>%
  rowwise() %>%
  mutate(adqmyenv = sum(v4039, v4053, na.rm = T), # 1 Maquinaria y equipo en montaje y en tránsito + maquinaria y equipo + instalaciones
         adqeiycnv = sum(v4013, v4028, na.rm = T), # 2 Construcciones en curso + Edificios
         adqmeeofnv = v4063, # 3 Muebles y Enseres y Equipos de Oficina
         adqecnv = v4077, # 4 Equipos de computación
         adqvnv = v4091, # 5 Vehículos y equipos de transporte
         adqecmnv = v4105, # 6 Equipo caminero movil
         adqacbinv =	v4119, # 7 Activos biologicos
         adqoafnv = v4133, # 8 Otros Activos Fijos
         totadqnv = sum(adqmyenv, adqeiycnv, adqmeeofnv, adqecnv, adqvnv, adqecmnv, adqacbinv, adqoafnv, na.rm = T)) # Total de Adquisiciones
label(data$adqmyenv) <- "Adquisiciones de maquinaria, equipo e instalaciones nuevos"
label(data$adqeiycnv) <- "Adquisición de edificios y otras construcciones nuevos"
label(data$adqmeeofnv) <- "Adquisición de muebles y enseres y Equipos de Oficina nuevos"
label(data$adqecnv) <- "Adquisición de equipos de computación nuevos"
label(data$adqvnv) <- "Adquisición de vehículos y equipos de transporte nuevos"
label(data$adqecmnv) <- "Adquisición de equipo caminero móvil nuevos"
label(data$adqacbinv) <- "Adquisición de activos biológicos nuevos"
label(data$adqoafnv) <- "Adquisición de otros activos fijos tangibles nuevos"
label(data$totadqnv) <- "Total Adquisición de activos fijos tangibles nuevos"

# **********************************

data <- data %>%
  rowwise() %>%
  mutate(comactnu =	v4147,
         comactusad = sum(v4148, -v4003, na.rm = T),
         venactfi = sum(v4149, v4150, -v4004, -v4005, na.rm = T), #Ventas de activos fijos
         comnette =	sum(v4003, -v4004, -v4005, na.rm = T),
         revajust =	v4151,
         tcaf = v4146)
label(data$comactnu) <- "Compra de activos fijos nuevos"
label(data$comactusad) <- "Compra de activos fijos usados"
label(data$venactfi) <- "Venta y bajas de activos fijos"
label(data$comnette) <- "Compras netas de activos fijos no producidos - Terrenos"
label(data$revajust) <- "Revalorización y ajuste por valor de mercado en el año"
label(data$tcaf) <- "Construcción de activos fijos por cuenta propia"

# **** Adquisiciones ****
data <- data %>%
  rowwise() %>%
  mutate(totadquisi = sum(totadqnv, comactusad, na.rm = T),
         totdispos = venactfi, na.rm = T)
label(data$totadquisi) <- "Total de adquisiciones"
label(data$totdispos) <- "Total disposiciones (-)"

# *****************************
# * FORMACION DE CAPITAL FIJO *
# *****************************

data <- data %>%
  rowwise() %>%
  mutate( fbkf_1 =	sum(totadquisi, -totdispos, tcaf, na.rm = T))
label(data$fbkf_1) <- "Formación bruta de capital fijo empresarial"


# *****************************
# * FORMACIÓN DE CAPITAL FIJO *
# *****************************

# **** Variación de existencias del consumo intermedio ****
data <- data %>%
  rowwise() %>%
  mutate(varexisci= sum(v1062, -v1056, na.rm = T),
         totexi= sum(varexisbt, varexism, varexisci, na.rm = T),
         fbk = sum(fbkf_1, totexi, na.rm = T))
label(data$varexisci) <- "Variación de existencias de materia prima"
label(data$totexi) <- "Variación de existencias"
label(data$fbk) <- "Formación de capital fijo Empresarial"


# **** OTRAS REMUNERACIONES ****
data <- data %>%
  rowwise() %>%
  mutate(otrrem = sum(v1097, v1100, v1103, v1205, na.rm=T))
label(data$otrrem) <- "Otras remuneraciones"


# **** Compra y venta de mercaderías ****
data <- data %>%
  rowwise() %>%
  mutate(v_merc=sum(v2002, v2003, na.rm = T),
         c_merc=sum(v1049, v1052, na.rm = T))
label(data$v_merc) <- "Venta de bienes comercializados por la empresa"
label(data$c_merc) <- "Compras netas de mercaderías"


data <- mutate(data, k=1)
label(data$k) <- "Total Nacional"
label(data$f_exp) <- "Factor de expansión"

