удаление научных обозначений с карты ggplot легенда

Question

Я делаю choropleth с ggplot, и я стараюсь подгонять метки для моей легенды в рамке, но R продолжает помещать обозначенные значения в научную нотацию. Кто-нибудь знает, как это можно решить? У меня есть следующий код, который отлично работает, когда значения моих меток меньше, но мне нужно включить диапазон.

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

Как правило, вы можете использовать scales пакет и label параметр scale_color_continuous (или 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