Heatmap and PCA R code