在persp中使用轴上的日期

Question

我正在尝试在persp图的x轴上绘制日期，但无法找到这样做的方法。这就是我所在的地方：

x <- seq(-10, 10, length= 30)
x0 <- as.Date("2000-01-01")
x.dates <- seq(x0,x0+length(x)-1,1)
y <- x
f <- function(x,y) { r <- sqrt(x^2+y^2); 10 * sin(r)/r }
z <- outer(x, y, f)
z[is.na(z)] <- 1
op <- par(bg = "white")
persp(x.dates, y, z, theta = 30, phi = 30, expand = 0.5, col = "lightblue",ticktype="detailed")

Answer 1

这是一种用日期绘制视角的方法（作者Jeff Ryan）：

http://www.quantmod.com/examples/chartSeries3d/

上图的alpha代码位于以下网址。这是R代码的下载，所以我故意省略了http的东西：

www.quantmod.com/examples/chartSeries3d/chartSeries3d.alpha.R

如果查看代码，就可以看到他是如何做到的。