Tiago, obrigado por se oferecer a ajudar. Informo que encontrei a solução e compartilho com os demais integrantes da lista r-br. Ressalto que o gráfico exibe pontos com cores e tamanhos segundo o quartil do dado observado. Abraços, Alex Santos quantile(dadosT1$data) points(dadosT1,xlab="Coordenada X (coluna)",ylab="Coordenada Y (linha)", pt.divide="quartiles") legend(270,70, c("1º quartil", "2º quartil", "3º quartil", "4º quartil"), col=c('black', 'black', 'black', 'black'), pt.bg=c('blue', 'green', 'yellow', 'red'), pch=c(21,21,21,21), pt.cex=c(0.6,0.9,1.3,1.6),bty='0') Dec 04, 2013; 8:21am [image: Tiago de Souza]<http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=user_nodes&user=374689> Tiago de Souza<http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=user_nodes&user=374689> Nos envie um CMR para que possamos tentar ajudá-lo. Att. Tiago. ######################################################## Tiago de Souza Marçal - Graduando em Agronomia pelo CCA-UFES Bolsista de Iniciação Científica da área de Genética e Melhoramento de Plantas ######################################################## Em 4 de dezembro de 2013 08:12, Alex <alxcart@gmail.com> escreveu:

Ao grupo r-br, por favor, eu criei um gráfico de pontos onde o tamanho e cor de cada um é baseado no quartil ao qual ele pertence, o trecho do código está abaixo. Entretanto estou com dificuldades de criar a legenda. Alguém poderia me orientar?

*attach(dadosT1)* *par(mfrow=c(1,1))* *ramp<-colorRamp(c("yellow", "red"))* *points(dadosT1,xlab="Coordenada X (coluna)",* *ylab="Coordenada Y (linha)",* *pt.divide="quartiles", col=rgb(ramp(seq(0,1, length=5)), max=255))*

Desde já agradeço, Alex Santos