4.4 Fig 3G and 4B

suppressMessages(library(ggplot2))
suppressMessages(library(RColorBrewer))
ggplot(data.frame(group = c('AtoB','BtoA'),value=c(0.8,2.8)),aes(x=group,y=value)) +
  geom_col(aes(fill = group),width=0.6) +
  scale_fill_manual(values = c("#00AFBB", "#E7B800", "#FC4E07"))+theme_bw() +
  theme(axis.line = element_line(size=0.5, colour = "black"),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(), panel.background = element_blank(),
        axis.text.x=element_text(colour="black", size = 9),
        axis.text.y=element_text(colour="black", size = 9))+xlab("")+ylab("% Switched compartment")+ylim(0,3)

pie(c(532/768*100,100-532/768*100), labels = c("hNAD","non-hNAD"), border="white", col=c('#2BA809','#E7B800') )