search for: hub_score

...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 work either... # geom_node_point(aes(size = V(network)$hub_score*200, color= as.factor(V(network)$community))) + # ... so try this :) geom_node_point(aes(size = V(network)$hub_score*200, color=V(network)$Subcategory_type)) + geom_node_text(aes(label = V(network)$name), size=3, color="white", repel=T)+ scale_color_scico_d(palette = &quo...

...set_edge_attr(name = "color", value = c(viridis::viridis(21)) [match(E(.)$type, c(factor(V(.)$name)))]) %>% set_vertex_attr(name = "trans_v_net", value = c(transitivity(., type = "local"))) %>% set_vertex_attr(name = "hub_score", value = c(hub_score(.)$vector)) %>% set_vertex_attr(name = "color", value = c(viridis::viridis((21))) [match(V(.)$name, c(factor(V(.)$name)))]) %>% set_vertex_attr(name= "community", value=cluster_optimal(.)$Subcategory_type)...

Dear R-community It would be nice to get some input how to find a solution for the following error in igraph and vertex setting. Thank you very much Sibylle > par(bg="black") > network %>% plot( + vertex.color=clrs[V(.)$community], + vertex.size=V(.)$hub_score*1, + vertex.frame.color=V(.)$color, + vertex.label.color="white", + vertex.label.cex=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...

...ke, 2024-03-20 kello 19:28 +0100, SIBYLLE ST?CKLI via R-help kirjoitti: > Dear community > > I am using ggraph to plot a network analysis. 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...

Dear community I am using ggraph to plot a network analysis. 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 separ...

...e input how to find a solution for the following > error in igraph and vertex setting. > > > > Thank you very much > > Sibylle > >> par(bg="black") >> network %>% plot( > + vertex.color=clrs[V(.)$community], > > + vertex.size=V(.)$hub_score*1, > > + vertex.frame.color=V(.)$color, > > + vertex.label.color="white", > > + vertex.label.cex=0.5, > > + vertex.label.family="Helvetica", > > + vertex.label.font=1, > > + edge.curved=0.5, > > + edge.width=...

...e > following > error in igraph and vertex setting. > > ? > > Thank you very much > > Sibylle > > ? > > > par(bg="black") > > > network %>% plot( > > +???? vertex.color=clrs[V(.)$community], > > +???? vertex.size=V(.)$hub_score*1, > > +???? vertex.frame.color=V(.)$color, > > +???? vertex.label.color="white", > > +???? vertex.label.cex=0.5, > > +???? vertex.label.family="Helvetica", > > +???? vertex.label.font=1, > > +???? edge.curved=0.5, > > +???? e...

...and vertex setting. >> >> >> >> Thank you very much >> >> Sibylle >> >> >> >>> par(bg="black") >>> network %>% plot( >> +???? vertex.color=clrs[V(.)$community], >> >> +???? vertex.size=V(.)$hub_score*1, >> >> +???? vertex.frame.color=V(.)$color, >> >> +???? vertex.label.color="white", >> >> +???? vertex.label.cex=0.5, >> >> +???? vertex.label.family="Helvetica", >> >> +???? vertex.label.font=1, >> >> +??...

...E.E 5 1 5 5 0 4 F.F 1 2 3 4 5 5",? sep="\t", row.names = 1) --- snip --- This would save us from unnecessary copy-pasting :-) However, the error is still the same I mentioned in my first reply, i.e.: network %>% plot( vertex.color=clrs[V(.)$community], vertex.size=V(.)$hub_score*5, vertex.frame.color=V(.)$color, vertex.label.color="white", vertex.label.cex=0.5, vertex.label.family="Helvetica", vertex.label.font=1, edge.curved=0.5, HERE --> edge.width= network, <-- HERE layout=layout_with_mds(.)) Try to comment...

...%>% set_edge_attr(name = "color", value = c(viridis::viridis(5)) [match(E(.)$type, c(factor(V(.)$name)))]) %>% set_vertex_attr(name = "trans_v_net", value = c(transitivity(., type = "local"))) %>% set_vertex_attr(name = "hub_score", value = c(hub_score(.)$vector)) %>% set_vertex_attr(name = "color", value = c(viridis::viridis((5))) [match(V(.)$name, c(factor(V(.)$name)))]) %>% set_vertex_attr(name= "community", value=cluster_optimal(.)$membership) clrs<-scic...

...\t", row.names = 1) > --- snip --- > > This would save us from unnecessary copy-pasting :-) > > However, the error is still the same I mentioned in my first reply, > i.e.: > > network %>% plot( > ??? vertex.color=clrs[V(.)$community], > ??? vertex.size=V(.)$hub_score*5, > ??? vertex.frame.color=V(.)$color, > ??? vertex.label.color="white", > ??? vertex.label.cex=0.5, > ??? vertex.label.family="Helvetica", > ??? vertex.label.font=1, > ??? edge.curved=0.5, > HERE -->??? edge.width= network,? <-- HERE > ??? lay...

...Kind regards Sibylle tiff("figures/AES_network_bymembership.tiff", width=1000, height=700, res=120) network %>% ggraph(., layout = "auto")+ geom_edge_arc(curvature=0.3, aes(width=(E(network)$weight/10), color=from, alpha=0.5)) + geom_node_point(aes(size = V(network)$hub_score*200, color= as.factor(V(network)$community))) + geom_node_text(aes(label = V(network)$name), size=5, color="white", repel=T)+ scale_color_scico_d(palette = "batlow")+ scale_edge_width(range = c(0.2,4))+ scale_size(range = c(0.5,20)) + #scale_edge_color_manual(values =...