Back to PhD Project

Rhod2, calcium indicator

ggplot(data=Rhod2_facs_analysis, aes(x = Cell.line, y = Rhod2, color = factor(Treatment, levels = c("DMSO", "AGI")))) +
  scale_color_manual(values=c("#0000FF", "#FF0000"), limits=c("DMSO", "AGI")) +
  geom_bar(stat = "identity", fill = "white", position = position_dodge()) + 
  labs(color = "Treatment", title = "Calcium indicator", x = "Cell lines")+
  theme_minimal()

PpIX

ggplot(data=PpIX_facs_analysis, aes(x = Cell.line, y = MFI_PpIX, color = factor(Treatment, levels = c("DMSO", "AGI")))) + 
  scale_color_manual(values=c("#0000FF", "#FF0000"), limits=c("DMSO", "AGI")) +
  geom_bar(stat = "identity", fill = "white", position = position_dodge()) + 
  labs(color = "Treatment", title = "PpIX indicator", x = "Cell lines")+
  theme_minimal()

PpIX flux (ALA/basal)

ggplot(data=PpIX_facs_analysis, aes(x = Cell.line, y = ALA.basal, color = factor(Treatment, levels = c("DMSO", "AGI")))) + 
  scale_color_manual(values=c("#0000FF", "#FF0000"), limits=c("DMSO", "AGI")) +
  geom_bar(stat = "identity", fill = "white", position = position_dodge()) + 
  labs(color = "Treatment", title = "PpIX ALA/basal", x = "Cell lines")+
  theme_minimal()

Scenith

PDF files:

Glycolyse dependency

ggplot(data=Scenith_analysis, aes(x=factor(Treatment, levels = c("DMSO", "AGI")), y=Gly_dependency, color=factor(Treatment, levels = c("DMSO", "AGI"))))+
  scale_color_manual(values=c("#0000FF", "#FF0000"), limits=c("DMSO", "AGI")) +
  geom_bar(stat = "identity", fill = "white", position = position_dodge()) + 
  labs(color = "Treatment", title = "Glycolyse dependency", x = "Treatment")+
  theme_minimal()

Mitochondria dependency

ggplot(data=Scenith_analysis, aes(x=factor(Treatment, levels = c("DMSO", "AGI")), y=Mito_dependency, color=factor(Treatment, levels = c("DMSO", "AGI"))))+
  scale_color_manual(values=c("#0000FF", "#FF0000"), limits=c("DMSO", "AGI")) +
  geom_bar(stat = "identity", fill = "white", position = position_dodge()) + 
  labs(color = "Treatment", title = "Mitochondria dependency", x = "Treatment")+
  theme_minimal()

Differenciation markers

CD11b

ggplot(data=Diff_facs_analysis[c(1:4),], aes(x=Cell.line, y=CD11b_PE_A, color=factor(Treatment, levels = c("DMSO", "AGI"))))+
  scale_color_manual(values=c("#0000FF", "#FF0000"), limits=c("DMSO", "AGI")) +
  geom_bar(stat = "identity", fill = "white", position = position_dodge()) + 
  labs(color = "Treatment", title = "CD11b", x = "Cell lines")+
  theme_minimal()

CD14

ggplot(data=Diff_facs_analysis[c(1:4),], aes(x=Cell.line, y=CD14.APC__A700_A, color=factor(Treatment, levels = c("DMSO", "AGI"))))+
  scale_color_manual(values=c("#0000FF", "#FF0000"), limits=c("DMSO", "AGI")) +
  geom_bar(stat = "identity", fill = "white", position = position_dodge()) + 
  labs(color = "Treatment", title = "CD14", x = "Cell lines")+
  theme_minimal()

CD15

ggplot(data=Diff_facs_analysis[c(1:4),], aes(x=Cell.line, y=CD15_APC_A, color=factor(Treatment, levels = c("DMSO", "AGI"))))+
  scale_color_manual(values=c("#0000FF", "#FF0000"), limits=c("DMSO", "AGI")) +
  geom_bar(stat = "identity", fill = "white", position = position_dodge()) + 
  labs(color = "Treatment", title = "CD15", x = "Cell lines")+
  theme_minimal()