Enhanced barplot

plot enrich result in bar plot

enhance_barplot(
  data,
  showCategory = 10,
  by = "Count",
  split = NULL,
  order = FALSE,
  drop = FALSE,
  fillstrip = TRUE,
  print = FALSE,
  split_color = RColorBrewer::brewer.pal(3, "Dark2"),
  bar_color = rev(RColorBrewer::brewer.pal(5, "GnBu")[3:5])
)

Arguments

data

'enrichResult' object, enrichGO result

showCategory

Category numbers to show

by

one of Count and GeneRatio

split

separate result by 'split' variable

order

logical

drop

logical

fillstrip

fill strip rect or not

print

logic for print plot

split_color

color for CC, MF, and BP

bar_color

color for bar

Value

ggplot or grid plot

Examples

if (FALSE) {
test <- enrich_go(deg_data = DEG_df, x = "log2FoldChange", y = "pvalue")
enhance_barplot(test$Down,showCategory=10,split = "ONTOLOGY")
enhance_barplot(test$Down,showCategory=30)
}