Изменить текст / метки Легенда ggplot

Я считаю, что этот вопрос немного отличается от аналогичных, заданных здесь ранее, из-за использования scale_fill_brewer (. I Я работаю над хороплетом, похожим на этот https: //gist.github.com / 233134

Это выглядит так:

и легенда вроде:

Мне это нравится, но я хочу изменить метки в легенде, чтобы они выглядели как вырезанные, например (2, 4] на что-то более дружелюбное, например « от 2% до 4% » или « 2% - 4% ». Я видел в другом месте, что легко изменить метки внутри scale_. .. как видно здесь . Кажется, я не могу понять, куда поместить аргумент label =. Я, конечно, мог бы перепрограммировать choropleth $ rate_d , но это кажется неэффективным. Куда мне поместить аргумент labels = c (A, B, C, D ...) ?

Вот фрагмент интересующего кода (для полного кода используйте ссылку выше)

choropleth$rate_d <- cut(choropleth$rate, breaks = c(seq(0, 10, by = 2), 35))

# Once you have the data in the right format, recreating the plot is straight
# forward.

ggplot(choropleth, aes(long, lat, group = group)) +
  geom_polygon(aes(fill = rate_d), colour = alpha("white", 1/2), size = 0.2) + 
  geom_polygon(data = state_df, colour = "white", fill = NA) +
  scale_fill_brewer(pal = "PuRd")

Заранее благодарим вас за вашу помощь.

РЕДАКТИРОВАТЬ: Использование метода DWin (должен был опубликовать эту ошибку, поскольку это то, с чем я сталкивался раньше)

> ggplot(choropleth, aes(long, lat, group = group)) +
+   geom_polygon(aes(fill = rate_d), colour = alpha("white", 1/2), size = 0.2) + 
+   geom_polygon(data = state_df, colour = "white", fill = NA) +
+   scale_fill_brewer(pal = "PuRd", labels = lev4)
Error: Labels can only be specified in conjunction with breaks