legends <- bubbleHMLegends(
sizeBreaks = seq(0, 80, 10), colorBreaks = seq(-2, 2, 0.5), diameter = 0.8,
context = gpar(cex = 0.8), colorSeq = c("#053061", "#2166AC", "#4393C3", "#92C5DE", "#D1E5F0",
"#FDDBC7", "#F4A582", "#D6604D", "#B2182B", "#67001F"), unitBase = unit(0.5, "cm"),
legendHeight = 9, legendTitles = c("Estimate", "NegLog10P"))
grid.draw(legends)
Run the code above in your browser using DataLab