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