Gráfico de network para o comércio internacional entre países

Boa noite, Listeiros! Gostaria de fazer um gráfico de rede para o comércio internacional entre um grupo de países. Nesse sentido, estou tentando replicar o seguinte exemplo: http://beyondvalence.blogspot.com/2014/05/text-mining-7-term-network-analysi... Porém, no meu caso, possuo pares de países: ARE-JPN, AUS-JPN,... Ademais, gostaria que cada node fosse proporcional ao volume comercializado pelo país (variável exports). dput (df) structure(list(ido = c("ARE", "AUS", "CHN", "GBR", "GBR", "GBR", "HKG", "IDN", "IRN", "JPN", "JPN", "KOR", "KOR", "MYS", "NGA", "NLD", "NOR", "RUS", "RUS", "USA", "USA", "AUS", "AUS", "BEL", "BEL", "BEL", "CHN", "CHN", "CHN", "DEU", "DEU", "DEU", "DEU", "DEU", "DEU", "DEU", "GBR", "GBR", "GBR", "IRN", "MYS", "MYS", "NLD", "POL", "RUS", "RUS", "SGP", "SGP", "SGP", "SGP", "USA" ), idd = c("JPN", "JPN", "KOR", "CHE", "DEU", "FRA", "USA", "JPN", "JPN", "HKG", "SGP", "CHN", "JPN", "SGP", "USA", "FRA", "GBR", "DEU", "ITA", "GBR", "KOR", "CHN", "JPN", "DEU", "FRA", "NLD", "GBR", "RUS", "SGP", "AUT", "BEL", "ESP", "FRA", "NLD", "POL", "USA", "ARE", "IRL", "USA", "ITA", "SGP", "USA", "BEL", "DEU", "CHE", "TUR", "CHN", "HKG", "IDN", "MYS", "ARE"), exports = c(13112242813, 12600200044, 11292363934, 8415084770, 34788506146, 28475980395, 46984336771, 14415189665, 4968556482, 27183303751, 20820248756, 18454539579, 20466015819, 18045941449, 11499435728, 22555328417, 12375241280, 9231828795, 7254325411, 41578521231, 27901876438, 12302482046, 21703963590, 64547770665, 57659467585, 39244445982, 18976473583, 13211283269, 16632262456, 53765327000, 54292454000, 49796586000, 98354819000, 60942951000, 27729562000, 86050473000, 10567139812, 29981708162, 56706301526, 6191623821, 22078782553, 27815727284, 40914697144, 25222684658, 10781703404, 10841448818, 19757037697, 21522016786, 22102891530, 30384988869, 8476570775 )), class = "data.frame", row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51")) Desde já, muito obrigado pela atenção! -- *Alexandre Loures* Professor Substituto Universidade Federal da Paraíba <https://ufpb.br> Pós-graduação em Economia - PPGE <https://sigaa.ufpb.br/sigaa/public/programa/portal.jsf?lc=pt_BR&id=1875> www.rodriguesloures.com
participantes (1)
-
Alexandre Loures