Tidy invasion graph
Usage
tidy_inv_graph(dat, omit = c(), bend = 0.75)Examples
n <- 6 # set number of species
A <- -diag(n) - 1.5 * matrix(runif(n^2), n, n)
r <- matrix(1, n, 1)
sch <- inv_scheme(A, r)
gra <- inv_graph(IS = sch)
tidy_inv_graph(gra)
#> # A tbl_graph: 53 nodes and 491 edges
#> #
#> # A directed acyclic simple graph with 1 component
#> #
#> # Edge Data: 491 × 3 (active)
#> from to invasion_type
#> <int> <int> <chr>
#> 1 1 8 multiple
#> 2 1 9 multiple
#> 3 1 10 multiple
#> 4 1 11 multiple
#> 5 1 12 multiple
#> 6 1 13 multiple
#> 7 1 14 multiple
#> 8 1 15 multiple
#> 9 1 16 multiple
#> 10 1 17 multiple
#> # ℹ 481 more rows
#> #
#> # Node Data: 53 × 5
#> x y name type permanent
#> <dbl> <dbl> <chr> <chr> <lgl>
#> 1 9.5 -0.748 EMPTY "" TRUE
#> 2 7 0.287 1 "" TRUE
#> 3 8 0.259 2 "" TRUE
#> # ℹ 50 more rows