R work for heatmapping