n<-90
t<-ts(1:n, frequency =1, start =as.Date("2014-01-01"))
s <- as.Date("2014-01-01")
dates<-seq(from=s, by=1, length.out=n)
t<-data.frame(dates,t)
head(t)
你参考一下上面这段，对第二句略做修改即可

我的最终结果是想用plot画出的图的横坐标用月份表示出来，但是结果不对着呢

airtime取值不对，你要修改第二句
airtime<-ts(1:n, frequency =1, start =as.Date("2014-01-01"))
就是1：n这里要换成你的数据

非常非常感谢，还有个小问题想请教一下