Code
attr(unlabeledKey$data, "graph")
Output
# A tbl_graph: 62 nodes and 61 edges
#
# A rooted tree
#
# Edge Data: 61 × 7 (active)
from to parent rank prevalence label direction
<int> <int> <chr> <chr> <dbl> <lgl> <fct>
1 1 2 root phylum 0.8 TRUE right
2 1 3 root phylum 0.933 TRUE right
3 1 4 root phylum 1 TRUE left
4 1 5 root phylum 0.467 TRUE left
5 2 6 p: Proteobacteria class 0.8 TRUE left
6 3 7 p: Actinobacteria class 0.933 TRUE right
7 4 8 p: Firmicutes class 1 TRUE right
8 3 9 p: Actinobacteria class 0.4 TRUE left
9 5 10 p: Bacteroidetes class 0.467 TRUE left
10 4 11 p: Firmicutes class 0.533 TRUE left
# ℹ 51 more rows
#
# Node Data: 62 × 8
taxon parent rank prevalence label .ggraph.orig_index .ggraph_layout_x
<chr> <chr> <chr> <dbl> <lgl> <int> <dbl>
1 root root root 1 TRUE 1 0
2 p: Proteoba… root phyl… 0.8 TRUE 2 0.0541
3 p: Actinoba… root phyl… 0.933 TRUE 3 0.167
# ℹ 59 more rows
# ℹ 1 more variable: .ggraph_layout_y <dbl>
Code
attr(unlabeledKey_rect$data, "graph")
Output
# A tbl_graph: 62 nodes and 61 edges
#
# A rooted tree
#
# Edge Data: 61 × 7 (active)
from to parent rank prevalence label direction
<int> <int> <chr> <chr> <dbl> <lgl> <fct>
1 1 2 root phylum 0.8 TRUE right
2 1 3 root phylum 0.933 TRUE right
3 1 4 root phylum 1 TRUE left
4 1 5 root phylum 0.467 TRUE left
5 2 6 p: Proteobacteria class 0.8 TRUE left
6 3 7 p: Actinobacteria class 0.933 TRUE right
7 4 8 p: Firmicutes class 1 TRUE right
8 3 9 p: Actinobacteria class 0.4 TRUE left
9 5 10 p: Bacteroidetes class 0.467 TRUE left
10 4 11 p: Firmicutes class 0.533 TRUE left
# ℹ 51 more rows
#
# Node Data: 62 × 8
taxon parent rank prevalence label .ggraph.orig_index .ggraph_layout_x
<chr> <chr> <chr> <dbl> <lgl> <int> <dbl>
1 root root root 1 TRUE 1 0
2 p: Proteoba… root phyl… 0.8 TRUE 2 -8.03
3 p: Actinoba… root phyl… 0.933 TRUE 3 -4.41
# ℹ 59 more rows
# ℹ 1 more variable: .ggraph_layout_y <dbl>
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.