R 不在X轴上工作的日期

我有从1970年到2010年的每日

时间序列

数据，我正在尝试制作一个

线图

，其中线的颜色根据y轴的值而变化

我发现这是一个非常好的例子，它使用起来非常好，但是当我使用数据时，日期在

X轴上显示为数字，而不是
Dates
，即使数据是日期格式的。有人知道我做错了什么吗

我以前在
ggplot
中绘制过数据，没有问题，日期显示为日期

下面是我的代码和一些测试数据（这些日期也显示为数字）：

测试数据
测试日期使用lubridate将日期转换为十进制：

library(lubridate)
library(plotrix)

clplot(decimal_date(test_date), numbers, main = "", lwd = 3, 
   levels = c(1000, 5000, 10000), cols= c("black", "Blue", "Cyan", "Green"),
   showcuts = TRUE, bty = "n", xlab = "")


library(lubridate)
library(plotrix)

clplot(decimal_date(test_date), numbers, main = "", lwd = 3, 
   levels = c(1000, 5000, 10000), cols= c("black", "Blue", "Cyan", "Green"),
   showcuts = TRUE, bty = "n", xlab = "")