Segue uma solução usando o ggplot2:

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=".")

require(ggplot2)

ggplot(aes(x = Coord1, y = Coord2, colour = data), data = cd) + geom_point() + scale_colour_gradientn('Legenda', colours = c('blue', 'green', 'yellow', 'red'))

2014-04-30 11:06 GMT-03:00 Helder Gramacho <agrohelder@gmail.com>:

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

 Desde já agradeço,

Hélder Gramacho 

Recife-PE / 

agrohelder@gmail.com

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.