Displaying 4 results from an estimated 4 matches for "geom_edg".
Did you mean:
geom_edge
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(strin...
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)
>...
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),...