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@gmail.com <agrohelder@hotmail.com>*
