Completed the qplot fonction with facets