Hymenoptera Anatomy Ontology (HAO)

Description

Anatomy ontology of Hymenoptera. This ontology was imported into R using get_OBO() function from ontologyIndex package (see the examples).

Usage

HAO

Format

List containing various ontological relationships and terms.

References

Yoder MJ, Mikó I, Seltmann KC, Bertone MA, Deans AR. 2010. A Gross Anatomy Ontology for Hymenoptera. PLoS ONE 5 (12): e15991. (Read)

Hymenoptera Anatomy Ontology Portal

Examples

data(HAO)
# you can also parse the original .obo file
get_OBO(system.file("data_onto", "HAO.obo", package = "ontoFAST"),
extract_tags="everything", propagate_relationships = c("BFO:0000050", "is_a"))

A modified Hymenoptera Anatomy Ontology (HAO) to accommodate anatomy of dung beetles

Description

Anatomy ontology of Hymenoptera + Dung beetles. This ontology was imported into R using get_OBO() function from ontologyIndex packages (see the examples). The added terms for dung beetle anatomy have prefix "SCR".

Usage

Scarab

Format

List containing various ontological relationships and terms.

References

Yoder MJ, Mikó I, Seltmann KC, Bertone MA, Deans AR. 2010. A Gross Anatomy Ontology for Hymenoptera. PLoS ONE 5 (12): e15991. (Read)

Hymenoptera Anatomy Ontology Portal

Examples

data(Scarab)
#you can also parse the original .obo file
get_OBO(system.file("data_onto", "HAO4scarabs.obo", package = "ontoFAST"),
extract_tags="everything", propagate_relationships = c("BFO:0000050", "is_a"))

Hymenoptera character statements

Description

A table of characters and character states from Hymenoptera character matrix (Sharkey et al., 2011: Cladistics). The table contains 392 character statements.

Usage

Sharkey_2011

Format

A data table with 392 rows; each row is a character statement with character states:

CHARACTER STATEMENTS:

Charater statements

STATES

sates of the character

STATES

....

References

Sharkey, M.J., et al. 2011. Phylogenetic relationships among superfamilies of Hymenoptera. Cladistics 28(1), 80-112. (Read)

Examples

data(Sharkey_2011)
# read .csv file directly
char_et_states<-read.csv(system.file("data_onto", "Sharkey_2011.csv",
package = "ontoFAST"), header=TRUE,  stringsAsFactors = FALSE, na.strings = "")

Hymenoptera characters annotated with ontology terms

Description

List of character IDs and their ontology annotations. The characters are from Hymenoptera phylogeny (Sharkey et al., 2011: Cladistics). The ontology annotations are from Hymenoptera Anatomy Ontology (HAO).

Usage

Sharkey_2011_annot

Format

List containing characters and ontology terms.

References

Sharkey, M.J., et al. 2011. Phylogenetic relationships among superfamilies of Hymenoptera. Cladistics 28(1), 80-112. (Read)

Examples

Sharkey_2011_annot

Dung beetle characters annotated with ontology terms

Description

List of character IDs and their ontology annotations. All 232 characters are from Scarabaeinae phylogeny (Tarasov, 2017: Zootaxa). The ontology annotations are from a modified version Hymenoptera Anatomy Ontology (HAO) that was enriched with additional terms (SCR:) to accommodate anatomy of the dung beetles.

Usage

Tarasov_2017_annot

Format

List containing characters and ontology terms.

References

Tarasov, S., 2017. A cybertaxonomic revision of the new dung beetle tribe Parachoriini (Coleoptera: Scarabaeidae: Scarabaeinae) and its phylogenetic assessment using molecular and morphological data. Zootaxa, 4329(2), pp.101-149. (Read)

Examples

Tarasov_2017_annot

Annotate all character statements with ontology terms

Description

Matches character statement and returns most similar ontology terms using grep and distance-based matching

Usage

annot_all_chars(ontology, use.synonyms = TRUE, min_set = TRUE)

Arguments

Value

The list of matched ontology terms and their character ids.

Examples

#getting ontology
data(HAO)
data(Sharkey_2011)
ontology<-HAO
#parsing synonyms
ontology$parsed_synonyms<-syn_extract(HAO)
# reading in characters
char_et_states<-Sharkey_2011
# embedding characters and character ids into ontology
id_characters<-paste("CHAR:",c(1:392), sep="")
name_characters<-char_et_states[,1]
names(name_characters)<-id_characters
ontology$name_characters<-name_characters
ontology$id_characters<-id_characters
# running annotations

auto_annotations<-annot_all_chars(ontology)

Annotate a character statement with ontology terms

Description

Matches character statement and returns most similar ontology terms

Usage

