谢谢版主的回复，自己试了一下，并参考了楼上stackoverflow的回复，x1如何表示没想明白（原谅我3把刀的思路，哈哈）


我自己的代码如下：


希望版主能再指点下。
------------因为加了‘$’符号，代码显示有点问题，但编辑的时候正常。代码截图如下：

我在画图过程中，并没有用时间格式来作为横轴，因为这样和纵轴的单位不一致，关键是在表示角度时要求横竖坐标的比例是可控的，所以只是用时间来做标签，但真正的度量是用的整数代替：我楼上的scale_x_discrete(label = b$date) 一句就是用时间做个标签而已。

谢谢版主的耐心回复，完美解决。点赞！

能提供一下完整的正确代码吗？我试了好久没有搞出来

library(tidyverse)

setwd("~/R/")
dat = read.csv(file = "wind_data.csv",header = T)
dat<-as.data.frame(dat)


dat$x0=as.POSIXct(dat$date)
dat$y0=0
dat$x1=dat$x0+dat$ws* cos(dat$wd / 180 * pi)
dat$y1=0+dat$ws* sin(dat$wd / 180 * pi)


  dat%>%ggplot(aes(x = factor(x0))) +
  geom_segment(aes(y = y0, xend = x1, yend = y1), arrow = arrow(angle = 30, length = unit(0.2, "cm"))) +
  ylim(-15, 15) +
  coord_fixed() +  #
  scale_x_discrete(label = dat$date) +
  labs(x = NULL, y = NULL) +
  theme(axis.text.x = element_text(angle = 90, size = 4))

NCL也可以画

您好，能否共享下整理好得数据表呢？