Get number of supertaxa for each taxon in an object of type
taxonomy()
or taxmap()
.
obj$n_supertaxa() n_supertaxa(obj)
obj | ( |
---|
numeric
Other taxonomy data functions:
classifications()
,
id_classifications()
,
is_branch()
,
is_internode()
,
is_leaf()
,
is_root()
,
is_stem()
,
map_data_()
,
map_data()
,
n_leaves_1()
,
n_leaves()
,
n_subtaxa_1()
,
n_subtaxa()
,
n_supertaxa_1()
,
taxon_ids()
,
taxon_indexes()
,
taxon_names()
,
taxon_ranks()
# Count number of supertaxa that contain each taxon n_supertaxa(ex_taxmap)#> b c d e f g h i j k l m n o p q r #> 0 0 1 1 1 1 2 2 2 2 2 3 3 3 3 3 3# Filter taxa based on the number of supertaxa # (this command removes all root taxa) filter_taxa(ex_taxmap, n_supertaxa > 0)#> <Taxmap> #> 15 taxa: d. Felidae, e. Notoryctidae ... r. tuberosum #> 15 edges: NA->d, NA->e, NA->f, NA->g ... j->o, k->p, l->q, l->r #> 4 data sets: #> info: #> # A tibble: 6 x 4 #> taxon_id name n_legs dangerous #> <chr> <chr> <dbl> <lgl> #> 1 m tiger 4 TRUE #> 2 n cat 4 FALSE #> 3 o mole 4 FALSE #> # … with 3 more rows #> phylopic_ids: a named vector of 'character' with 6 items #> m. e148eabb-f138-43[truncated] ... r. 63604565-0406-46[truncated] #> foods: a list of 6 items named by taxa: #> m, n, o, p, q, r #> abund: #> # A tibble: 8 x 5 #> taxon_id code sample_id count taxon_index #> <chr> <fct> <fct> <dbl> <int> #> 1 m T A 1 1 #> 2 n C A 2 2 #> 3 o M B 5 3 #> # … with 5 more rows #> 1 functions: #> reaction