更改线框中的轴文本以显示日期格式

Question

我正在尝试将轴上的数值更改为我选择的字符串。目的是用＆＃39;％m /％d /％y＆＃39;替换数字日期。格式。

library(lattice)
#set up some simplified data
x <- seq(41600, 41630, 1)
y <- seq(0, 30, 1)

# Desired names in X axis
datenames <- as.Date(seq(41600, 41630, 5), origin="1899-12-30")

myGrid <- data.frame(expand.grid(x,y))
colnames(myGrid) <- c("x","y")
myGrid$z <- myGrid$y

wireframe(
  myGrid$z ~ myGrid$x * myGrid$y, 
  xlab="Date", ylab="Y", zlab="Z",
  scales = list(z.ticks=5, arrows=FALSE, col="black", font=3, tck=1)
)

Answer 1

可以通过在名为x，y或z的列表中提供参数来单独自定义每个轴。

wireframe(
  myGrid$z ~ myGrid$x * myGrid$y, 
  xlab="Date", ylab="Y", zlab="Z",
  scales = list(x=list(at=seq(41600, 41630, 5), labels=datenames),
                arrows=FALSE, col="black", font=3, tck=1)
)