data(hpo)
patients.character.vector <- c(
A="HP:0001382,HP:0004272,HP:0007917,HP:0004912,HP:0001596",
B="HP:0001382,HP:0004272,HP:0002165,HP:0004800,HP:0004912",
C="HP:0004800,HP:0001382,HP:0004912,HP:0007917,HP:0008743",
D="HP:0001257,HP:0001382,HP:0007917,HP:0012623,HP:0002165",
E="HP:0007917,HP:0004800,HP:0004272,HP:0001596,HP:0002165"
)
patients.of.interest <- term.set.list.from.character(hpo.terms, patients.character.vector)
#simple example
hpo.graph(
hpo.terms=hpo.terms,
patients=patients.of.interest,
main.title="Simple Example",
filter.out.uninformative=TRUE
)
#complex example
hpo.graph(
hpo.terms=hpo.terms,
patients=patients.of.interest,
main.title="Complex Example",
filter.out.uninformative=FALSE,
colouring.function=colouring.functions$get.patient.based.colours,
labelling.function=labelling.functions$get.patient.based.labels,
size.function=size.functions$get.frequency.based.sizes,
border.function=border.functions$get.no.borders
)Run the code above in your browser using DataLab