annot_char_grep(ontology, char.statement, use.synonyms = TRUE, min_set = TRUE)

Arguments

Value

The vector of matches ontology terms.

Examples

data(HAO)
annot_char_grep(HAO, "Mola on right mandible")

Get number of chracters per each ontology term

Description

Returns matrix summarizing number of characters per each ontology terms in descending order

Usage

chars_per_term(ontology, annotations = "auto")

Arguments

Value

The matrix of ontology terms IDs, their names and character number.

Examples

data(HAO)
ontology<-HAO
ontology$terms_selected_id<-list(`CHAR:1`=c("HAO:0000653"), `CHAR:2`=c("HAO:0000653"))
chars_per_term(ontology, annotations="manual")

Convert edge matrix to list

Description

Takes two-column edge matrix (columns from and two) and produces a list

Usage

edges2list(edge.matrix)

Arguments

Value

The list.

Examples

annot_list<-list(`CHAR:1`=c("HAO:0000933", "HAO:0000958"), `CHAR:2`=c("HAO:0000833", "HAO:0000258"))
edge.matrix<-list2edges(annot_list)
edges2list(edge.matrix)

Ontology terms to exclude for sunburst plot

Description

List of ontology terms from Hymenoptera Anatomy Ontology that can be considered redundant and need to be excluded from some operations.

Usage

exclude_terms

Format

List containing ontological terms.

Examples

exclude_terms

Export annotation data

Description

This function converts character annotations stored in shiny_in object to table format.

Usage

export_annotations(
  ontology,
  annotations = "auto",
  incl.names = FALSE,
  sep.head = ", ",
  sep.tail = NULL,
  collapse = NULL
)

Arguments

Value

Returns a table

Examples

data(Sharkey_2011)
data(HAO)
hao_obo<-onto_process(HAO, Sharkey_2011[,1], do.annot = FALSE)
ontofast <- new.env(parent = emptyenv())
ontofast$shiny_in <- make_shiny_in(hao_obo)
# runOntoFast(is_a = c("is_a"), part_of = c("BFO:0000050"), shiny_in="shiny_in" )
tb<-export_annotations(ontofast$shiny_in, annotations="manual", incl.names=TRUE,collapse="; ")
tb<-export_annotations(ontofast$shiny_in, annotations="auto", incl.names=TRUE,collapse="; ")
tb<-export_annotations(ontofast$shiny_in, annotations="auto", incl.names=TRUE,collapse=NULL)
# save annotations in csv
# write.csv(tb, "annotated_characters.csv")

Export to Cytoscape format

Description

This function converts character annotations to Cytoscape format. It returns a table that can be saved as in csv format and imported in Cytoscape. In Cytoscape choose File -> Import -> Network -> File. Then assign columns to nodes and edges. Do not select columns that enumerate the tables' rows!

Usage

export_cytoscape(
  ontology,
  annotations = "auto",
  is_a = c("is_a"),
  part_of = c("BFO:0000050")
)

Arguments

Value

Returns a table

Examples

data(HAO)
data(Sharkey_2011)
data(Sharkey_2011_annot)
ontology<-HAO
# processing ontology to incorporate character statements
ontology<-onto_process(ontology, Sharkey_2011[,1], do.annot = F)
# embedding manual annotations
ontology$annot_characters<-Sharkey_2011_annot
# exporting
cyto<-export_cytoscape(ontology, annotations = ontology$annot_characters,
is_a = c("is_a"), part_of = c("BFO:0000050"))
#write.csv(cyto, file="cyto.csv")

Get ancestal ontology terms for a set of characters

Description

Returns all ontology terms which are ancestors of a given character set

Usage

get_ancestors_chars(ontology, char_id, annotations = "auto")

Arguments

Value

The vector of ontology terms IDs.

Examples

data(HAO)
ontology<-HAO
ontology$terms_selected_id<-list(`CHAR:1`=c("HAO:0000653"), `CHAR:2`=c("HAO:0000653"))
get_ancestors_chars(ontology, c("CHAR:1","CHAR:2"), annotations="manual")

Get characters that descendants of selected ontology term

Description

Returns all characters located (associated) with given ontology term(s)

Usage

get_descendants_chars(ontology, annotations = "auto", terms, ...)

Arguments

Value

The vector of character IDs.

Examples

data(HAO)
ontology<-HAO
ontology$terms_selected_id<-list(`CHAR:1`=c("HAO:0000653"), `CHAR:2`=c("HAO:0000653"))
get_descendants_chars(ontology, annotations="manual", "HAO:0000653")

Get IDs for ontology names

Description

Returns IDs of ontology terms given terms' names

Usage

get_onto_id(vec_name, ontology, names = FALSE)

