在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

這裏有陰謀的日期觀點的方式（由傑夫·賴安）：

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

對於上述圖中的字母代碼是在下面的網址。這是R代碼裏面下載，所以我故意省略了HTTP的東西：

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

如果你在看代碼，你可以看到他做到了。