R语言【taxa】——is_*():检查对象是否为某个类

is_classification(x)

检查对象是否为 classification 类。


is_internode(x)

检查每个分类单元是否为节间。节间是指一个分类单元恰好有一个上级分类单元和

一个下级分类单元。这些分类群可以在不丢失它们之间的关系信息的情况下被移除。

R 复制代码
x <- taxonomy(c('Carnivora', 'Felidae', 'Panthera', 'Panthera leo',
'Panthera tigris', 'Ursidae', 'Ursus', 'Ursus arctos'),
supertaxa = c(NA, 1, 2, 3, 3, 1, 6, 7))

is_internode(x)
复制代码
[1] FALSE  TRUE FALSE FALSE FALSE  TRUE  TRUE FALSE

is_leaf(x)

检查每个分类群是否为冠群。leaf 表示该类群没有下级分类群。

R 复制代码
x <- taxonomy(c('Carnivora', 'Felidae', 'Panthera', 'Panthera leo',
'Panthera tigris', 'Ursidae', 'Ursus', 'Ursus arctos'),
supertaxa = c(NA, 1, 2, 3, 3, 1, 6, 7))
is_leaf(x)
复制代码
[1] FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE  TRUE

is_root(x, subset = NULL)

检查每个分类群是否为起点类群。root 表示该类群没有上级分类群。

R 复制代码
x <- taxonomy(c('Carnivora', 'Felidae', 'Panthera', 'Panthera leo',
'Panthera tigris', 'Ursidae', 'Ursus', 'Ursus arctos'),
supertaxa = c(NA, 1, 2, 3, 3, 1, 6, 7))

is_root(x)
is_root(x, subset = 2:8)
复制代码
[1]  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
复制代码
[1] FALSE  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE

is_stem(x)

检查每个分类单元是否是一个茎节点。stem 是指从根到具有多个亚分类单元的第一个分类单元的任何分类单元。

R 复制代码
x <- taxonomy(c('Carnivora', 'Felidae', 'Panthera', 'Panthera leo',
'Panthera tigris'),
supertaxa = c(NA, 1, 2, 3, 3))

is_stem(x)
复制代码
[1]  TRUE  TRUE FALSE FALSE FALSE

is_taxon(x)

检查对象是否为 taxon 类。

复制代码
> x <- taxon(c('A', 'B', 'C'))
> is_taxon(x)
[1] TRUE
> is_taxon(1:2)
[1] FALSE

is_taxonomy(x)

检查对象是否为 taxonomy 类。

复制代码
> x <- taxonomy(c('Carnivora', 'Felidae', 'Panthera', 'Panthera leo',
+                 'Panthera tigris', 'Ursidae', 'Ursus', 'Ursus arctos'),
+               supertaxa = c(NA, 1, 2, 3, 3, 1, 6, 7))
> is_taxonomy(x)
[1] TRUE
> is_taxonomy(1:2)
[1] FALSE

is_taxon_authority(x)

检查对象是否为 taxon_authority 类。

复制代码
> x <- taxon_authority(c('Cham. & Schldl.', 'L.'),
+                      date = c('1827', '1753'))
> is_taxon_authority(x)
[1] TRUE
> is_taxon_authority(1:3)
[1] FALSE

is_taxon_db(x)

检查对象是否为 taxon_db 类。

复制代码
> x <- taxon_db(c('ncbi', 'ncbi', 'itis'))
> is_taxon_db(x)
[1] TRUE
> is_taxon_db(1:3)
[1] FALSE

is_taxon_id(x)

检查对象是否为 taxon_id 类。

复制代码
> x <- taxon_id(c('9606', '1386', '4890', '4345'), db = 'ncbi')
> is_taxon_id(x)
[1] TRUE
> is_taxon_id(1:3)
[1] FALSE

is_taxon_rank(x)

检查对象是否为 taxon_rank 类。

复制代码
> x <- taxon_rank(c('species', 'species', 'phylum', 'family'))
> is_taxon_rank(x)
[1] TRUE
> is_taxon_rank(1:3)
[1] FALSE

相关推荐
Hexene...9 分钟前
【前端Vue】el-dialog关闭后黑色遮罩依然存在如何解决?
前端·javascript·vue.js·elementui·前端框架
Jay_See10 分钟前
JC链客云——项目过程中获得的知识、遇到的问题及解决
前端·javascript·vue.js
勘察加熊人11 分钟前
python将pdf转txt,并切割ai
数据库·python·pdf
不良人天码星16 分钟前
Redis单线程模型为什么快?
数据库·redis·缓存
普通码农26 分钟前
Element Plus 数字输入框箭头隐藏方案
前端
草字40 分钟前
css flex布局,设置flex-wrap:wrap换行后,如何保证子节点被内容撑高后,每一行的子节点高度一致。
前端·javascript·css
RestCloud1 小时前
ETL 不只是数据搬运工:如何实现智能转换与清洗?
数据库·api
lu9up1 小时前
因表并行引发的血案【故障处理案例】
数据库·oracle·dba
Slice_cy1 小时前
深入剖析Vue框架:实现精简的computed
前端
局i1 小时前
ES6 类与继承:现代 JavaScript 面向对象编程
前端·javascript·es6