R：你怎么把月份放在plot.zoo多个情节的X轴上？

Question

在一个闪亮的应用程序中，我想把plot.zoo多线图的月 - 年（即“1月13日”，“2月13日”）。我用Google搜索了，看起来你必须使用一个面板和if语句来查找最后一个情节，但我仍然无法获得在x轴上显示的月份。

以下是您可以运行的代码：

library("zoo")

Factors <- matrix(seq(from=1, to=9, by=1), nrow=3,ncol=3)
Factors
datesNumeric <- cbind(20130101, 20130220,20130801)
dates <- as.Date(as.character(datesNumeric), format="%Y%m%d")
ticks <- seq(dates[1], dates[length(dates)], by = "1 month") #I make some ticks
ticks

my.panel <- function(x, y, ..., pf = parent.frame()) {
  grid(NA,NULL)
  #abline(v=seq(1,168,24),col = "lightgray", lty = "dotted", lwd = par("lwd"))
  lines(x, y, ...)

  #if bottom panel
  if (with(pf, length(panel.number) == 0 ||panel.number %% nr == 0 || panel.number == nser)) {
    #axis(1, at = ticks, labels = ticks)
    axis.Date(1, at = ticks, format= "%m-%y", las = 1)
  }
 }

plot(as.zoo(Factors), main="Factors 1,2, & 3", ylab=c("Factor 1","Factor 2","Factor 3") ,      xlab= "Date", panel = my.panel,yax.flip=FALSE,col=1:3,xaxt="n")

知道如何在x轴上显示日期（即“1月13日”，“2月13日”等）？谢谢。

Answer 1

您应该创建一个可重现的示例。 plot.zoo只是一个基本情节。  因此，要使用日期格式化轴，您应该使用axis.Date。

x.Date <- as.Date(paste(2003,  c(1, 3, 7, 9, 14), 02,sep = "-"))
x <- zoo(rnorm(5), x.Date)
plot(x,xaxt="n")
axis.Date(1, at = x.Date, format= "%m-%y", las = 1)

运行更新后

编辑：

您应该创建一个有效的zoo对象。

 plot(zoo(x=Factors,order.by=ticks),  ## here your error
     main="Factors 1,2, & 3", ylab=c("Factor 1","Factor 2","Factor 3") ,    
 xlab= "Date", panel = my.panel,yax.flip=FALSE,col=1:3,
     format='%b-%y') ## format labels