在x轴图中限制日期（）

Question

您好我有一个大约250行的数据集我希望能够限制日期，因为它们是重叠的并且不干净。 我只想要4位数的年份。

Date        Google.Close    Amazon.Close    Google.Return   Amazon.Return
2017-08-22  924.69                966.90             NA               NA
2017-08-23  927.00                958.00    0.002498132     -0.0092046993
2017-08-24  921.28                952.45    -0.006170411    -0.0057933069
2017-08-25  915.89                945.26    -0.005850571    -0.0075489547
2017-08-28  913.81                946.02    -0.002271034     0.0008040222
2017-08-29  921.29                954.06    0.008185487      0.0084987398


date<-gas$Date
amzcl<-gas$Amazon.Close
googcl<-gas$Google.Close
rtn_date <-gas$Date[2:253]
amzR<-gas$Amazon.Return[2:253]
googR<-gas$Google.Return[2:253]





plot(date, amzcl, ylim=c(900, 2000), type="l", pch=16,
 xlab="Amazon Stock Price by Year",
 ylab="Amazon Closing Price")
 axis(1,date,format(date,format="%y"))

谢谢

Answer 1

使用naxt删除以删除date标签，然后使用axis以您喜欢的格式添加标签。

既然您想要年份的最后4位数字，请使用format="%Y"

plot(date, amzcl, ylim=c(900, 1000), type="l", pch=16,
  xlab="Amazon Stock Price by Year",
  ylab="Amazon Closing Price", 
  xaxt='n')

axis(1,date,format(date,format="%Y"))

您应该在示例中得到如下图所示的数据：