Boa tarde,

Estou tentando produzir um gráfico de séries temporais com setas mostrando a direção do vento e coloridas para mostrar a força da velocidade do vento. Por fim, estou tentando obter uma trama mais ou menos assim (apenas uma imagem de exemplo que encontrei on-line):

Consegui encontrar um post semelhante (veja abaixo) e tentei segui-lo, mas estou preso com a exibição correta das setas de direção do vento.

Post similar anterior:séries temporais de vento ggplot2 com setas / vetores

Os códigos que reuni até agora são os seguintes:

require(ggplot2)
require(scales)
require(gridExtra)
require(lubridate)

dat <- data.frame(datetime = ISOdatetime(2013,08,04,0,0,0) +
                     seq(0:23)*60*60, pollutant = runif(24, 25, 75))

## create wind speed data
dat$ws <- runif(nrow(dat), 0 , 15 )

## create wind direction data
dat$wd <- runif(nrow(dat), 0 , 360 )

# define an end point for geom_segment
dat$x.end <- dat$datetime + minutes(60)

ggplot(data = dat, aes(x = datetime, y = pollutant)) +
  geom_line() +
  geom_segment(data = dat,
               size = 1,
               aes(x = datetime,
                   xend = x.end,
                   y = pollutant,
                   yend = wd),
               arrow = arrow(length = unit(0.5, "cm"))) +
  theme()

Usando o código acima, estou recebendo o seguinte gráfico:

Como você pode ver, o gráfico inicia a seta onde eu gostaria que fosse iniciada, mas a direção e o ponto final são muito longos e não tenho certeza de como posso escalar essa seta para ser uma seta mais curta, com código de cores para acelerar. Eu realmente aprecio sua orientação sobre como eu posso conseguir isso.

Muito obrigado, Ayan