R语言【taxa】——n_subtaxa()，n_supertaxa()：每个类群的子类群数量和父类群数量

Package?taxa?version 0.4.2

n_subtaxa(x, subset = NULL, max_depth = NULL, include = FALSE)

参数【x】：获取子类群的对象，比如 taxonomy。

参数【subset】：检索的树的子集。索引或名称。

参数【max_depth】：挖掘的等级深度。比如，max_depth = 1 表示值返回直接子类群。默认返回所有子类群。

参数【include】：为TRUE时，输出每个类群的信息。

> x <- taxonomy(c('Carnivora', 'Felidae', 'Panthera', 'Panthera leo',
+                 'Panthera tigris', 'Ursidae', 'Ursus', 'Ursus arctos'),
+               supertaxa = c(NA, 1, 2, 3, 3, 1, 6, 7))
> x

<taxonomy[8]>
1: Carnivora
├─2: Felidae
│ └─3: Panthera
│   ├─4: Panthera leo
│   └─5: Panthera tigris
└─6: Ursidae
  └─7: Ursus
    └─8: Ursus arctos

> n_subtaxa(x)
[1] 7 3 2 0 0 2 1 0

> n_subtaxa(x, max_depth = 1)
[1] 2 1 2 0 0 1 1 0

n_supertaxa(x, subset = NULL, max_depth = NULL, include = FALSE)

参数同 n_subtaxa()。

> x <- taxonomy(c('Carnivora', 'Felidae', 'Panthera', 'Panthera leo',
+                 'Panthera tigris', 'Ursidae', 'Ursus', 'Ursus arctos'),
+               supertaxa = c(NA, 1, 2, 3, 3, 1, 6, 7))

> n_supertaxa(x)
[1] 0 1 2 3 3 1 2 3

> n_supertaxa(x, subset = 1:3)
[1] 0 1 2