Plot petridish

Example of plotting Cacatoo data in Rstudio

grid_dat %>% filter(time>0) %>% 
  ggplot(aes(x=i,y=-j,fill=as.factor(value))) +
  geom_raster() +
  theme_void() +
  coord_fixed() +
  facet_wrap(~time,nrow=2) +
  scale_fill_manual(name="Genotypes",values=c("black","blue","yellow","green","purple","red"), labels=c("empty space","wildtype","mutant 1","mutant 2","mutant 3"))

time_course %>% ggplot(aes(x=time,y=value,col=name)) +
  geom_line(size=2) +
  theme_bw() +
  xlab("Time")+
  ylab("Cell count") +
  scale_colour_manual(name="Genotypes",labels=c("mutant 1","mutant 2","mutant 3","mutant 4","wildtype"), values=c("yellow","green","purple","red","blue"))