ggplot(corr.m, aes(x = reorder(miRNA, -value), y = value, fill = variable)) + geom_bar(stat = "identity")