R 向散点图添加类似于绘图仪的箭头

这是我在这里的第一篇帖子，我想在过去的6个月里我已经读了很多你的问答。我目前正在研究ADCP（水生多普勒海流剖面仪）数据，由Dan Kelley提供的“oce”软件包处理（这是为那些想在ADCP中处理海洋学数据的人做的一点广告）。我在R方面不是很有经验，我读过关于levelplot函数的abline的问题

我目前拥有的是一个水平图，表示10米深度内采集的回波强度（来自后向散射信号，与电流同时监测）数据的时间序列，这条10米深度的线分为25行，每个测量沿该线进行。（请参阅代码部分以获取我拥有的图像）

（不幸的是，我的名声不允许我发布图片）。 然后，我继续生成另一个图，该图表示当前方向的箭头，如下所示：

• 每个箭头的长度表示电流强度
• 它的方向被表示（所有这一切都是通过获取海流强度的两个分量（东西/南北）来完成的，并表示产生的海流）
• 每个时间刻度都有一个箭头（因此，对于我的示例数据的1000列，当前强度始终有两个分量）
• 这些箭头绘制在每个测量单元的开头，因此在我的数据的每一行，允许有整个水柱的电流表示。 你可以看到代码部分有一个“我有”的电流表示

这个问题的目的是理解如何叠加这两种表示，在表示数据的每一行绘制当前箭头，从而表示当前方向、强度和回波强度。 在这里我找不到任何链接来描述我的意思，但这是我已经看到的东西

我试过使用面板功能，这似乎是最好的选择，但我对R和处理这类工作的知识很少，我希望你们中的一位有时间和知识来帮助我更快地解决这个问题。 当然，我可以回答任何问题或给出精确的答案。我可能会提出更多的要求，在编写一个大型代码6个月后，我现在对学习的渴望很大

表示数据的代码： 以下是一些代表我拥有的数据： U（速度的北/南分量）和V（东/西分量）：

然后，作为电流的表示：

   AA=14 
    x11()
par(mfrow=c(4,1))
         plotSticks(x=seq(from=(1),
                          to=(377),
                          by=(1)),
                    u=U1,
                    v=V1,
                    yscale=ysc,xlab='',ylab='',xaxt='n',yaxt='n',col=(rep('black',384)))
         axis(side=1)
plotSticks(x=seq(from=(1),
                          to=(377),
                          by=(1)),
                    u=U2,
                    v=V2,
                    yscale=ysc,xlab='',ylab='',xaxt='n',yaxt='n',col=(rep('black',384)))

plotSticks(x=seq(from=(1),
                          to=(377),
                          by=(1)),
                    u=U2,
                    v=V2,
                    yscale=ysc,xlab='',ylab='',xaxt='n',yaxt='n',col=(rep('black',384)))
plotSticks(x=seq(from=(1),
                          to=(377),
                          by=(1)),
                    u=U2,
                    v=V2,
                    yscale=ysc,xlab='',ylab='',xaxt='n',yaxt='n',col=(rep('black',384)))

---

为了简化表示，最后三个图基于相同的数据。

levelplot是一个晶格函数，请查看

？llines

。发布一些数据。仅仅发布一个随机矩阵并不能表明您正在使用哪种类型的数据布局。（我要去睡觉了，快半夜了。）你好，很抱歉在回答之前花了很长时间，谢谢你的帮助！我现在正在用一些数据编辑这个问题。在那里，我添加了一些数据，我试图用llines函数进行编辑。再次感谢你！levelplot是一个晶格函数，请查看

？llines

。发布一些数据。仅仅发布一个随机矩阵并不能表明您正在使用哪种类型的数据布局。（我要去睡觉了，快半夜了。）你好，很抱歉在回答之前花了很长时间，谢谢你的帮助！我现在正在用一些数据编辑这个问题。在那里，我添加了一些数据，我试图用llines函数进行编辑。再次感谢你！levelplot是一个晶格函数，请查看

？llines

。发布一些数据。仅仅发布一个随机矩阵并不能表明您正在使用哪种类型的数据布局。（我要去睡觉了，快半夜了。）你好，很抱歉在回答之前花了很长时间，谢谢你的帮助！我现在正在用一些数据编辑这个问题。在那里，我添加了一些数据，我试图用llines函数进行编辑。再次感谢你！

   AA=14 
    x11()
par(mfrow=c(4,1))
         plotSticks(x=seq(from=(1),
                          to=(377),
                          by=(1)),
                    u=U1,
                    v=V1,
                    yscale=ysc,xlab='',ylab='',xaxt='n',yaxt='n',col=(rep('black',384)))
         axis(side=1)
plotSticks(x=seq(from=(1),
                          to=(377),
                          by=(1)),
                    u=U2,
                    v=V2,
                    yscale=ysc,xlab='',ylab='',xaxt='n',yaxt='n',col=(rep('black',384)))

plotSticks(x=seq(from=(1),
                          to=(377),
                          by=(1)),
                    u=U2,
                    v=V2,
                    yscale=ysc,xlab='',ylab='',xaxt='n',yaxt='n',col=(rep('black',384)))
plotSticks(x=seq(from=(1),
                          to=(377),
                          by=(1)),
                    u=U2,
                    v=V2,
                    yscale=ysc,xlab='',ylab='',xaxt='n',yaxt='n',col=(rep('black',384)))