r - 新的x轴未显示

我的数据集的值取决于天数。数据集中有超过6000天。我希望在图表的x轴上看到一些日子。

dates <- as.Date(YEN[,1], "%d.%m.%Y")
YEN <- as.xts(YEN[,2], dates)
plot(YEN, xaxt= 'n', ylab="Exchange rate", xlab= "Time")

有了这个，我创建了一个在x轴上没有值的图表。

我现在想要在x轴上显示第1天，第1000天和第3000天。

Axis(side=1, at=1:3, labels= dates(c[1,2000,3000])

R没有给出错误警告，但没有使用请求的值绘制新轴。

提前致谢！