{"word_count": 344, "character_count": 2555}
A la lecture des premiers articles portant sur les Panama Papers je me suis demandé d'où venaient les centaines de journalistes ayant travaillé sur le dossier.Les différents articles évoquent plus de 100 médias dans plus de 70 pays.En me basant sur la liste de journalistes diffusée sur le site de l'ICIJ (The International Consortium of Investigative Journalists) j'ai pu produire la carte suivante :[caption id="attachment_917" align="aligncenter" width="800"] Cliquer pour agrandir[/caption]Nous pouvons noter une très forte présence de journalistes d'Amérique Latine et d'Europe. Nous pourrions faire le même type de carte pour représenter la localisation des médias partenaires de l'opération (en utilisant sans doute des techniques de web scraping pour récupérer directement leur pays d'appartenance).Code de la figure# load librarylibrary(cartography)# load dataload(url("http://wukan.ums-riate.fr/panamapapers/panamapapers.RData"))# get the figures dimensionsfd &#60;- getFigDim(spdf = grat, width = 800,                 res = 120, mar = c(0,0,1.2,0))# save to a png filepng(filename = "Panama Papers.png", width = fd[1], height = fd[2],     res = 120,  bg = "white")# set marginspar(mar = c(0,0,1.2,0))# plot the world countriesplot(grat, col = "#cdd2d4", border = NA, add=F)plot(world, col = "#f5f5f3ff", border = "#a9b3b4ff",  add = T)plot(grat, col = NA, border = "#a9b3b4ff", add=T)# plot the number of reporters/countrypropSymbolsLayer(spdf = world, df = PP,                  spdfid = "ISO3", dfid = "ID",                  var = "n", inches = 0.15, symbols = "circle",                  col = "#B3490E", border = "#f5f5f3ff", lwd = 0.5,                 legend.title.txt = "Number of reporters",                 legend.style = "c", legend.values.cex = 0.45,                 legend.pos = "topleft")# add a layoutlayoutLayer(scale = NULL, frame = FALSE,             col = "#A33A00", coltitle = "white",             title = "Where are the 'Panama Papers' Reporters?",             sources = "Source: T. Giraud - 2016",            author = "ICIJ - 2016 - https://panamapapers.icij.org/about.html")# add a label for countries with at least 10 reporterslabelLayer(spdf = world, df = PP[PP$n&#62;=10,],            spdfid = "ISO3", dfid = "ID",           txt = "label", cex = 0.45, font = 2)# add a text to the maptext(x = -15368058, y = -5000000,      font = 2, srt = 33, cex = 1, pos = 4,     labels = paste (sum(PP$n), " reporters\nfrom ",                      nrow(PP), " countries\n", sep=""))dev.off()Le code est également disponible sur ce gist.