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