Jenks breaks and ggplot

Here is how to create Jenks breaks classification for maps with ggplot2 with class labels that show only the top number in the class.

classes <- classIntervals(joined$Value, n = 9, style = "fisher")

joined <- joined %>% mutate(percent_class = cut(joined$Value, breaks=classes$brks, include.lowest = T,
labels=scales::comma(classes$brks[2:length(classes$brks)]),0) )