Hi, follow this steps:
you have your date in Julian but you need it something like this

for that you have to run this lines
df$date <-as.Date(df$dt, origin=as.Date("1960-01-01"))
df$time <- as.POSIXct(df$date, tz='UTC')
now, for the plot
library(oce)
tt <- df$time
plotSticks(tt, 0, df$u, df$v, yscale=10, ylab='', yaxt='n', length=0)
for "clean the arrows"
library(signal)
bw <- butter(1, 0.1) # lowpass with normalized cutoff of 0.1
uf <- filtfilt(bw, df$u)
vf <- filtfilt(bw, df$v)
plotSticks(tt, 0, uf, vf, yscale=10, xlab='', ylab='', yaxt='n', length=0)
I'm a new user so I can't upload many photos, sorry if my english is not good.
Just follow the info in the link and good luck.