<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">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>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>