Olá Listeiros! Sou pós-graduanda da Engenharia de Biossistemas. Estou com dificuldade em editar a legenda usando geom_point(). Acredito que alguém possa  me  dar uma  indicação de como solucionar. O que eu pretendia fazer, era expressar a presente legenda (do exemplo abaixo) como intervalos de variação. Deste modo, gostaria de expressa-la como: [-35, -20), [-20, -10), [-10, 0), [0, 10), [10, 20), (20, 35]. Porém, sem perder a proporção de tamanho dos pontos de acordo com a distribuição dos valores. Alguém saberia me indicar se é possível de fazer? Abaixo, segue exemplo do que tenho feito #======================================================== rm(list=ls()) library(raster) library(rgeos) library(ggplot2) # retrieve map bra <- getData('GADM', country='BRA', level=1) bra_simpl <- gSimplify(bra, 0.01, topologyPreserve=TRUE) bra_map <- fortify(bra_simpl) # Plotting map gg <- ggplot() gg <- gg + geom_map(map=bra_map, data=bra_map,                     aes(x=long, y=lat, map_id=id),                     color="#2b2b2b", size=0.15, fill=NA) #================================================================================================= # Data to be plotted dados <- data.frame(                Lon = c(-52.41,-53.60,-51.20,-52.61,-50.00,-51.13,-48.91,-47.36,-49.98,-45.00,-47.95,-46.43,-46.88,-53.81,-51.18,-56.45,                        -47.95,-51.71,-47.92,-43.41,-45.00,-43.16,-44.11,-45.93,-47.46,-45.23,-46.41,-48.41,-48.18,-51.96,-49.13),                        Lat = c(-31.78,-28.63,-27.38,-27.11,-24.78,-23.31,-23.08,-20.58,-20.41,-20.03,-19.73,-18.51,-16.36,-22.30,                       -19.75,-14.40,-18.18,-17.91,-15.78,-13.26,-12.15,-11.08,-9.10,-9.10,-7.33,-5.50,-12.40,-10.71,-8.96,-6.63,-5.36),                            delta =c(18.08,13.38,19.38,14.10,13.76,9.03,8.84,-0.72,3.45,-2.78,-1.10,-8.07,-12.92,2.38,4.88,-3.94,-5.54,-5.89,-13.26,                            -24.18,-26.60,-31.46,-27.76,-30.17,-29.57,-29.87,-21.15,-20.95,-21.34,-26.82,-30.53)) # Plotting coordinate point on map p1 <- gg + geom_point(data=dados, aes(x=Lon, y=Lat, colour=delta,size=delta)) +           scale_color_continuous(name = "Incremento (%)",limits=c(-35,35), breaks=c(-35,-20,-10,0,10,20,35),low = c("red"), high="blue")+           guides(color= guide_legend(), size=guide_legend()) p1 <- p1 + scale_size_continuous(name = "Incremento (%)",limits=c(-35,35), breaks=c(-35,-20,-10,0,10,20,35)) p1 #================================================================================================= Desde já, muito obrigada pela atenção.