Licença

This work is licensed under the Creative Commons Attribution-ShareAlike 4.0 International License. To view a copy of this license, visit http://creativecommons.org/licenses/by-sa/4.0/ or send a letter to Creative Commons, PO Box 1866, Mountain View, CA 94042, USA.

License: CC BY-SA 4.0

License: CC BY-SA 4.0

Citação

Sugestão de citação: FIGUEIREDO, Adriano Marcos Rodrigues. GVC com R: reprodução do decompr de Bastiaan Quast. Campo Grande-MS,Brasil: RStudio/Rpubs, 2019. Disponível em http://rpubs.com/amrofi/decompr_vignette.

1 Introdução

Esta é a reprodução do script de Quast (2015), pacote decompr, cuja vignette está em https://raw.githubusercontent.com/amrofi/decompr/master/vignettes/decompr.Rmd.

1.1 Carregando os dados

Começamos carregando o pacote e o data set de exemplo leather.

# install.packages('decompr')
library(decompr)
data(leather)  # este data set carrega os objetos countries, final, industries, inter e out
# helps opcionais seriam help('countries'), help('industries')
help("decomp")  # Interface function for decompositions
help("countries")
# industries
help("leontief")  # Leontief Decomposition
help("wwz")  # Runs the Wang-Wei-Zhu decomposition
help("load_tables_vectors")  # Load the Input-Output and Final demand tables

Listar os objetos de dados incluídos.

ls()
[1] "countries"  "final"      "industries" "inter"      "out"       

Ver cada objeto individualmente.

inter
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
 [1,] 16.1  5.1  1.8  3.2  4.3  0.4  3.1  2.8  4.9
 [2,]  2.4  8.0  3.2  0.1  3.2  1.6  1.2  3.9 11.5
 [3,]  0.9  0.5  4.0  0.0  0.1  0.3  0.0  0.4  0.5
 [4,]  1.1  1.9  0.2 18.0 13.2  6.1  9.0  3.1  8.9
 [5,]  0.3  2.8  0.1  6.1 28.1  6.3  2.1  2.5 25.6
 [6,]  0.0  0.1  0.3  4.1  3.2  8.9  0.2  0.0  1.8
 [7,]  1.2  4.2  0.3  4.1  1.2  0.6 29.0 19.5 17.9
 [8,]  1.3  1.1  0.0  3.2  4.8  2.6  5.1 29.1 24.1
 [9,]  2.1  1.4  3.0  4.1  3.1  3.9 11.3  8.1 51.3
final
      [,1] [,2] [,3]
 [1,] 21.5  6.1  8.4
 [2,] 16.2  1.9  5.1
 [3,] 11.0  0.5  0.8
 [4,]  7.5 29.5 14.2
 [5,]  8.9 24.9 16.9
 [6,]  1.2 18.5  4.9
 [7,]  9.2 17.9 51.2
 [8,]  7.9 10.1 38.5
 [9,] 25.1 35.2 68.4
countries
[1] "Argentina" "Turkey"    "Germany"  
industries
[1] "Agriculture"         "Textile_and_Leather" "Transport_Equipment"
out
[1]  77.7  58.3  19.0 112.7 124.6  43.2 156.3 127.8 217.0

1.2 Decomposição Leontief

decomp(inter, final, countries, industries, out, method = "leontief")

1.3 Decomposição Wang-Wei-Zhu

decomp(inter, final, countries, industries, out, method = "wwz")

Referências

R Core Team (2019). R: A language and environment for statistical computing. R Foundation for Statistical Computing, Vienna, Austria. URL https://www.R-project.org/.

Quast, B.A. and V. Kummritz (2015). gvc: Global Value Chain analysis in R.

