[R-br] geom_points () legenda como intervalo de variação e não valor único

[fabianidenise em gmail.com]

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.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20161110/20f67264/attachment.html>