r - removing scientific notation from a ggplot map legend

Question

I am making a choropleth with ggplot and I am trying to fit the labels for my legend in the frame but R keeps putting the labeled values in scientific notation. Does anyone know of a way to address this? I have the following code which works fine when the values of my labels are smaller, but I need to include the range.

 ta<- quantile(look13$capcpi,c(0, 0.2, 0.4, 0.6, 0.8, 1.0) )
 t<- c('$35,141-$37,916', '$37,916-$40,236','$40,236-$43,364','$43,364-$45,280', '$45,280-$59,688')
 look13$capcpi_q<- cut(look13$capcpi,ta, lables= t, include.lowest = TRUE)
 lookmap<- merge(st,look13, by.x='id', by.y= 'area')
 realpi<- ggplot(lookmap, aes(x=long, y=lat, group=group, fill= capcpi_q))+
          geom_path() + geom_polygon(color='black')+ 
          scale_fill_manual(values= pal)+ theme_clean()

Answer 1

Generally, you can use the scales package and a label parameter to scale_color_continuous (or discrete):

library(ggplot2)
library(scales)
library(ggthemes)

# make up some data

dat <- data.frame(state=tolower(rownames(USArrests)), 
                  rate=USArrests$Murder*10000000,
                  stringsAsFactors=FALSE)

us <- map_data("state")

gg <- ggplot()
gg <- gg + geom_map(data=us, map=us, 
                    aes(x=long, y=lat, map_id=region),
                    color="#7f7f7f", size=0.15, fill="white")
gg <- gg + geom_map(data=dat, map=us,
                    aes(fill=rate, map_id=state))
gg <- gg + scale_fill_continuous(label=comma)
gg <- gg + coord_map("albers", 39, 42)
gg <- gg + theme_map()
gg