How do I stop my X axis being cut short on my ggplot?

Also please see this discussion, which should answer your question: