library(ontologyIndex)
data(hpo)
hpo_phenotypes <- c(
A=c("HP:0001382","HP:0004272","HP:0007917","HP:0004912","HP:0001596"),
B=c("HP:0001382","HP:0004272","HP:0002165","HP:0004800","HP:0004912"),
C=c("HP:0004800","HP:0001382","HP:0004912","HP:0007917","HP:0008743"),
D=c("HP:0001257","HP:0001382","HP:0007917","HP:0012623","HP:0002165"),
E=c("HP:0007917","HP:0004800","HP:0004272","HP:0001596","HP:0002165")
)
onto_plot(
ontology=hpo,
term_sets=hpo_phenotypes
)
Run the code above in your browser using DataLab