Back to PhD Project
plot.PCA(PCA_analysis)
## Warning: ggrepel: 6 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps
fviz_eig(PCA_analysis, addlabels = T)
ggplot(Variability_in_cell_lines, aes(x= Pheno, y = Variability, fill = Pheno))+
geom_boxplot()+
geom_point(size = 0.5)+
xlab("Phenotypes")+
geom_signif(comparisons = list(c("HL60.Mut.AGI5198", "HL60.Mut.DMF"), c("MOLM14.Mut.AGI5198", "MOLM14.Mut.DMF")))+
labs(title = "Gene expression variability depending OS")
plot(HL60_Mut_IDHi_vs_no_treat$mrs)
plot(HL60_Mut_vs_HL60_WT$mrs)
plot(MOLM14_Mut_IDHi_vs_no_treat$mrs)
Do_cool_scatterplot(HL60_Mut_IDHi_vs_no_treat_network$features, "HL60 +/- IDHi")
## Warning: Ignoring unknown parameters: outlier.size
Do_cool_scatterplot(HL60_Mut_vs_HL60_WT_network$features, "HL60 +/- IDHm")
## Warning: Ignoring unknown parameters: outlier.size
Do_cool_scatterplot(MOLM14_Mut_IDHi_vs_no_treat_network$features, "MOLM14 +/- IDHi")
## Warning: Ignoring unknown parameters: outlier.size
Make_gene_expr_boxplots(Transcriptomes, ID_RELA, "RELA", "HL60.Mut.AGI5198", "HL60_IDHi", "HL60.Mut.DMF", "HL60_DMF", Phenotype)
Make_gene_expr_boxplots(Transcriptomes, ID_MYC, "MYC", "HL60.Mut.AGI5198", "HL60_IDHi", "HL60.Mut.DMF", "HL60_DMF", Phenotype)
Make_gene_expr_boxplots(Transcriptomes, ID_RELA, "RELA", "HL60.Mut.None", "HL60_Mut", "HL60.WT.None", "HL60_WT", Phenotype)
Make_gene_expr_boxplots(Transcriptomes, ID_MYC, "MYC", "HL60.Mut.None", "HL60_Mut", "HL60.WT.None", "HL60_WT", Phenotype)
Make_gene_expr_boxplots(Transcriptomes, ID_RELA, "RELA", "MOLM14.Mut.AGI5198", "MOLM14_IDHi", "MOLM14.Mut.DMF", "MOLM14_DMF", Phenotype)
Make_gene_expr_boxplots(Transcriptomes, ID_MYC, "MYC", "MOLM14.Mut.AGI5198", "MOLM14_IDHi", "MOLM14.Mut.DMF", "MOLM14_DMF", Phenotype)
plot(HL60_m_vs_M14_m$mrs)
plot(HL60_m_agi_vs_M14_m_agi$mrs)
Do_cool_scatterplot(HL60_m_vs_M14_m_network$features, "HL60 vs Molm14")
## Warning: Ignoring unknown parameters: outlier.size
Do_cool_scatterplot(HL60_m_agi_vs_M14_m_agi_network$features, "HL60 vs M14 + IDHm inhib")
## Warning: Ignoring unknown parameters: outlier.size
Make_gene_expr_boxplots(Transcriptomes, ID_RELA, "RELA", "HL60.Mut.DMF", "HL60_IDHm", "MOLM14.Mut.DMF", "M14_DMF", Phenotype)
Make_gene_expr_boxplots(Transcriptomes, ID_MYC, "MYC", "HL60.Mut.DMF", "HL60_IDHm", "MOLM14.Mut.DMF", "M14_DMF", Phenotype)
Make_gene_expr_boxplots(Transcriptomes, ID_RELA, "RELA", "HL60.Mut.AGI5198", "HL60_IDHi", "MOLM14.Mut.AGI5198", "M14_IDHi", Phenotype)
Make_gene_expr_boxplots(Transcriptomes, ID_MYC, "MYC", "HL60.Mut.AGI5198", "HL60_IDHi", "MOLM14.Mut.AGI5198", "M14_IDHi", Phenotype)