Script to make ggplot heatmap + barplot