Implement a few things from ggplot book