Fix heatmap condition annotation

Author: Ekin-Kahraman

results/figures/dispersion_plot.png

@@ -1,17 +1,17 @@
 "path","bytes","md5"
-"results/figures/dispersion_plot.png",505694,"24ad93bc7ee8d56bf4ced6b98d4e1a57"
+"results/figures/dispersion_plot.png",505681,"a419ce7aeae14372d79086c9837d8dd6"
 "results/figures/go_dotplot.png",500804,"67fff951fbd53390334375ee84df802f"
 "results/figures/kegg_dotplot.png",443704,"fa05cd5ad9f3d1046aeebd83c6f73326"
-"results/figures/ma_plot.png",678515,"7110b781f954801398920463b3974f78"
+"results/figures/ma_plot.png",678516,"675e27d00a22bed8a7f3bb952a8d037a"
 "results/figures/pathway_diagram.png",342418,"9e6345e0a436b411d72ebda295d7fd76"
 "results/figures/pca_plot.png",257242,"bb9aeb68d36a090f31825c308827910b"
-"results/figures/pca_scree.png",172959,"580e94c17877221ce49e121964ae7513"
+"results/figures/pca_scree.png",172964,"cd0895ce2d0481ae20b64ae27e054f49"
 "results/figures/pca_sex_stratified.png",205728,"3c10f6413a02c9e684551fdbfa241d12"
 "results/figures/qc_library_size.png",302762,"e63c4f1a6a77c9f9e15a752737edf155"
-"results/figures/sample_distances.png",342140,"5658db50d4aa5bb498d5032af8258d13"
+"results/figures/sample_distances.png",342135,"58ad3a94b257b2c0e40e0f60906a5bbb"
 "results/figures/sensitivity_lfc_scatter.png",654130,"cc8ab93c82653b6ffb68abca6f2b5f83"
 "results/figures/sex_interaction_volcano.png",619575,"ccf483f2c66562f1a5b1acc3df76f527"
-"results/figures/top50_heatmap.png",475753,"a6c0563044c6a7a261b1eb6893729883"
+"results/figures/top50_heatmap.png",476380,"1681f83e991e699b4b4e4297ee3f1f04"
 "results/figures/viral_load_ct_distribution.png",134209,"2767a9d8a588e087e05c0710bf691836"
 "results/figures/viral_load_isg_correlation.png",524869,"ccaa04a2f4c716c6196587c3b81402a1"
 "results/figures/viral_load_volcano.png",543042,"18c4dc222a8fe5c518c58d755c3050ef"

results/figures/ma_plot.png

@@ -102,6 +102,7 @@ top50 <- res_df %>%
 heatmap_mat <- assay(vsd)[top50, ]
 heatmap_mat <- t(scale(t(heatmap_mat)))
 heatmap_mat[is.na(heatmap_mat)] <- 0
+colnames(heatmap_mat) <- sample_labels
 
 pheatmap(
   heatmap_mat,