2017-04-19 1 views
0

Je dois créer un réseau sur une carte, avec des références géographiques appropriées.Utilisation de geomnet dans R sur les cartes

J'ai essayé de faire quelque chose comme ceci: https://cran.r-project.org/web/packages/ggCompNet/vignettes/examples-from-paper.html

(regarder la carte en bas) Ceci est la tête de Tripnet:

from_id to_id q_trx  long  lat 
9 20020101  0 241 -58.41441 -34.60768 
10 20020102 20040108 537 -58.41950 -34.60722 
11 20020102  0 561 -58.41950 -34.60722 
12 20020103 20040108 543 -58.42359 -34.60714 
13 20020103  0 551 -58.42359 -34.60714 
14 20020104 20040108 490 -58.42688 -34.60397 

Voici mon code:

map <- get_map(location = c("long" = -58.416212, "lat" = -34.631330), zoom = 12) 


ggmap(map) + geom_net(
    data = tripnet, 
    labelon = TRUE, 
    selfloops = TRUE, 
    vjust = -0.5, 
    ealpha = 0.5, 
    aes(
    from_id = from_id, 
    to_id = to_id, 
    x = long , 
    y = lat, 
    linewidth = q_trx, 
    colour = 'grey' 
) 
) + 
    scale_colour_manual("CABA", values = c("grey40")) + theme_net() %+replace% theme(aspect.ratio = 
                           NULL, legend.position = "bottom") + coord_map() 

Apparemment, il n'y a pas d'erreur mais il trace simplement une carte sans le réseau.

Répondre

1

Je viens de remarquer que chaque nœud doit avoir ses coordonnées. Auparavant, j'avais supprimé toutes les lignes avec des valeurs NA dans q_trx. Y compris les a résolu le problème.