<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=utf-8"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:#954F72;
text-decoration:underline;}
.MsoChpDefault
{mso-style-type:export-only;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.WordSection1
{page:WordSection1;}
--></style></head><body lang=PT-BR link=blue vlink="#954F72"><div class=WordSection1><p class=MsoNormal>Olá Listeiros!<br>Sou pós-graduanda da Engenharia de Biossistemas. Estou com dificuldade em editar a legenda usando geom_point().<br><br>Acredito que alguém possa me dar uma indicação de como solucionar.<br><br>O que eu pretendia fazer, era expressar a presente legenda (do exemplo abaixo) como intervalos de variação.<br>Deste modo, gostaria de expressa-la como: [-35, -20), [-20, -10), [-10, 0), [0, 10), [10, 20), (20, 35].<br>Porém, sem perder a proporção de tamanho dos pontos de acordo com a distribuição dos valores.<br><br>Alguém saberia me indicar se é possível de fazer?<br>Abaixo, segue exemplo do que tenho feito<br>#========================================================<br>rm(list=ls())<br><br>library(raster)<br>library(rgeos)<br>library(ggplot2)<br><br># retrieve map<br>bra <- getData('GADM', country='BRA', level=1)<br>bra_simpl <- gSimplify(bra, 0.01, topologyPreserve=TRUE)<br>bra_map <- fortify(bra_simpl)<br><br># Plotting map<br>gg <- ggplot()<br>gg <- gg + geom_map(map=bra_map, data=bra_map,<br> aes(x=long, y=lat, map_id=id),<br> color="#2b2b2b", size=0.15, fill=NA)<br>#=================================================================================================<br># Data to be plotted<br>dados <- data.frame(<br> 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,<br> -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),<br> 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,<br> -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),<br> 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,<br> -24.18,-26.60,-31.46,-27.76,-30.17,-29.57,-29.87,-21.15,-20.95,-21.34,-26.82,-30.53))<br><br># Plotting coordinate point on map<br>p1 <- gg + geom_point(data=dados, aes(x=Lon, y=Lat, colour=delta,size=delta)) +<br> scale_color_continuous(name = "Incremento (%)",limits=c(-35,35), breaks=c(-35,-20,-10,0,10,20,35),low = c("red"), high="blue")+<br> guides(color= guide_legend(), size=guide_legend())<br>p1 <- p1 + scale_size_continuous(name = "Incremento (%)",limits=c(-35,35), breaks=c(-35,-20,-10,0,10,20,35))<br>p1<br>#=================================================================================================<br><br><br>Desde já, muito obrigada pela atenção.<o:p></o:p></p></div></body></html>