functions to make a pretty heatmap in ggplot2