#'#Draw from wrireResult output files
#Firstly, read the wrireResult output file,using the following two lines
data <- read.delim(file.path(system.file('examples', package = 'EnrichDO'), 'result.txt'))
enrich <- convDraw(resultDO = data)
#then, Use the drawing function you need
drawGraphViz(enrich=enrich) #Tree diagram
drawPointGraph(enrich=enrich) #Bubble diagram
drawBarGraph(enrich=enrich) #Bar plot
Run the code above in your browser using DataLab