search for: edge_list

...to work (assuming that your problem was the setting of colours...): --- snip --- network %>% ggraph(., layout = "auto") + # This produces an error... # geom_edge_arc(curvature=0.3, aes(width=(E(network)$weight/10), color=c("darkblue", "red")[as.factor(edge_list$relationship)], alpha=0.5)) + # ... this works :-) geom_edge_arc(curvature=0.3, aes(width=E(network)$weight/10, color=edge_list$relationship), alpha=.5) + scale_edge_color_manual(values=c("pos"="darkblue", "neg"="red")) + # This does not...

...to_column(var='Names') %>% tidyr::gather(target, weight, 1:ncol(aes)+1) %>% dplyr::filter(weight != 0) %>% mutate(weight = ifelse(weight == "-1", 0, weight)) # here 0 = negative values write.csv(aes_collapsed, "edges_table-Test.csv", row.names = F) edge_list<-read.csv("edges_table-Test.csv") #create network and add some necessary attributes (vertices) for the plot network <- graph_from_data_frame(aes_collapsed, directed= FALSE, vertices = details) ### network and vertex with 'subcate...

.... See part 2 in the working example. Besides different colors for different groups of nodes: --> geom_node_point(aes(size = V(network)$hub_score*200, color= as.factor(V(network)$community))) I additionally want to consider different colors for different edge groups The grouping is defined in the edge_list$relationship: negative relationship = red and positive relationship = darkblue. The code is working in the way that the groups are separated by two colors. However, the code uses not the assigned colors. Does anyone have any idea how to adapt the code? --> geom_edge_arc(curvature=0.3, aes(width...

...ample. > Besides different colors for different groups of nodes: > --> geom_node_point(aes(size = V(network)$hub_score*200, color= > as.factor(V(network)$community))) > I additionally want to consider different colors for different edge > groups > The grouping is defined in the edge_list$relationship: negative > relationship > = red and positive relationship = darkblue. The code is working in the > way > that the? groups are separated by two colors. However, the code uses not > the > assigned colors. Does anyone have any idea how to adapt the code? > --> geo...

Hi, first of all, your example was not reproducible! But once I added "library(igraph)" and "library(scico)" plus generally replaced "aes_collapsed" by "edge_list", I started to work :-) Anyway, the error is produced by this line: + edge.width= network, It seems to me that you have forgotten to name a variable here (you now use the whole network object as variable, which most probably won't work). Just as a kind advice for the future: if you...

...st-Site-Name, although Default-First-Site-Name is now empty and TEST-DC is in Testsite2. Get_bridgehead found just the TEST-DC from Testsite2. @@ -1710,12 +1710,14 @@ class KCC(object): # Utilize the IP transport only for now transport = self.ip_transport DEBUG("edge_list %s" % edge_list) for e in edge_list: + print "--------e.vertices[0].site: %s" % e.vertices[0].site.site_dnstr + print "--------e.vertices[1].site: %s" % e.vertices[1].site.site_dnstr # XXX more accurate comparison? if...

On 2/24/24 12:10, Kimmo Elo wrote: > Hi, > > first of all, your example was not reproducible! But once I added > "library(igraph)" and "library(scico)" plus generally replaced > "aes_collapsed" by "edge_list", I started to work :-) After copying your lead in that replacement the error I got was: network <- graph_from_data_frame(edge_list, directed= FALSE, + vertices = details) #Error: object 'details' not found Same conclusion, though. Incomplete presentation of code. -- David. &...

...=0.5, + vertex.label.family="Helvetica", + vertex.label.font=1, + edge.curved=0.5, + edge.width= network, + layout=layout_with_mds(.)) Error in intI(i, n = x at Dim[1], dn[[1]], give.dn = FALSE) : Index gr??er als maximales 6 Reproducible example: edge_list<-read.csv("edges_table_Test.csv") #create network and add some necessary attributes (vertices) for the plot network <- graph_from_data_frame(aes_collapsed, directed= FALSE, vertices = details) temp<-cluster_optimal(network) temp<...

Hello Rowland, of course it will be started by samba, I saw this output if I run "samba -i". But I can trigger this output also by starting samba_kcc manually. Andrej -----Ursprüngliche Nachricht----- Von: Rowland Penny [mailto:rpenny at samba.org] Gesendet: Donnerstag, 9. November 2017 14:04 An: samba at lists.samba.org Cc: Andrej Gessel <Andrej.Gessel at janztec.com>

...; + edge.curved=0.5, > > + edge.width= network, > > + layout=layout_with_mds(.)) > > Error in intI(i, n = x at Dim[1], dn[[1]], give.dn = FALSE) : > > Index gr??er als maximales 6 > > > > > > Reproducible example: > > > > edge_list<-read.csv("edges_table_Test.csv") > > > > #create network and add some necessary attributes (vertices) for the plot > > network <- graph_from_data_frame(aes_collapsed, directed= FALSE, > > vertices = details) > >...

...wnames_to_column(var='Names') %>% tidyr::gather(target, weight, 1:ncol(aes)+1) %>% dplyr::filter(weight != 0) %>% mutate(weight = ifelse(weight == "-1", 0, weight)) # here 0 = negative values write.csv(aes_collapsed, "edges_table_Test.csv", row.names = F) edge_list<-read.csv("edges_table_Test.csv") # Network attributes network <- graph_from_data_frame(aes_collapsed, directed= FALSE, vertices = details) temp<-cluster_optimal(network) temp<-cbind(membership=temp$membership, Names=temp$name) aes_collapse...

...;) %>% > ? tidyr::gather(target, weight, 1:ncol(aes)+1) %>% > ? dplyr::filter(weight != 0) %>% > ? mutate(weight = ifelse(weight == "-1", 0, weight)) # here 0 = > negative values > > write.csv(aes_collapsed, "edges_table_Test.csv", row.names = F) > edge_list<-read.csv("edges_table_Test.csv") > > # Network attributes > network <- graph_from_data_frame(aes_collapsed, directed= FALSE, > ???????????????????????????????? vertices = details) > > > temp<-cluster_optimal(network) > temp<-cbind(membership=temp$m...

...(target, weight, 1:ncol(aes)+1) %>% > > ? dplyr::filter(weight != 0) %>% > > ? mutate(weight = ifelse(weight == "-1", 0, weight)) # here 0 = > > negative values > > > > write.csv(aes_collapsed, "edges_table_Test.csv", row.names = F) > > edge_list<-read.csv("edges_table_Test.csv") > > > > # Network attributes > > network <- graph_from_data_frame(aes_collapsed, directed= FALSE, > > ???????????????????????????????? vertices = details) > > > > > > temp<-cluster_optimal(network) &g...

...target, weight, 1:ncol(aes)+1) %>% > > dplyr::filter(weight != 0) %>% > > mutate(weight = ifelse(weight == "-1", 0, weight)) # here 0 = > > negative values > > > > write.csv(aes_collapsed, "edges_table_Test.csv", row.names = F) > > edge_list<-read.csv("edges_table_Test.csv") > > > > # Network attributes > > network <- graph_from_data_frame(aes_collapsed, directed= FALSE, > > vertices = details) > > > > > > temp<-cluster_optimal(network) &gt...