如何在具有滞后版本的R中绘制3D时间序列

Question

我在这里很新，所以我不太熟悉大多数命令。
我想用x轴上的数据，z上的滞后序列以及y上的时间变量来创建3D图。我目前正在使用密谋，但它给了我奇怪的结果。我的代码中是否有任何错误，还是我使用的软件包错误？ 我的数据是从1997年1月到2018年8月的出口。

到目前为止，这是我的代码。

library(readxl)

Export <- read_excel("C:/Users/Alecsandra/Downloads/Export.xlsx")
export <- ts(Export, start=c(1997, 1), end=c(2018, 8), frequency=12)    
export1 <- ts(export[-1], start=c(1997, 1), end=c(2018, 7), frequency=12)

#Plotly said Z variable needs to be matrix so i made my time variable matrix
Time <- matrix(ncol=10, nrow=26) 
Time[] <- seq(1, 260, by = 1)

plot_ly(x = export1, y = export, z = Time) %>% add_surface()

这是我的结果：

Answer 1

不确定要做什么，但这也许是一个提示，即使不是ts对象也是如此：

library(rgl)
t <- seq(100)
x <- cumsum(rnorm(length(t))
y  <- lag(x)
plot3d(x,y,t)
lines3d(x,y,t, new=T, col=colorRampPalette(c("red", "grey80","blue"))(100)[t])

基本上查看rgl包和plot3d等。