Добрый день,

Я пытаюсь создать график временных рядов со стрелками, показывающими направление ветра, и цветными, чтобы показать силу скорости ветра. В конечном итоге я пытаюсь получить сюжет примерно так (просто пример изображения, которое я нашел в Интернете):

Мне удалось найти подобный пост (см. Ниже), и я пытался следовать, но я застрял с отображением стрелок направления ветра правильно.

Предыдущий аналогичный пост:Временные ряды ветра ggplot2 со стрелками / векторами

Коды, которые я собрал до сих пор, таковы:

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()

Используя приведенный выше код, я получаю следующий сюжет:

Как вы можете видеть, график начинает стрелку там, где я хотел бы, чтобы она начиналась, но направление и конечная точка слишком длинны, и я не уверен, как можно масштабировать ее, чтобы она была более короткой стрелкой с цветом, кодированным для скорости. Я был бы очень признателен за ваши советы относительно того, как я могу добиться этого.

Большое спасибо, Аян