How to Make an R Heatmap with Annotations and Legend