Defining the scale of the legend for a plot_usmap in R...