<div dir="ltr">Segue uma solução usando o ggplot2:<div><br></div><div><div>links <- c("<a href="https://www.dropbox.com/s/o914ov34mv6r0sc/cadmio.csv">https://www.dropbox.com/s/o914ov34mv6r0sc/cadmio.csv</a>")</div>
<div><br></div><div>tokens    <- gsub("^.*/s/","",dirname(links))</div><div>fileNames <- basename(links)</div><div>newLinks  <- file.path("<a href="http://dl.dropbox.com/s">http://dl.dropbox.com/s</a>", tokens, fileNames);</div>
<div>newLinks</div><div><br></div><div>for (a in newLinks) {</div><div>  tryCatch(download.file(a, dest=basename(a), mode='wb'),</div><div>           error=function(...) print("Falha no download!"))}</div>
<div><br></div><div>cd<-read.table(file="cadmio.csv", sep=",", header=T,dec=".")</div><div><br></div><div>require(ggplot2)</div><div>ggplot(aes(x = Coord1, y = Coord2, colour = data), data = cd) + geom_point() + scale_colour_gradientn('Legenda', colours = c('blue', 'green', 'yellow', 'red'))</div>
</div><div><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-04-30 11:06 GMT-03:00 Helder Gramacho <span dir="ltr"><<a href="mailto:agrohelder@gmail.com" target="_blank">agrohelder@gmail.com</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Bom dia pessoal,</div><div><br></div><div>Gostaria de uma orientação sobre como elaborar uma legenda como mostrado na figura abaixo, uma barra externa ao gráfico, pois com o código que estou executando, a legenda está dividida em classes e posicionada internamente.</div>

<div><br></div><div>#Download do arquivo no dropbox (copiado do Alexandre Santos)</div><div>links <- c("<a href="https://www.dropbox.com/s/o914ov34mv6r0sc/cadmio.csv" target="_blank">https://www.dropbox.com/s/o914ov34mv6r0sc/cadmio.csv</a>")</div>

<div><br></div><div>tokens    <- gsub("^.*/s/","",dirname(links))</div><div>fileNames <- basename(links)</div><div>newLinks  <- file.path("<a href="http://dl.dropbox.com/s" target="_blank">http://dl.dropbox.com/s</a>", tokens, fileNames);</div>

<div>newLinks</div><div><br></div><div>for (a in newLinks) {</div><div>  tryCatch(download.file(a, dest=basename(a), mode='wb'),</div><div>           error=function(...) print("Falha no download!"))}</div>

<div><br></div><div>cd<-read.table(file="cadmio.csv", sep=",", header=T,dec=".")</div><div>attach(cd)</div><div>cd<-as.geodata(cbind(cd$Coord1,cd$Coord2,cd$data))</div><div>points(cd, pt.div= "quint",  x.leg=c(0,2.1), y.leg=c(3.8,5.8))</div>

<div><br></div><div><img src="cid:ii_145b2eec1f368b92" alt="Imagem inline 1" width="160" height="135" style="margin-right:0px"><br></div><div> Desde já agradeço,</div><div><div dir="ltr"><div style="text-align:center"><font size="1"><i><b>Hélder Gramacho </b></i></font></div>

<div style="text-align:center"><font size="1">Recife-PE / </font><i style="font-size:x-small;color:rgb(51,51,255)"><div style="display:inline!important"><i><a href="mailto:agrohelder@hotmail.com" target="_blank">agrohelder@gmail.com</a></i></div>

</i></div><div style="text-align:center"><br></div></div></div>
</div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><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.<br></blockquote></div><br></div>