https://en.wikipedia.org/wiki/Globalization_and_World_Cities_Research_Network
https://www.lboro.ac.uk/microsites/geography/gawc/
https://github.com/bavla/NormNet/tree/main/data/natalija
> wdir <- "C:/Users/vlado/DL/data/GaWC"
> setwd(wdir)
> D <- read.csv("da17.csv",row.names=1)
> dim(D)
[1] 178 74
> D[1:4,1:5]
ActionAid Adventist.Development.and.Relief.Agency.International
Abidjan, Cote d'Ivoire 0 0
Abudja, Nigeria 0 0
Accra, Ghana 0 0
Addis Ababa, Ethiopia 0 0
African.Medical.and.Research.Foundation
Abidjan, Cote d'Ivoire 0
Abudja, Nigeria 0
Accra, Ghana 0
Addis Ababa, Ethiopia 2
Agency.for.Personal.Service.Overseas Aid.to.the.Church.in.Need
Abidjan, Cote d'Ivoire 0 0
Abudja, Nigeria 0 0
Accra, Ghana 0 0
Addis Ababa, Ethiopia 0 0
> Da <- read.csv("GaWC2013.csv",row.names=2)
> dim(Da)
[1] 525 177
> Da[1:4,1:5]
X Country PwC Deloitte Ernst.Young
Aberdeen 1 United Kingdom 2 2 2
Abidjan 2 Cote d'ivoire 2 2 2
Abu Dhabi 3 UAE 2 2 2
Abuja 4 Nigeria 2 2 2
> Db <- read.csv("GaWC2016.csv",row.names=2)
> dim(Db)
[1] 707 177
> Db[1:4,1:5]
X Country Wells.Fargo ICBC China.Construction.Bank
Aba 1 Nigeria 0 0 0
Aberdeen 2 United Kingdom 2 0 0
Abidjan 3 Cote d'ivoire 0 0 0
Abu Dhabi 4 UAE 0 2 0
>
> CF <- as.matrix(Db[,3:177])
> CF[1:4,1:5]
Wells.Fargo ICBC China.Construction.Bank Agricultural.Bank.of.China Chase
Aba 0 0 0 0 0
Aberdeen 2 0 0 0 0
Abidjan 0 0 0 0 0
Abu Dhabi 0 2 0 0 0
>
> source("https://raw.githubusercontent.com/bavla/Rnet/master/R/Pajek.R")
> A <- crossprod(t(CF))
> dim(A)
[1] 707 707
> matrix2net(A,Net="GaWC2016act.net")
> bimatrix2net(CF,Net="GaWC2016.net")