Cambiar texto/etiquetas ggplot leyenda

Question

Creo que esta pregunta es ligeramente diferente a las preguntas similares hechas aquí antes debido al uso de scale_fill_brewer(. Estoy trabajando en un coropletas similares a éste https://gist.github.com/233134

que tiene este aspecto:

y la leyenda como:

me gusta, pero quieren cambie las etiquetas en la leyenda de las etiquetas de corte, es decir, (2, 4) a algo más amigable como '2% a 4% 'o' 2% - 4% '. He visto en otro lugar que es fácil cambiar las etiquetas dentro de la escala _... como se ve here. Parece que no puedo averiguar dónde poner las etiquetas = argumento. Por supuesto, podría volver a codificar choropleth$rate_d, pero eso parece ser ineficiente. ¿Dónde debería poner el argumento labels=c(A, B, C, D...)?

Aquí está la parte del código de interés (para el código completo utiliza el enlace anterior)

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") 

Gracias de antemano por su ayuda.

EDIT: utilizando el método de Dwin (debería haber publicado este error ya que esto es lo que tenía que enfrentar antes)

> 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 

Answer 1

Además de añadir una versión modificada de los niveles, también es necesario establecer el parámetro 'breaks' a scale_fill_brewer:

lev = levels(rate_d) # used (2, 4] as test case 
lev2 <- gsub("\\,", "% to ", lev) 
lev3 <- gsub("\\]$", "%", lev2) 
lev3 
[1] "(2% to 4%" 
lev4 <- gsub("\\(|\\)", "", lev3) 
lev4 
[1] "2% to 4%" 

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, , breaks=seq(0, 10, by = 2))