I\'m plotting results from various British elections in Leaflet and ran into a bit of a problem with legends.
For the various results in the general election I\'m us
You could change it from a yellow->purple scale and make your own scale:
map = map %>% addLegend("bottomright",
colors =c("#FFC125", "#FFC125", "#8A4117", "#7D0552", "#571B7E"),
labels= c("less", "","","","", "more"),
title= "(e.g.) % voting UKIP at GE2015"
opacity = 1)
If you get the correct colors then it should look similar. Not the answer you were looking for, but it's a good workaround. Your output would look like this:
Spend more time looking for better color transition and you could get a legend that looks similar to the yellow-purple color pallet you have up top.