使用函数persp作为xts对象

Question

我正在使用xts对象，但是当使用函数persp时，未显示x轴上的日期（例如，2001-01-31），但是数字（例如，12000,14000,16000）。对于此任务，我正在使用：

library(xts)

od <- read.csv("F:GSWem.csv")  
od$Date<-as.character(od$Date) 
od$Date<-as.Date(od$Date,"%m/%d/%Y") 

p <- read.zoo(od, index.column = 1)
z - p
x <- as.xts(z)

maturity.T <- c(1:30)
xall <- as.matrix(x)

persp(index(x), maturity.T, xall, theta=25, xlab="Dates", 
      ylab="Maturity", zlab="interest    rate", ticktype="detailed")