Creating three groups of legends in ggplot2 in R

Question

I am plotting 5 elements in my graph:

• the occurrencies of 3 types of crime (anti-social behaviour, theft and violence)
• 3 smooth conditional means (line