[R-br] Legenda externa ao gráfico

[Helder Gramacho]

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



Em 30 de abril de 2014 11:18, Rodrigo Coster <rcoster em 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 em 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 em gmail.com <agrohelder em hotmail.com> *
>>
>>
>> _______________________________________________
>> R-br mailing list
>> R-br em 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 em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140430/e7dc02cd/attachment-0001.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/e7dc02cd/attachment-0001.png>