search for: test_cat

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

...gt; 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, w...

...rary(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 = if...

Dear community Find enclosed the full working example. Many thanks Sibylle Test_cat.csv Names Subcategory_type sources.cyto source Factor A.A material "A" A 1 B.B material "B" B 1 C.C regulation "C" C 1 D.D regulation "D" D 1 E.E habitat "E" E 1 F.F cultural "F" F 1 Test_adjac...

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

...is produces what you expect or want to visualise. HTH, Kimmo pe, 2024-03-22 kello 08:59 +0100, sibylle.stoeckli at gmx.ch kirjoitti: > Dear community > > ? > > Find enclosed the full working example. > > ? > > Many thanks > > Sibylle > > ? > > Test_cat.csv > > > Names > > Subcategory_type > > sources.cyto > > source > > Factor > > > A.A > > material > > "A" > > A > > 1 > > > B.B > > material > > "B" > > B > > 1...

...rary(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 = if...

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(aes(size =