diff --git a/ProjectTILs/ProjectTILS_CART.R b/ProjectTILs/ProjectTILS_CART.R index e33bc220e02d3c5dd4a98b9e8281f5daba9ae1af..fd2e48765f13cd8e009486dd5e9f952f162dfc32 100644 --- a/ProjectTILs/ProjectTILS_CART.R +++ b/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)) {