Helder, boa tarde! Quanto à posição, você pode liberar a área fora do gráfico com o argumento xpd=T em par(). Ex: par(xpd=T) Quanto à escala de cores, no caso em questão, acredito que seja correto atribuir uma escala contínua aos pontos, uma vez que eles são discretos (se enquadram nos intervalos nominados). Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]

Olá, Helder! Reforçando o segundo ponto: Acredito que a legenda correta é tal como fornecida pelo comando points.geodata(), ou seja apresentando intervalos e símbolos associados. Ao usar quintis é possível definir até 5 cores (ou graduações) e somente essas cores é que deveriam constar na legenda. Optando por usar uma escala de cores, deveriam aparecer apenas as 5 utilizadas, sem as nuances e transições. A escala proposta faria sentido se os pontos assumissem colorações graduais e contínuas de acordo com seus valores, mas isso não ocorre. Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]

Boa tarde Rodrigo, Valeu pela ajuda, só precisei acrescentar o comando + coord_fixed(ratio = 1) para que a relação entre os eixos x e y ficassem proporcionais. Obrigado, *Hélder Gramacho * Recife-PE / *agrohelder@gmail.com <agrohelder@hotmail.com>* Em 30 de abril de 2014 11:18, Rodrigo Coster <rcoster@gmail.com> escreveu:

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

[image: Imagem inline 1] Desde já agradeço, *Hélder Gramacho * Recife-PE / *agrohelder@gmail.com <agrohelder@hotmail.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.