LS0tDQp0aXRsZTogIkdWQyBjb20gUjogcmVwcm9kdcOnw6NvIGRvIGBkZWNvbXByYCBkZSBCYXN0aWFhbiBRdWFzdCINCmF1dGhvcjogIkFkcmlhbm8gTWFyY29zIFJvZHJpZ3VlcyBGaWd1ZWlyZWRvIg0KbGlua2NvbG9yOiBibHVlDQphYnN0cmFjdDogDQogIFRoaXMgaXMgYW4gdW5kZXJncmFkIHN0dWRlbnQgbGV2ZWwgaW5zdHJ1Y3Rpb24gZm9yIGNsYXNzIHVzZS4gIA0KZGF0ZTogImByIGZvcm1hdChTeXMuRGF0ZSgpLCAnJWQgJUIgJVknKWAiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgY29kZV9kb3dubG9hZDogdHJ1ZQ0KICAgIHRoZW1lOiBkZWZhdWx0DQogICAgbnVtYmVyX3NlY3Rpb25zOiB0cnVlDQogICAgdG9jOiB5ZXMNCiAgICB0b2NfZmxvYXQ6IHllcw0KICAgIGRmX3ByaW50OiBwYWdlZA0KICAgIGZpZ19jYXB0aW9uOiB0cnVlDQogIHBkZl9kb2N1bWVudDoNCiAgICB0b2M6IHllcw0KLS0tDQoNCmBgYHtyIGtuaXRyX2luaXQsIGVjaG89RkFMU0UsIGNhY2hlPUZBTFNFfQ0KbGlicmFyeShrbml0cikNCmxpYnJhcnkocm1hcmtkb3duKQ0KbGlicmFyeShybWRmb3JtYXRzKQ0KDQojIyBHbG9iYWwgb3B0aW9ucw0Kb3B0aW9ucyhtYXgucHJpbnQ9IjEwMCIpDQpvcHRzX2NodW5rJHNldChlY2hvPVRSVUUsDQoJICAgICAgICAgICAgIGNhY2hlPVRSVUUsDQogICAgICAgICAgICAgICBwcm9tcHQ9RkFMU0UsDQogICAgICAgICAgICAgICB0aWR5PVRSVUUsDQogICAgICAgICAgICAgICBjb21tZW50PU5BLA0KICAgICAgICAgICAgICAgbWVzc2FnZT1GQUxTRSwNCiAgICAgICAgICAgICAgIHdhcm5pbmc9RkFMU0UpDQpvcHRzX2tuaXQkc2V0KHdpZHRoPTEwMCkNCmBgYA0KDQoNCkxpY2Vuw6dhIHstI0xpY2Vuw6dhfQ0KPT09PT09PT09PT09PT09PT09PQ0KDQpUaGlzIHdvcmsgaXMgbGljZW5zZWQgdW5kZXIgdGhlIENyZWF0aXZlIENvbW1vbnMgQXR0cmlidXRpb24tU2hhcmVBbGlrZSA0LjAgSW50ZXJuYXRpb25hbCBMaWNlbnNlLiBUbyB2aWV3IGEgY29weSBvZiB0aGlzIGxpY2Vuc2UsIHZpc2l0IDxodHRwOi8vY3JlYXRpdmVjb21tb25zLm9yZy9saWNlbnNlcy9ieS1zYS80LjAvPiBvciBzZW5kIGEgbGV0dGVyIHRvIENyZWF0aXZlIENvbW1vbnMsIFBPIEJveCAxODY2LCBNb3VudGFpbiBWaWV3LCBDQSA5NDA0MiwgVVNBLg0KDQohW0xpY2Vuc2U6IENDIEJZLVNBIDQuMF0oaHR0cHM6Ly9taXJyb3JzLmNyZWF0aXZlY29tbW9ucy5vcmcvcHJlc3NraXQvYnV0dG9ucy84OHgzMS9wbmcvYnktc2EucG5nKXsgd2lkdGg9MjUlIH0NCg0KQ2l0YcOnw6NvIHstI0NpdGHDp8Ojb30NCj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNClN1Z2VzdMOjbyBkZSBjaXRhw6fDo286DQpGSUdVRUlSRURPLCBBZHJpYW5vIE1hcmNvcyBSb2RyaWd1ZXMuIEdWQyBjb20gUjogcmVwcm9kdcOnw6NvIGRvIGBkZWNvbXByYCBkZSBCYXN0aWFhbiBRdWFzdC4gQ2FtcG8gR3JhbmRlLU1TLEJyYXNpbDogUlN0dWRpby9ScHVicywgMjAxOS4gRGlzcG9uw612ZWwgZW0gPGh0dHA6Ly9ycHVicy5jb20vYW1yb2ZpL2RlY29tcHJfdmlnbmV0dGU+LiANCg0KSW50cm9kdcOnw6NvDQo9PT09PT09PT09PT09PT09PT09PT0NCg0KRXN0YSDDqSBhIHJlcHJvZHXDp8OjbyBkbyBzY3JpcHQgZGUgUXVhc3QgKDIwMTUpLCBwYWNvdGUgYGRlY29tcHJgLCBjdWphIHZpZ25ldHRlIGVzdMOhIGVtIDxodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vYW1yb2ZpL2RlY29tcHIvbWFzdGVyL3ZpZ25ldHRlcy9kZWNvbXByLlJtZD4uDQoNCg0KDQojIyBDYXJyZWdhbmRvIG9zIGRhZG9zDQoNCkNvbWXDp2Ftb3MgY2FycmVnYW5kbyBvIHBhY290ZSBlIG8gZGF0YSBzZXQgZGUgZXhlbXBsbyBgbGVhdGhlcmAuDQoNCmBgYHtyfQ0KI2luc3RhbGwucGFja2FnZXMoImRlY29tcHIiKQ0KbGlicmFyeShkZWNvbXByKQ0KZGF0YShsZWF0aGVyKSAgICMgZXN0ZSBkYXRhIHNldCBjYXJyZWdhIG9zIG9iamV0b3MgY291bnRyaWVzLCBmaW5hbCwgaW5kdXN0cmllcywgaW50ZXIgZSBvdXQNCiMgaGVscHMgb3BjaW9uYWlzIHNlcmlhbSBoZWxwKCJjb3VudHJpZXMiKSwgaGVscCgiaW5kdXN0cmllcyIpDQpoZWxwKCJkZWNvbXAiKSAgICMgSW50ZXJmYWNlIGZ1bmN0aW9uIGZvciBkZWNvbXBvc2l0aW9ucw0KaGVscCgiY291bnRyaWVzIikNCiMgaW5kdXN0cmllcw0KaGVscCgibGVvbnRpZWYiKSAgICMgTGVvbnRpZWYgRGVjb21wb3NpdGlvbg0KaGVscCgid3d6IikgICAjIFJ1bnMgdGhlIFdhbmctV2VpLVpodSBkZWNvbXBvc2l0aW9uDQpoZWxwKCJsb2FkX3RhYmxlc192ZWN0b3JzIikgICMgTG9hZCB0aGUgSW5wdXQtT3V0cHV0IGFuZCBGaW5hbCBkZW1hbmQgdGFibGVzDQpgYGANCg0KTGlzdGFyIG9zIG9iamV0b3MgZGUgZGFkb3MgaW5jbHXDrWRvcy4NCg0KYGBge3J9DQpscygpDQpgYGANCg0KVmVyIGNhZGEgb2JqZXRvIGluZGl2aWR1YWxtZW50ZS4NCg0KYGBge3J9DQppbnRlcg0KZmluYWwNCmNvdW50cmllcw0KaW5kdXN0cmllcw0Kb3V0DQpgYGANCg0KIyMgRGVjb21wb3Npw6fDo28gTGVvbnRpZWYgDQoNCmBgYHtyfQ0KZGVjb21wKGludGVyLA0KICAgICAgIGZpbmFsLA0KICAgICAgIGNvdW50cmllcywNCiAgICAgICBpbmR1c3RyaWVzLA0KICAgICAgIG91dCwNCiAgICAgICBtZXRob2QgPSAibGVvbnRpZWYiKQ0KYGBgDQoNCiMjIERlY29tcG9zacOnw6NvIFdhbmctV2VpLVpodQ0KDQpgYGB7cn0NCmRlY29tcChpbnRlciwNCiAgICAgICBmaW5hbCwNCiAgICAgICBjb3VudHJpZXMsDQogICAgICAgaW5kdXN0cmllcywNCiAgICAgICBvdXQsDQogICAgICAgbWV0aG9kID0gInd3eiIpDQpgYGANCg0KDQpSZWZlcsOqbmNpYXMgey0jUmVmZXLDqm5jaWFzfQ0KPT09PT09PT09PT09PT09PT09PT09PT09DQoNClIgQ29yZSBUZWFtICgyMDE5KS4gUjogQSBsYW5ndWFnZSBhbmQgZW52aXJvbm1lbnQgZm9yIHN0YXRpc3RpY2FsIGNvbXB1dGluZy4gUiBGb3VuZGF0aW9uIGZvciBTdGF0aXN0aWNhbCBDb21wdXRpbmcsIFZpZW5uYSwgQXVzdHJpYS4gVVJMIGh0dHBzOi8vd3d3LlItcHJvamVjdC5vcmcvLg0KICANClF1YXN0LCBCLkEuIGFuZCBWLiBLdW1tcml0eiAoMjAxNSkuIGd2YzogR2xvYmFsIFZhbHVlIENoYWluIGFuYWx5c2lzIGluIFIu