ggplot change legend labels. Use the labels argument of scale_fill_discr