A3.2
2024-10-08
library(officer)
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(readxl)##
## Attaching package: 'readxl'## The following object is masked from 'package:officer':
##
## read_xlsxlibrary(magrittr)
library(ggplot2)
MIP_49 <- read_excel("~/Downloads/DERI/7mo/Dinamica/A3.2/MIP_49.xlsm", sheet = "Tabulado")
MIP_49_2 <- read_excel("~/Downloads/DERI/7mo/Dinamica/A3.2/MIP_49.xlsm", sheet = "Tabulado2")Pregunta 1
X <- MIP_49[,1]
DF <- MIP_49[,22]
x <- MIP_49[,c(2:21)]
tX <- t(X)
a <- sweep(x, 2, tX, "/") #Coeficiente de MIP
Id = diag(1, nrow = 20)
aL <- solve(Id - a) #aL coeficiente de Leontiff / interrelacion total
EDC = colSums(aL) #Indice de dispersion de demanda, encadenamientos hacia adelante
EDCk = EDC/mean(EDC)
EDCk## [1] 1.0573726 1.0075159 0.9616262 1.2054900 1.0977869 0.9107823 0.9013177
## [8] 1.0035968 1.0725182 1.0580281 0.8156409 0.9305823 1.1251490 0.9336891
## [15] 0.8502004 1.0362611 1.0020936 1.0531228 0.9540608 1.0231653EDR = rowSums(aL) #Indice de dispersion de oferta, encadenamientos hacia atras
EDRk = EDR/mean(EDR)
t(EDRk)## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza
## [1,] 0.9389028
## 21 - Minería
## [1,] 0.8808883
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final
## [1,] 0.9458046
## 23 - Construcción 31-33 - Industrias manufactureras
## [1,] 0.8686232 2.417271
## 43 - Comercio al por mayor 46 - Comercio al por menor
## [1,] 1.029677 1.028826
## 48-49 - Transportes, correos y almacenamiento
## [1,] 0.9885228
## 51 - Información en medios masivos 52 - Servicios financieros y de seguros
## [1,] 0.9259019 0.9949904
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles
## [1,] 1.081696
## 54 - Servicios profesionales, científicos y técnicos 55 - Corporativos
## [1,] 1.054527 0.9078511
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación
## [1,] 1.291764
## 61 - Servicios educativos 62 - Servicios de salud y de asistencia social
## [1,] 0.7554517 0.7837693
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos
## [1,] 0.7487236
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas
## [1,] 0.7798288
## 81 - Otros servicios excepto actividades gubernamentales
## [1,] 0.829237
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales
## [1,] 0.7477418#Cambiar DF
DFn = DF
Xn = as.matrix(aL)%*%as.matrix(DFn)
Xn## DF - Demanda final
## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza 1240509.9
## 21 - Minería 1461180.4
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final 735834.9
## 23 - Construcción 2963263.0
## 31-33 - Industrias manufactureras 15972895.1
## 43 - Comercio al por mayor 2894323.7
## 46 - Comercio al por menor 2890288.2
## 48-49 - Transportes, correos y almacenamiento 2690172.2
## 51 - Información en medios masivos 666671.0
## 52 - Servicios financieros y de seguros 1371791.7
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles 2341156.8
## 54 - Servicios profesionales, científicos y técnicos 585847.0
## 55 - Corporativos 213764.2
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación 1030398.2
## 61 - Servicios educativos 1019391.8
## 62 - Servicios de salud y de asistencia social 852809.1
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos 179147.9
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas 930212.2
## 81 - Otros servicios excepto actividades gubernamentales 613645.4
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales 1305939.3Pregunta 2
clasificar_sector <- function(EDC_val, EDR_val) {
if (EDC_val > 1 && EDR_val > 1) {
return("Sectores clave")
} else if (EDC_val > 1 && EDR_val < 1) {
return("Sectores base")
} else if (EDC_val < 1 && EDR_val > 1) {
return("Sectores impulsor")
} else {
return("Sectores independientes")
}
}
# Asumiendo que tienes EDCk y EDRk en formato de vector
clasificaciones <- sapply(1:length(EDCk), function(i) {
clasificar_sector(EDCk[i], EDRk[i])
})
# Crear un data frame con los resultados
resultados <- data.frame(
Sector = rownames(aL), # Asegúrate de que los nombres de los sectores estén en las filas
EDCk = EDCk,
EDRk = EDRk,
Clasificación = clasificaciones
)
# Visualizar los resultados
print(resultados)## Sector
## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza
## 21 - Minería 21 - Minería
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final
## 23 - Construcción 23 - Construcción
## 31-33 - Industrias manufactureras 31-33 - Industrias manufactureras
## 43 - Comercio al por mayor 43 - Comercio al por mayor
## 46 - Comercio al por menor 46 - Comercio al por menor
## 48-49 - Transportes, correos y almacenamiento 48-49 - Transportes, correos y almacenamiento
## 51 - Información en medios masivos 51 - Información en medios masivos
## 52 - Servicios financieros y de seguros 52 - Servicios financieros y de seguros
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles
## 54 - Servicios profesionales, científicos y técnicos 54 - Servicios profesionales, científicos y técnicos
## 55 - Corporativos 55 - Corporativos
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación
## 61 - Servicios educativos 61 - Servicios educativos
## 62 - Servicios de salud y de asistencia social 62 - Servicios de salud y de asistencia social
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas
## 81 - Otros servicios excepto actividades gubernamentales 81 - Otros servicios excepto actividades gubernamentales
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales
## EDCk
## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza 1.0573726
## 21 - Minería 1.0075159
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final 0.9616262
## 23 - Construcción 1.2054900
## 31-33 - Industrias manufactureras 1.0977869
## 43 - Comercio al por mayor 0.9107823
## 46 - Comercio al por menor 0.9013177
## 48-49 - Transportes, correos y almacenamiento 1.0035968
## 51 - Información en medios masivos 1.0725182
## 52 - Servicios financieros y de seguros 1.0580281
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles 0.8156409
## 54 - Servicios profesionales, científicos y técnicos 0.9305823
## 55 - Corporativos 1.1251490
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación 0.9336891
## 61 - Servicios educativos 0.8502004
## 62 - Servicios de salud y de asistencia social 1.0362611
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos 1.0020936
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas 1.0531228
## 81 - Otros servicios excepto actividades gubernamentales 0.9540608
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales 1.0231653
## EDRk
## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza 0.9389028
## 21 - Minería 0.8808883
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final 0.9458046
## 23 - Construcción 0.8686232
## 31-33 - Industrias manufactureras 2.4172714
## 43 - Comercio al por mayor 1.0296774
## 46 - Comercio al por menor 1.0288264
## 48-49 - Transportes, correos y almacenamiento 0.9885228
## 51 - Información en medios masivos 0.9259019
## 52 - Servicios financieros y de seguros 0.9949904
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles 1.0816962
## 54 - Servicios profesionales, científicos y técnicos 1.0545270
## 55 - Corporativos 0.9078511
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación 1.2917641
## 61 - Servicios educativos 0.7554517
## 62 - Servicios de salud y de asistencia social 0.7837693
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos 0.7487236
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas 0.7798288
## 81 - Otros servicios excepto actividades gubernamentales 0.8292370
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales 0.7477418
## Clasificación
## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza Sectores base
## 21 - Minería Sectores base
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final Sectores independientes
## 23 - Construcción Sectores base
## 31-33 - Industrias manufactureras Sectores clave
## 43 - Comercio al por mayor Sectores impulsor
## 46 - Comercio al por menor Sectores impulsor
## 48-49 - Transportes, correos y almacenamiento Sectores base
## 51 - Información en medios masivos Sectores base
## 52 - Servicios financieros y de seguros Sectores base
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles Sectores impulsor
## 54 - Servicios profesionales, científicos y técnicos Sectores impulsor
## 55 - Corporativos Sectores base
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación Sectores impulsor
## 61 - Servicios educativos Sectores independientes
## 62 - Servicios de salud y de asistencia social Sectores base
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos Sectores base
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas Sectores base
## 81 - Otros servicios excepto actividades gubernamentales Sectores independientes
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales Sectores base# Crear un nuevo documento
doc <- read_docx()
# Añadir la tabla al documento
doc <- doc %>%
body_add_table(value = resultados, style = "table_template")
# Guardar el documento
print(doc, target = "resultado_sectores_clasificados.docx")resultados$Clasificación <- factor(resultados$Clasificación,
levels = c("Sectores clave",
"Sectores base",
"Sectores impulsor",
"Sectores independiente"))
# Crear la gráfica de dispersión con las líneas y los números de los sectores
ggplot(resultados, aes(x = EDCk, y = EDRk, color = Clasificación)) +
# Puntos de dispersión
geom_point(size = 4) +
# Líneas horizontales y verticales en EDCk = 1 y EDRk = 1
geom_abline(slope = 0, intercept = 1, linetype = "dashed", color = "black") + # Línea horizontal (EDRk = 1)
geom_vline(xintercept = 1, linetype = "dashed", color = "black") + # Línea vertical (EDCk = 1)
# Títulos y etiquetas
labs(title = "Clasificación de Sectores según EDC y EDR",
x = "Encadenamientos hacia adelante (EDCk)",
y = "Encadenamientos hacia atrás (EDRk)") +
# Tema minimalista
theme_minimal() +
# Colores personalizados para cada clasificación
scale_color_manual(values = c("Sectores clave" = "blue",
"Sectores base" = "green",
"Sectores impulsor" = "red",
"Sectores independiente" = "gray"))
Pregunta 3
X2 <- MIP_49_2[,1]
DF2 <- MIP_49_2[,22]
x2 <- MIP_49_2[,c(2:21)]
tX2 <- t(X2)
a2 <- sweep(x, 2, tX, "/") #Coeficiente de MIP
Id2 = diag(1, nrow = 20)
aL2 <- solve(Id2 - a2) #aL coeficiente de Leontiff / interrelacion total
EDC2 = colSums(aL2) #Indice de dispersion de demanda, encadenamientos hacia adelante
EDCk2 = EDC2/mean(EDC2)
EDCk2## [1] 1.0573726 1.0075159 0.9616262 1.2054900 1.0977869 0.9107823 0.9013177
## [8] 1.0035968 1.0725182 1.0580281 0.8156409 0.9305823 1.1251490 0.9336891
## [15] 0.8502004 1.0362611 1.0020936 1.0531228 0.9540608 1.0231653EDR2 = rowSums(aL2) #Indice de dispersion de oferta, encadenamientos hacia atras
EDRk2 = EDR2/mean(EDR2)
t(EDRk2)## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza
## [1,] 0.9389028
## 21 - Minería
## [1,] 0.8808883
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final
## [1,] 0.9458046
## 23 - Construcción 31-33 - Industrias manufactureras
## [1,] 0.8686232 2.417271
## 43 - Comercio al por mayor 46 - Comercio al por menor
## [1,] 1.029677 1.028826
## 48-49 - Transportes, correos y almacenamiento
## [1,] 0.9885228
## 51 - Información en medios masivos 52 - Servicios financieros y de seguros
## [1,] 0.9259019 0.9949904
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles
## [1,] 1.081696
## 54 - Servicios profesionales, científicos y técnicos 55 - Corporativos
## [1,] 1.054527 0.9078511
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación
## [1,] 1.291764
## 61 - Servicios educativos 62 - Servicios de salud y de asistencia social
## [1,] 0.7554517 0.7837693
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos
## [1,] 0.7487236
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas
## [1,] 0.7798288
## 81 - Otros servicios excepto actividades gubernamentales
## [1,] 0.829237
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales
## [1,] 0.7477418#Cambiar DF
DFn2 = DF2
Xn2 = as.matrix(aL2)%*%as.matrix(DFn2)
Xn## DF - Demanda final
## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza 1240509.9
## 21 - Minería 1461180.4
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final 735834.9
## 23 - Construcción 2963263.0
## 31-33 - Industrias manufactureras 15972895.1
## 43 - Comercio al por mayor 2894323.7
## 46 - Comercio al por menor 2890288.2
## 48-49 - Transportes, correos y almacenamiento 2690172.2
## 51 - Información en medios masivos 666671.0
## 52 - Servicios financieros y de seguros 1371791.7
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles 2341156.8
## 54 - Servicios profesionales, científicos y técnicos 585847.0
## 55 - Corporativos 213764.2
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación 1030398.2
## 61 - Servicios educativos 1019391.8
## 62 - Servicios de salud y de asistencia social 852809.1
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos 179147.9
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas 930212.2
## 81 - Otros servicios excepto actividades gubernamentales 613645.4
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales 1305939.3# Asumiendo que los data frames tienen el mismo número de filas
tabla_combinada_columnas <- cbind(DF, DF2, Xn, Xn2)
# Ver la tabla combinada
print(tabla_combinada_columnas)## DF - Demanda final
## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza 512638.105
## 21 - Minería 741964.508
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final 290894.071
## 23 - Construcción 2609152.966
## 31-33 - Industrias manufactureras 11745393.097
## 43 - Comercio al por mayor 2045981.267
## 46 - Comercio al por menor 2045209.930
## 48-49 - Transportes, correos y almacenamiento 2100543.829
## 51 - Información en medios masivos 480560.126
## 52 - Servicios financieros y de seguros 1074748.784
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles 1823886.851
## 54 - Servicios profesionales, científicos y técnicos 146946.157
## 55 - Corporativos 199.811
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación 85229.916
## 61 - Servicios educativos 1006350.919
## 62 - Servicios de salud y de asistencia social 806944.877
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos 178310.329
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas 876060.626
## 81 - Otros servicios excepto actividades gubernamentales 472191.741
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales 1305439.634
## DF - Demanda final
## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza 512638.105
## 21 - Minería 741964.508
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final 300000.000
## 23 - Construcción 2609152.966
## 31-33 - Industrias manufactureras 11745393.097
## 43 - Comercio al por mayor 2045981.267
## 46 - Comercio al por menor 2045209.930
## 48-49 - Transportes, correos y almacenamiento 2100543.829
## 51 - Información en medios masivos 480560.126
## 52 - Servicios financieros y de seguros 1074748.784
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles 1823886.851
## 54 - Servicios profesionales, científicos y técnicos 146946.157
## 55 - Corporativos 199.811
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación 80000.000
## 61 - Servicios educativos 1006350.919
## 62 - Servicios de salud y de asistencia social 806944.877
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos 150000.000
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas 876060.626
## 81 - Otros servicios excepto actividades gubernamentales 472191.741
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales 1305439.634
## DF - Demanda final
## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza 1240509.9
## 21 - Minería 1461180.4
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final 735834.9
## 23 - Construcción 2963263.0
## 31-33 - Industrias manufactureras 15972895.1
## 43 - Comercio al por mayor 2894323.7
## 46 - Comercio al por menor 2890288.2
## 48-49 - Transportes, correos y almacenamiento 2690172.2
## 51 - Información en medios masivos 666671.0
## 52 - Servicios financieros y de seguros 1371791.7
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles 2341156.8
## 54 - Servicios profesionales, científicos y técnicos 585847.0
## 55 - Corporativos 213764.2
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación 1030398.2
## 61 - Servicios educativos 1019391.8
## 62 - Servicios de salud y de asistencia social 852809.1
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos 179147.9
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas 930212.2
## 81 - Otros servicios excepto actividades gubernamentales 613645.4
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales 1305939.3
## DF - Demanda final
## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza 1240406.2
## 21 - Minería 1461200.7
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final 744547.5
## 23 - Construcción 2963160.7
## 31-33 - Industrias manufactureras 15970381.3
## 43 - Comercio al por mayor 2893819.7
## 46 - Comercio al por menor 2889786.0
## 48-49 - Transportes, correos y almacenamiento 2689861.7
## 51 - Información en medios masivos 666288.9
## 52 - Servicios financieros y de seguros 1371731.6
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles 2340004.2
## 54 - Servicios profesionales, científicos y técnicos 585569.8
## 55 - Corporativos 213666.1
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación 1023405.4
## 61 - Servicios educativos 1019363.4
## 62 - Servicios de salud y de asistencia social 852807.7
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos 150821.4
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas 930184.9
## 81 - Otros servicios excepto actividades gubernamentales 613519.8
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales 1305939.2# Visualizar los resultados
print(tabla_combinada_columnas)## DF - Demanda final
## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza 512638.105
## 21 - Minería 741964.508
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final 290894.071
## 23 - Construcción 2609152.966
## 31-33 - Industrias manufactureras 11745393.097
## 43 - Comercio al por mayor 2045981.267
## 46 - Comercio al por menor 2045209.930
## 48-49 - Transportes, correos y almacenamiento 2100543.829
## 51 - Información en medios masivos 480560.126
## 52 - Servicios financieros y de seguros 1074748.784
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles 1823886.851
## 54 - Servicios profesionales, científicos y técnicos 146946.157
## 55 - Corporativos 199.811
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación 85229.916
## 61 - Servicios educativos 1006350.919
## 62 - Servicios de salud y de asistencia social 806944.877
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos 178310.329
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas 876060.626
## 81 - Otros servicios excepto actividades gubernamentales 472191.741
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales 1305439.634
## DF - Demanda final
## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza 512638.105
## 21 - Minería 741964.508
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final 300000.000
## 23 - Construcción 2609152.966
## 31-33 - Industrias manufactureras 11745393.097
## 43 - Comercio al por mayor 2045981.267
## 46 - Comercio al por menor 2045209.930
## 48-49 - Transportes, correos y almacenamiento 2100543.829
## 51 - Información en medios masivos 480560.126
## 52 - Servicios financieros y de seguros 1074748.784
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles 1823886.851
## 54 - Servicios profesionales, científicos y técnicos 146946.157
## 55 - Corporativos 199.811
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación 80000.000
## 61 - Servicios educativos 1006350.919
## 62 - Servicios de salud y de asistencia social 806944.877
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos 150000.000
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas 876060.626
## 81 - Otros servicios excepto actividades gubernamentales 472191.741
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales 1305439.634
## DF - Demanda final
## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza 1240509.9
## 21 - Minería 1461180.4
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final 735834.9
## 23 - Construcción 2963263.0
## 31-33 - Industrias manufactureras 15972895.1
## 43 - Comercio al por mayor 2894323.7
## 46 - Comercio al por menor 2890288.2
## 48-49 - Transportes, correos y almacenamiento 2690172.2
## 51 - Información en medios masivos 666671.0
## 52 - Servicios financieros y de seguros 1371791.7
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles 2341156.8
## 54 - Servicios profesionales, científicos y técnicos 585847.0
## 55 - Corporativos 213764.2
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación 1030398.2
## 61 - Servicios educativos 1019391.8
## 62 - Servicios de salud y de asistencia social 852809.1
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos 179147.9
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas 930212.2
## 81 - Otros servicios excepto actividades gubernamentales 613645.4
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales 1305939.3
## DF - Demanda final
## 11 - Agricultura, cría y explotación de animales, aprovechamiento forestal, pesca y caza 1240406.2
## 21 - Minería 1461200.7
## 22 - Generación, transmisión, distribución y comercialización de energía eléctrica, suministro de agua y de gas natural por ductos al consumidor final 744547.5
## 23 - Construcción 2963160.7
## 31-33 - Industrias manufactureras 15970381.3
## 43 - Comercio al por mayor 2893819.7
## 46 - Comercio al por menor 2889786.0
## 48-49 - Transportes, correos y almacenamiento 2689861.7
## 51 - Información en medios masivos 666288.9
## 52 - Servicios financieros y de seguros 1371731.6
## 53 - Servicios inmobiliarios y de alquiler de bienes muebles e intangibles 2340004.2
## 54 - Servicios profesionales, científicos y técnicos 585569.8
## 55 - Corporativos 213666.1
## 56 - Servicios de apoyo a los negocios y manejo de residuos, y servicios de remediación 1023405.4
## 61 - Servicios educativos 1019363.4
## 62 - Servicios de salud y de asistencia social 852807.7
## 71 - Servicios de esparcimiento culturales y deportivos, y otros servicios recreativos 150821.4
## 72 - Servicios de alojamiento temporal y de preparación de alimentos y bebidas 930184.9
## 81 - Otros servicios excepto actividades gubernamentales 613519.8
## 93 - Actividades legislativas, gubernamentales, de impartición de justicia y de organismos internacionales y extraterritoriales 1305939.2# Crear un nuevo documento
doc2 <- read_docx()
# Añadir la tabla al documento
doc2 <- doc %>%
body_add_table(value = tabla_combinada_columnas, style = "table_template")
# Guardar el documento
print(doc, target = "tabla_combinada_columnas.docx")