search for: aes_collapsed

...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<-cbind(membership=temp$membership, Names=temp$name) aes_collapsed <- aes_collapsed %>% merge(temp, by="Names") network <- network %>% set_ed...

...ary(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(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&qu...

...ize) 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: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...

Dear Sibylle, your example is not working! E.g. no data for "aes_collapsed". Best, Kimmo 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...

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

...; 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:ncol(aes)+1) %>% > > ? dplyr::filter(weight != 0) %>% > > ? mutate(weight = ifelse(weight == "-1", 0, weight)) # here 0 = negative > values >...

...> 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(aes)+1) %>% > ? dplyr::filter(weight != 0) %>% > ? mutate(weight = ifelse(weight == "-1", 0, weight)) # here 0 = > negative values > > write.csv(aes_colla...

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

...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<-cbind(membership=temp$membership, Names=temp$name) > > aes_collapsed <- aes_collapsed %>% > > merge(temp, b...

...g B.B E.E 1 neg C.C E.E 4 neg D.D E.E 5 neg F.F E.E 5 pos A.A F.F 5 pos B.B F.F 1 pos C.C F.F 2 pos D.D F.F 3 pos E.E F.F 4 pos F.F F.F 5 pos edge_list<-read.csv("edges_table_Test.csv") network <- graph_from_data_frame(aes_collapsed, directed= FALSE, vertices = details) temp<-cluster_optimal(network) temp<-cbind(membership=temp$membership, Names=temp$name) aes_collapsed <- aes_collapsed %>% merge(temp, by="Names") network <- network %>% set_edge_attr(name = &q...

...> 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(aes)+1) %>% > > ? dplyr::filter(weight != 0) %>% > > ? mutate(weight = ifelse(weight == "-1", 0, weight)) # here 0 = > > negative values >...

...> 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(aes)+1) %>% > > dplyr::filter(weight != 0) %>% > > mutate(weight = ifelse(weight == "-1", 0, weight)) # here 0 = > > negative values >...