<div><span style="color: #0000ff;">Ele não acessou a URL</span></div>
<div><span style="color: #0000ff;"> </span></div>
<div>
<div><span style="color: #0000ff;">bra <- getData('GADM', country='BRA', level=1)</span></div>
<div><span style="color: #0000ff;">tentando a URL 'http://biogeo.ucdavis.edu/data/gadm2/R/BRA_adm1.RData'</span></div>
<div><span style="color: #0000ff;">Erro em download.file(url = aurl, destfile = fn, method = "auto", quiet = FALSE,  : </span></div>
<div><span style="color: #0000ff;">  não foi possível abrir a URL 'http://biogeo.ucdavis.edu/data/gadm2/R/BRA_adm1.RData'</span></div>
<div><span style="color: #0000ff;">Além disso: Mensagens de aviso perdidas:</span></div>
<div><span style="color: #0000ff;">In download.file(url = aurl, destfile = fn, method = "auto", quiet = FALSE,  :</span></div>
<div><span style="color: #0000ff;">  não foi possível resolver 'biogeo.ucdavis.edu'</span></div>
</div>
<div> </div>
<div> </div>
<div class="notviscode" style="display: none;"><!--
/* 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;}
--></div>
<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.</p>
</div>
<div>_______________________________________________<br />R-br mailing list<br />R-br@listas.c3sl.ufpr.br<br /><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</div>