Update ProjectTILS_CART.R

ProjectTILs/ProjectTILS_CART.R

@@ -31,11 +31,12 @@ for (i in seq_along(query.projected)) {
     ylim(-10, 10)
 }
 
+# Fig6 A - Upper
 png(file = paste(wdir, "Full_WPRE_CART_TILs.png", sep = "/"), width = 1400, height = 400)
 wrap_plots(plots, ncol = 4)
 dev.off()
 
-#### Barplot
+# Fig6 A - Upper Barplot
 tb.full <- data.frame()
 palette <- ref@misc$atlas.palette
 for (i in seq_along(query.projected)) {
@@ -101,11 +102,12 @@ for (i in seq_along(query.projected)) {
     ylim(-10, 10)
 }
 
+# Fig6 A - Bottom
 png(file = paste(wdir, "Full_WPRE_CART_Neg_TILs.png", sep = "/"), width = 1400, height = 400)
 wrap_plots(plots, ncol = 4)
 dev.off()
 
-#### Barplot
+# Fig6 A - Bottom Barplot
 tb.full <- data.frame()
 palette <- ref@misc$atlas.palette
 for (i in seq_along(query.projected)) {