Programa de Pós-Graduação em Economia: Universidade Estadual de Maringá (PCE/UEM)
Instituição financiadora: Coordenação de Aperfeiçoamento de Pessoal de Nível Superior (CAPES)
Contato: douglasbrancosantana@gmail.com
Este portfólio apresenta uma aplicação da metodologia Trade in Value Added (TiVA) a partir das tabelas insumo-produto inter-regionais da OCDE (ICIO 2022), com foco no valor adicionado doméstico incorporado nas exportações brasileiras. O objetivo é compartilhar a abordagem da metodologia de modelo insumo-produto, com consonância a TiVA, para a disseminar e reproduzir novos trabalhos.
Os dados utilizados provêm da base OCDE ICIO 2022, contendo matrizes de consumo intermediário, demanda final, valor adicionado e produção total por setor e país.
load("OCDE_2022.RData")
library(dplyr)
library(knitr)
library(kableExtra)As exportações brutas são definidas como a demanda final externa, obtida pela soma das colunas da demanda final associadas aos parceiros comerciais, excluindo o próprio Brasil.
parceiros_ext <- setdiff(colnames(FD_OCDE_2022), "BRA")
EXGR <- rowSums(FD_OCDE_2022[, parceiros_ext])Setores com produção nula ou valores ausentes são removidos para garantir a inversibilidade da matriz de Leontief.
idx_valid <- which(X_OCDE_2022 > 0 & !is.na(X_OCDE_2022))
Z <- Z_OCDE_2022[idx_valid, idx_valid]
X <- X_OCDE_2022[idx_valid]
VA <- VA_OCDE_2022[idx_valid]
EXGR <- EXGR[idx_valid]
setores <- rownames(Z_OCDE_2022)[idx_valid]Constrói-se a matriz de coeficientes técnicos e a inversa de Leontief.
A <- Z %*% diag(1 / X)
B <- solve(diag(nrow(A)) - A)
V_hat <- diag(as.numeric(VA / X))O valor adicionado doméstico nas exportações é obtido pela propagação do choque de exportações ao longo da estrutura produtiva.
EXGR_DVA <- V_hat %*% B %*% EXGR
EXGR_DVA <- pmax(EXGR_DVA, 0)
EXGR_DVASH <- sum(EXGR_DVA) / sum(EXGR)idx_BRA <- grep("^BRA", setores)
DVA_BRA <- EXGR_DVA[idx_BRA]
EXGR_BRA <- EXGR[idx_BRA]
VA_BRA <- VA[idx_BRA]
X_BRA <- X[idx_BRA]
setores_BRA <- setores[idx_BRA]A decomposição separa o valor adicionado direto daquele gerado indiretamente ao longo das cadeias produtivas.
DVA_direto <- (VA_BRA / X_BRA) * EXGR_BRA
DVA_indireto <- DVA_BRA - DVA_diretoTabela_base <- data.frame(
Setor = setores_BRA,
DVA = as.numeric(DVA_BRA),
VA_Direto = as.numeric(DVA_direto),
VA_Indireto = as.numeric(DVA_indireto)
)setores_nome <- data.frame(
Codigo = c(
"BRA_01","BRA_02","BRA_03","BRA_05","BRA_06","BRA_07","BRA_08","BRA_09",
"BRA_10T12","BRA_13T15","BRA_16","BRA_17T18","BRA_19","BRA_20","BRA_21",
"BRA_22","BRA_23","BRA_24A","BRA_24B","BRA_25","BRA_26","BRA_27","BRA_28",
"BRA_29","BRA_301","BRA_302T309","BRA_31T33","BRA_35","BRA_36T39",
"BRA_41T43","BRA_45T47","BRA_49","BRA_50","BRA_51","BRA_52","BRA_53",
"BRA_55T56","BRA_58T60","BRA_61","BRA_62T63","BRA_64T66","BRA_68",
"BRA_69T75","BRA_77T82","BRA_84","BRA_85","BRA_86T88","BRA_90T93",
"BRA_94T96","BRA_97T98"
),
Setor_nome = c(
"Agricultura, pecuária e serviços relacionados",
"Silvicultura e exploração florestal",
"Pesca e aquicultura",
"Extração de carvão mineral",
"Extração de petróleo e gás natural",
"Extração de minérios metálicos",
"Extração de minerais não metálicos",
"Atividades de apoio à extração mineral",
"Indústrias de alimentos, bebidas e fumo",
"Indústrias têxteis, vestuário e couro",
"Fabricação de produtos de madeira",
"Papel e celulose; impressão e reprodução",
"Coque, derivados do petróleo e biocombustíveis",
"Produtos químicos",
"Produtos farmacêuticos",
"Produtos de borracha e plástico",
"Produtos minerais não metálicos",
"Metalurgia básica",
"Produtos de metal, exceto máquinas",
"Equipamentos elétricos",
"Equipamentos eletrônicos e ópticos",
"Máquinas e equipamentos",
"Veículos automotores",
"Outros equipamentos de transporte",
"Móveis e outras indústrias",
"Reparação e instalação de máquinas",
"Eletricidade, gás e vapor",
"Água, esgoto e gestão de resíduos",
"Construção",
"Comércio atacadista e varejista",
"Transporte terrestre",
"Transporte aquaviário",
"Transporte aéreo",
"Armazenamento e correio",
"Alojamento e alimentação",
"Edição, audiovisual e radiodifusão",
"Telecomunicações",
"Tecnologia da informação",
"Serviços financeiros e seguros",
"Atividades imobiliárias",
"Atividades profissionais, científicas e técnicas",
"Atividades administrativas e serviços complementares",
"Administração pública e defesa",
"Educação",
"Saúde humana e serviços sociais",
"Artes, cultura, esporte e recreação",
"Outros serviços",
"Serviços domésticos",
"Organismos internacionais",
"Atividades das famílias como empregadoras"
),
Grupo = c(rep("Agropecuária",3), rep("Indústria",26), rep("Serviços",21)),
stringsAsFactors = FALSE
)
setores_nome <- setores_nome[1:nrow(Tabela_base), ]
Tabela_base <- Tabela_base %>%
left_join(setores_nome, by = c("Setor" = "Codigo"))Tabela1 <- Tabela_base %>%
group_by(Grupo) %>%
summarise(DVA = sum(DVA)) %>%
mutate(Participacao = DVA / sum(DVA))
kable(Tabela1, caption = "Valor Adicionado Doméstico nas Exportações por Grupo") %>%
kable_styling(full_width = FALSE)| Grupo | DVA | Participacao |
|---|---|---|
| Agropecuária | 52082.88 | 0.161186 |
| Indústria | 130200.12 | 0.402943 |
| Serviços | 140839.89 | 0.435871 |
Tabela2 <- data.frame(
Indicador = "Intensidade de Valor Adicionado nas Exportações",
Valor = EXGR_DVASH
)
kable(Tabela2, digits = 3) %>%
kable_styling(full_width = FALSE)| Indicador | Valor |
|---|---|
| Intensidade de Valor Adicionado nas Exportações | 1 |
Tabela3 <- Tabela_base %>%
mutate(Participacao = DVA / sum(DVA)) %>%
arrange(desc(Participacao)) %>%
head(50)
kable(Tabela3, digits = 3) %>%
kable_styling(font_size = 12)| Setor | DVA | VA_Direto | VA_Indireto | Setor_nome | Grupo | Participacao |
|---|---|---|---|---|---|---|
| BRA_45T47 | 65828.020 | 13050.832 | 52777.187 | Transporte terrestre | Serviços | 0.204 |
| BRA_01 | 49466.303 | 11116.501 | 38349.802 | Agricultura, pecuária e serviços relacionados | Agropecuária | 0.153 |
| BRA_06 | 29662.968 | 200.129 | 29462.839 | Extração de petróleo e gás natural | Indústria | 0.092 |
| BRA_07 | 28377.643 | 41.217 | 28336.425 | Extração de minérios metálicos | Indústria | 0.088 |
| BRA_69T75 | 19395.079 | 2334.119 | 17060.961 | Administração pública e defesa | Serviços | 0.060 |
| BRA_77T82 | 12189.327 | 679.213 | 11510.114 | Educação | Serviços | 0.038 |
| BRA_10T12 | 10403.275 | 5311.916 | 5091.358 | Indústrias de alimentos, bebidas e fumo | Indústria | 0.032 |
| BRA_49 | 10289.863 | 574.969 | 9714.894 | Transporte aquaviário | Serviços | 0.032 |
| BRA_64T66 | 9589.129 | 810.606 | 8778.523 | Atividades profissionais, científicas e técnicas | Serviços | 0.030 |
| BRA_24A | 8562.029 | 25.180 | 8536.850 | Metalurgia básica | Indústria | 0.026 |
| BRA_20 | 7402.453 | 623.899 | 6778.555 | Produtos químicos | Indústria | 0.023 |
| BRA_19 | 6971.024 | 347.406 | 6623.618 | Coque, derivados do petróleo e biocombustíveis | Indústria | 0.022 |
| BRA_52 | 6600.205 | 631.983 | 5968.222 | Alojamento e alimentação | Serviços | 0.020 |
| BRA_62T63 | 4770.216 | 624.062 | 4146.154 | Atividades imobiliárias | Serviços | 0.015 |
| BRA_35 | 4390.670 | 113.548 | 4277.122 | Água, esgoto e gestão de resíduos | Indústria | 0.014 |
| BRA_17T18 | 4136.568 | 456.380 | 3680.188 | Papel e celulose; impressão e reprodução | Indústria | 0.013 |
| BRA_28 | 3685.028 | 1388.773 | 2296.255 | Veículos automotores | Indústria | 0.011 |
| BRA_29 | 3319.211 | 1657.665 | 1661.546 | Outros equipamentos de transporte | Indústria | 0.010 |
| BRA_31T33 | 3154.889 | 575.742 | 2579.147 | Eletricidade, gás e vapor | Indústria | 0.010 |
| BRA_24B | 2768.161 | 40.896 | 2727.266 | Produtos de metal, exceto máquinas | Indústria | 0.009 |
| BRA_25 | 2642.726 | 217.203 | 2425.523 | Equipamentos elétricos | Indústria | 0.008 |
| BRA_02 | 2406.501 | 245.419 | 2161.082 | Silvicultura e exploração florestal | Agropecuária | 0.007 |
| BRA_22 | 2385.773 | 154.285 | 2231.488 | Produtos de borracha e plástico | Indústria | 0.007 |
| BRA_84 | 2090.559 | 219.599 | 1870.959 | Saúde humana e serviços sociais | Serviços | 0.006 |
| BRA_16 | 1991.529 | 205.349 | 1786.180 | Fabricação de produtos de madeira | Indústria | 0.006 |
| BRA_94T96 | 1664.142 | 32.491 | 1631.651 | Organismos internacionais | Serviços | 0.005 |
| BRA_13T15 | 1630.818 | 741.626 | 889.192 | Indústrias têxteis, vestuário e couro | Indústria | 0.005 |
| BRA_23 | 1514.099 | 87.058 | 1427.041 | Produtos minerais não metálicos | Indústria | 0.005 |
| BRA_61 | 1430.511 | 148.962 | 1281.548 | Serviços financeiros e seguros | Serviços | 0.004 |
| BRA_58T60 | 1376.039 | 147.613 | 1228.426 | Tecnologia da informação | Serviços | 0.004 |
| BRA_27 | 1288.160 | 426.597 | 861.563 | Máquinas e equipamentos | Indústria | 0.004 |
| BRA_50 | 1269.008 | 71.292 | 1197.716 | Transporte aéreo | Serviços | 0.004 |
| BRA_36T39 | 1148.964 | 0.085 | 1148.879 | Construção | Indústria | 0.004 |
| BRA_55T56 | 1079.355 | 433.952 | 645.403 | Telecomunicações | Serviços | 0.003 |
| BRA_41T43 | 923.334 | 1.382 | 921.953 | Comércio atacadista e varejista | Serviços | 0.003 |
| BRA_302T309 | 908.562 | 462.759 | 445.803 | Reparação e instalação de máquinas | Indústria | 0.003 |
| BRA_05 | 907.008 | 10.103 | 896.905 | Extração de carvão mineral | Indústria | 0.003 |
| BRA_53 | 848.229 | 12.848 | 835.381 | Edição, audiovisual e radiodifusão | Serviços | 0.003 |
| BRA_08 | 771.183 | 23.192 | 747.991 | Extração de minerais não metálicos | Indústria | 0.002 |
| BRA_21 | 758.937 | 299.559 | 459.377 | Produtos farmacêuticos | Indústria | 0.002 |
| BRA_85 | 738.660 | 68.378 | 670.282 | Artes, cultura, esporte e recreação | Serviços | 0.002 |
| BRA_09 | 671.301 | 14.462 | 656.840 | Atividades de apoio à extração mineral | Indústria | 0.002 |
| BRA_26 | 590.892 | 148.289 | 442.603 | Equipamentos eletrônicos e ópticos | Indústria | 0.002 |
| BRA_51 | 344.144 | 101.201 | 242.943 | Armazenamento e correio | Serviços | 0.001 |
| BRA_90T93 | 323.980 | 189.857 | 134.123 | Serviços domésticos | Serviços | 0.001 |
| BRA_03 | 210.074 | 16.423 | 193.651 | Pesca e aquicultura | Agropecuária | 0.001 |
| BRA_301 | 156.248 | 3.772 | 152.475 | Móveis e outras indústrias | Indústria | 0.000 |
| BRA_68 | 56.899 | 54.165 | 2.734 | Atividades administrativas e serviços complementares | Serviços | 0.000 |
| BRA_86T88 | 33.195 | 25.201 | 7.994 | Outros serviços | Serviços | 0.000 |
| BRA_97T98 | 0.000 | 0.000 | 0.000 | Atividades das famílias como empregadoras | Serviços | 0.000 |
Tabela4 <- Tabela_base %>%
group_by(Grupo) %>%
summarise(
VA_Direto = sum(VA_Direto),
VA_Indireto = sum(VA_Indireto)
)
kable(Tabela4, digits = 3, caption = "Decomposição do Valor Adicionado") %>%
kable_styling(full_width = FALSE)| Grupo | VA_Direto | VA_Indireto |
|---|---|---|
| Agropecuária | 11378.34 | 40704.54 |
| Indústria | 13577.09 | 116623.03 |
| Serviços | 20212.72 | 120627.17 |
Os resultados evidenciam a importância dos setores de serviços e indústria na geração de valor adicionado doméstico incorporado às exportações brasileiras, destacando o papel das interligações produtivas captadas pelo modelo insumo-produto para o ano de 2022.