[R-br] Legenda externa ao gráfico

[Helder Gramacho]

Bom dia pessoal,

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.

#Download do arquivo no dropbox (copiado do Alexandre Santos)
links <- c("https://www.dropbox.com/s/o914ov34mv6r0sc/cadmio.csv")

tokens    <- gsub("^.*/s/","",dirname(links))
fileNames <- basename(links)
newLinks  <- file.path("http://dl.dropbox.com/s", tokens, fileNames);
newLinks

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

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

[image: Imagem inline 1]
 Desde já agradeço,
*Hélder Gramacho *
Recife-PE /
*agrohelder em gmail.com <agrohelder em hotmail.com>*
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140430/a4565b3f/attachment.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: image.png
Tipo: image/png
Tamanho: 60120 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140430/a4565b3f/attachment.png>