This is the first time I have tried something like this and I know it's not perfect but I will make more slides in R and try to be better.