怎样让R中，时序图的横坐标显示日期啊

数据是这样的是一个疾病的发病率，我想画时序图下边这样的

我画出来的是下图，是自动生成的横坐标，显示的是1，2，一直到120，我是想问如何才能画出上图呢，让我的横坐标显示date那一栏的数据

在网上搜了，用了
plot(IR, xlab="date", ylab="IR",xaxt="n")
t<-seq(0,120,12)
x<-seq(2009,2019,1)
axis(1, t, x)
画出的是下图

用自带包的数据画出来的图横坐标是数据中的日期列，用自己的数据就不行了。实在是初学者，不好意思。