Function to drawing a Compass Rose in Maps based in ggplot2