[R-br] Legenda de pontos

A lista r-br, por favor, eu gostaria de criar uma legenda de pontos de um gráfico. O tamanho e cores seguem a distribuição do pt.divide="rank.proportional" e uma rampa de cores criadas. O trecho do código está abaixo, a parte da legenda é apenas uma tentativa, mas não atende ao que eu quero. Desde já agradeço, Alex Santos attach(dadosT1) par(mfrow=c(1,1)) ramp<-colorRamp(c("yellow", "red")) points(dadosT1,xlab="Coordenada X (coluna)", ylab="Coordenada Y (linha)", pt.divide="rank.proportional", col=rgb(ramp(seq(0,1, length=5)), max=255)) legend(0,150, c('0%', '25%', '50%', '75%'), col=c('red', 'dark blue', 'dark green'), pch=c(1,2,3))