Make each space in a node apprear only once

Reduce a graph to have unique node names

graphreduce(graph, separator)

Arguments

graph	graph of class loongraph
separator	one character that separates the spaces in node names

Value

graph object of class loongraph

Details

Note this is a string based operation. Node names must not contain the separator character!

Examples

G <- completegraph(nodes=LETTERS[1:4])
LG <- linegraph(G)

LLG <- linegraph(LG)

graphreduce(LLG)
#> $nodes
#> [1] "A:B:C" "A:B:D" "A:C:D" "B:C:D"
#> 
#> $from
#>  [1] "A:B:C" "A:B:C" "A:B:C" "A:B:D" "A:B:D" "A:B:C" "A:B:D" "A:C:D" "A:C:D"
#> [10] "B:C:D"
#> 
#> $to
#>  [1] "A:B:D" "A:B:C" "A:C:D" "A:B:D" "A:C:D" "B:C:D" "B:C:D" "A:C:D" "B:C:D"
#> [10] "B:C:D"
#> 
#> $isDirected
#> [1] FALSE
#> 
#> attr(,"class")
#> [1] "loongraph"

if (requireNamespace("Rgraphviz", quietly = TRUE)) {
  plot(graphreduce(LLG))
}