Final ggplot2 part 2 slide fixed