R 在点上附加箭头

我正在可视化一个4维数据集。 让我们将变量表示为

x，y1，y2

和

y3

，其中

x

表示日期，

y

表示连续变量，

y2，y3

表示二维向量的分量

（y2，y3）

。现在，我想为

x

和

y1

绘制一个直线图，另外在

（x，y1）

点附加

（y2，y3）

箭头

我试过了

ggplot(data=data,aes(x=x,y=y1)) + geom_line() +
      geom_segment(aes(xend=x+y2,yend=y1+y3), arrow = arrow())

但效果不好，所以我想我可能需要重新调整一下。如何使用

ggplot

更新：我已附加了一个（及其附件）。该数据集包含从位于整个赤道太平洋的一系列浮标上获取的海洋学和地面气象读数。预计这些数据将有助于理解和预测厄尔尼诺/南方涛动（ENSO）周期（根据对气候变化的描述）。现在，例如，我想用上面描述的符号可视化

x=day，y1=湿度，y2=zon.winds，y3=mer.winds

更新2：例如，我想为特定浮标绘制此图

---

我无法确定您要显示的内容。 据我所知，您的数据集有50个浮标，每个浮标每天提供一次测量

library(ggplot2)
elnino <- read.table('elnino.txt', col.names=c('buoy','day','latitude','longitude','zon.winds','mer.winds','humidity','air.temp','ss.temp'), as.is=TRUE, na='.')
elnino <- elnino[elnino$humidity > 40,]  # removing a single point that seems to be an outlier.

ggplot(elnino, aes(x=day,y=humidity, group=buoy)) + geom_point()
ggplot(elnino, aes(x=day,y=humidity, group=buoy)) + geom_line()

库（ggplot2）
elnino请提供一些样本数据，以便我们能够帮助您。@DidzisElferts谢谢，我已经更新了我的问题。谢谢您的回答！我用一个例子再次更新了我的问题。我想这会更清楚。
# We select a single buoy
el <- subset(elnino, buoy==1)

library(grid)
ggplot(el, aes(x=day,y=humidity, group=buoy)) + geom_line() + geom_segment(aes(yend=humidity+zon.winds, xend=day+mer.winds), arrow = arrow(length = unit(0.1,"cm")))

el <- transform(el, zon.winds = zon.winds * -0.3, mer.winds=mer.winds * -0.3)