search for: geom_edge

Displaying 4 results from an estimated 4 matches for "geom_edge".

Did you mean: geom_bde
2024 Mar 20
1
geom_edge & color
...e 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=(E(network)$weight/10), color=c("darkblue", "red")[as.factor(edge_list$relationship)], alpha=0.5)) + Kind regards Sibylle Working example library(circlize) library(ggplot2) library(igraph) library(tidyverse) library(RColorBrewer) library(string...
2024 Mar 21
1
geom_edge & color
...ist$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=(E(network)$weight/10), > color=c("darkblue", "red")[as.factor(edge_list$relationship)], > alpha=0.5)) + > > Kind regards > Sibylle > > > > > Working example > > library(circlize) > library(ggplot2) > l...
2024 Mar 22
1
geom_edge & color
Hi, this seems 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_...
2024 Mar 22
1
geom_edge & color
...eight, edge.color = ifelse(edge_list$relationship == "pos", "blue", "red"), layout=layout_with_mds(.)) tiff("figures/Test_network_bysubcatecory.tiff", width=1000, height=900, res=120) network %>% ggraph(., layout = "auto")+ geom_edge_arc(curvature=0.3, aes(width=(E(network)$weight/10), color=c("darkblue", "red")[as.factor(edge_list$relationship)], 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),...