search for: scico

...ure=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(stringi) library(scico) library(plotly) library(ggraph) edges_table_Test.csv Names target weight relationship B.B A.A 4 pos C.C A.A 5 pos D.D A.A 5 neg E.E A.A 5 neg F.F A.A 1 pos C.C B.B 5 pos E.E B.B 1 pos F.F B.B 2 pos A.A C.C 5 pos B....

...ot;)[as.factor(edge_list$relationship)], > alpha=0.5)) + > > Kind regards > Sibylle > > > > > Working example > > library(circlize) > library(ggplot2) > library(igraph) > library(tidyverse) > library(RColorBrewer) > library(stringi) > library(scico) > library(plotly) > library(ggraph) > > edges_table_Test.csv > > Names???target??weight relationship > B.B?????A.A?????4?????????? pos > C.C?????A.A?????5?????????? pos > D.D?????A.A?????5?????????? neg > E.E?????A.A?????5????????? neg > F.F?????A.A?????1????????...

...E.E 5 pos F.F E.E 5 pos A.A F.F 5 pos B.B F.F 1 neg C.C F.F 2 pos D.D F.F 3 pos E.E F.F 4 pos F.F F.F 5 pos #upload librairies library(circlize) library(ggplot2) library(igraph) library(tidyverse) library(RColorBrewer) library(stringi) library(scico) library(plotly) library(ggraph) #upload aes<-read.csv("Test_adjac.csv", row.names = 1) details<-read.csv("Test_cat.csv") # adjacency table aes_collapsed<-aes %>% rownames_to_column(var='Names') %>% tidyr::gather(target, weight, 1:n...

...= 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 = "batlow")+ scale_edge_width(range = c(0.2,4))+ scale_size(range = c(0.5,15)) + theme(plot.background = element_rect(fill = "black"), legend.position = "right", panel.background = element_rect(fill = "black")) --- s...

...et_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<-scico(3, palette = "batlow") > > > > par(bg="black") > > network %>% plot( > > vertex.color=clrs[V(.)$community], > > vertex.size=V(.)$hub_score*5, > > vertex.frame.color=V(.)$color, > > vertex.label.color="w...

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'...

Dear coummunity Thanks a lot to David and Kimmo. Yes I see now that I need to provide the two raw tables. Find here the reproducible example. Kind regards Sibylle # R-labraries library(circlize) library(ggplot2) library(igraph) library(tidyverse) library(RColorBrewer) library(stringi) library(scico) library(plotly) library(ggraph) # Tables aes<-read.csv("Test_adjac.csv", row.names = 1) details<-read.csv("Test_cat.csv") # Edge table, reorganisation aes_collapsed<-aes %>% rownames_to_column(var='Names') %>% tidyr::gather(target, weight, 1:ncol(a...

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...

...the reproducible example. > > > > Kind regards > > Sibylle > > > > # R-labraries > > library(circlize) > > library(ggplot2) > > library(igraph) > > library(tidyverse) > > library(RColorBrewer) > > library(stringi) > > library(scico) > > library(plotly) > > library(ggraph) > > > > > > # Tables > > aes<-read.csv("Test_adjac.csv", row.names = 1) > > details<-read.csv("Test_cat.csv") > > > > # Edge table, reorganisation > > aes_collapsed<-...

...w that I need to provide > the two raw tables. Find here the reproducible example. > > Kind regards > Sibylle > > # R-labraries > library(circlize) > library(ggplot2) > library(igraph) > library(tidyverse) > library(RColorBrewer) > library(stringi) > library(scico) > library(plotly) > library(ggraph) > > > # Tables > aes<-read.csv("Test_adjac.csv", row.names = 1) > details<-read.csv("Test_cat.csv") > > # Edge table, reorganisation > aes_collapsed<-aes %>% > ? rownames_to_column(var='Name...

...ot;, 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<-scico(3, palette = "batlow") par(bg="black") 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.fami...

...ot;)+ 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 = c(scico(21, palette="batlow")))+ theme(plot.background = element_rect(fill = "black"), legend.position = "right",...