scale_face_wrap implementation

I implemented the scale_facet_wrap function based on my understanding of how ggplot2. Let me know if there's anything wrong, I'm happy to fix it.