Jodavid, Tente: RosaDosVentos <- function(loc,size,bearing=0,cols,cex=1,...) { if(missing(loc)) stop("loc is missing") if(missing(size)) stop("size is missing") if(missing(cols)) cols <- rep(c("white","black"),8) radii <- rep(size/c(1,4,2,4),4) x <- radii[(0:15)+1]*cos((0:15)*pi/8+bearing)+loc[1] y <- radii[(0:15)+1]*sin((0:15)*pi/8+bearing)+loc[2] for (i in 1:15) { x1 <- c(x[i],x[i+1],loc[1]) y1 <- c(y[i],y[i+1],loc[2]) polygon(x1,y1,col=cols[i]) } polygon(c(x[16],x[1],loc[1]),c(y[16],y[1],loc[2]),col=cols[16]) b <- c("L","N","O","S") for (i in 0:3) text((size+par("cxy")[1])*cos(bearing+i*pi/2)+loc[1], (size+par("cxy")[2])*sin(bearing+i*pi/2)+loc[2],b[i+1],cex=cex) } Att. Pedro De: r-br-bounces@listas.c3sl.ufpr.br [mailto:r-br-bounces@listas.c3sl.ufpr.br] Em nome de Jodavid Ferreira Enviada em: Monday, February 27, 2012 12:53 PM Para: r-br@listas.c3sl.ufpr.br Assunto: [R-br] Rosa dos Ventos Alguém sabe como colocar Rosa dos ventos nos mapas, direto do R? -- Jodavid Ferreira Responsável pela comissão de Comunicação do MJ da RCCPB - http://jovem.rccpb.com.br Responsável pela comissão de Comunicação e do Ministério Jovem do Grupo de Oração Boa Esperança - http://grupoboaesperanca.com Bacharelando em Estatística - UFPB Estagiário no Laboratório de Estatística Aplicada ao Processamento de Imagens e Geoprocessamento - http://de.ufpb.br/~leapig http://jodavidferreira.com