Arguments

Value

vector of IDs.

Examples

data(HAO)
vec_name=c("ventral mesofurco-profurcal muscle", "anatomical entity")
get_onto_id(vec_name, HAO)

Get names for ontology IDs

Description

Returns names of ontology terms for ontology IDs

Usage

get_onto_name(vec, onto, names = FALSE)

Arguments

Value

vector of names.

Examples

data(HAO)
get_onto_name("HAO:0002272", HAO)

Convert list to edge matrix

Description

Takes a list of character annotations and creates an edge matrix comprising two columns: from and to. The list to table conversion can be done using ldply function from plyr package: plyr::ldply(list, rbind).

Usage

list2edges(annotated.char.list, col_order_inverse = FALSE)

Arguments

Value

Two-column matrix.

Examples

annot_list<-list(`CHAR:1`=c("HAO:0000933", "HAO:0000958"), `CHAR:2`=c("HAO:0000833", "HAO:0000258"))
list2edges(annot_list)
# use plyr package and run
plyr::ldply(annot_list, rbind)

Make an ontology object for visualization

Description

Make an ontology object for visualization in a separate environment "ontofast"

Usage

make_shiny_in(ontology)

Arguments

Value

Ontology index object named as shiny_in.

Examples

data(Sharkey_2011)
data(HAO)
hao_obo<-onto_process(HAO, Sharkey_2011[,1], do.annot = FALSE)
ontofast <- new.env(parent = emptyenv())
ontofast$shiny_in <- make_shiny_in(hao_obo)
runOntoFast(is_a = c("is_a"), part_of = c("BFO:0000050"), shiny_in="shiny_in" )

Shortcut to process characters and ontology

Description

This is a shortcut function to make characters and ontology suitable for visualization using ontoFAST interactive tools.

Usage

onto_process(ontology, name_characters, do.annot = TRUE, ...)

Arguments

Value

Ontology index object named

Examples

data(Sharkey_2011)
data(HAO)
hao_obo<-onto_process(HAO, Sharkey_2011[,1], do.annot = FALSE)
ontofast <- new.env(parent = emptyenv())
ontofast$shiny_in <- make_shiny_in(hao_obo)
runOntoFast(is_a = c("is_a"), part_of = c("BFO:0000050"), shiny_in="shiny_in" )

Return ontology paths for characters

Description

Returns ontology paths for all characters. These paths can be used to create a sunburst plot of ontological dependencies.

Usage

paths_sunburst(
  ontology,
  annotations = "auto",
  exclude.terms = NULL,
  include.terms = NULL,
  use.chars = TRUE,
  sep = "-"
)

Arguments

Value

Table.

Examples

ontology_partof=get_OBO(system.file("data_onto", "HAO.obo", package = "ontoFAST"),
extract_tags="everything", propagate_relationships = c("BFO:0000050"))
ontology_partof<-onto_process(ontology_partof, Sharkey_2011[,1], do.annot = F)
ontology_partof$annot_characters<-Sharkey_2011_annot
tb<-paths_sunburst(ontology_partof,
annotations = ontology_partof$annot_characters, exclude.terms=exclude_terms)
# library(sunburst)
sunburst(tb)

Run ontoFAST interactively

Description

This function runs ontoFAST in interactive mode. Interactive mode allows character annotation and navigation through ontology network.

Usage

runOntoFast(
  is_a = c("is_a"),
  part_of = c("BFO:0000050"),
  nchar = "all",
  show.chars = TRUE,
  shiny_in = "shiny_in",
  file2save = "OntoFAST_shiny_in.RData",
  ...
)

Arguments

Value

runs ontoFAST interactively using Shiny.

Examples

data(Sharkey_2011)
data(HAO)
hao_obo<-onto_process(HAO, Sharkey_2011[,1], do.annot = FALSE)
ontofast <- new.env(parent = emptyenv())
ontofast$shiny_in <- make_shiny_in(hao_obo)
runOntoFast(is_a = c("is_a"), part_of = c("BFO:0000050"), shiny_in="shiny_in" )

Link synonyms with ontology terms

Description

Extracts and parses synonyms from ontology to make them readable and searchable

Usage

syn_extract(ontology, list_id = "synonym")

Arguments

Value

vector of ontology IDs and synonym names.

Examples

data(HAO)
syn_extract(HAO)

Converts a table to list

Description

Takes a table where each row consists of character ID + an ontology annotation and returns a list. Each character is assigned its own ID CHAR:XXXX

Usage

table2list(table, id_col = c(1), descendants_cols = c(2:ncol(table)))

Arguments

Value

The list.

Examples

# converting Sharkey_2011 dataset to list of character states
table2list(Sharkey_2011)