Question

我想绘制一个时间序列。我创建了一个示例来说明图形的外观：

$("input[type=text]").css('border','1px solid red').fadeOut("slow");

实际数据集包含6334个值。因此我将代码更改为：

 set.seed(1)
    r <- rnorm(20,0,1)
    z <- c(1,1,1,1,1,-1,-1,-1,1,-1,1,1,1,-1,1,1,-1,-1,1,-1)
    data <- as.data.frame(na.omit(cbind(z, r)))
    series1 <- ts(cumsum(c(1,data[,2]*data[,1])))
    series2 <- ts(cumsum(c(1,data[,2])))
    d1y <- seq(as.Date("1991-01-01"),as.Date("2015-01-01"),length.out=21)
    plot_strategy <- function(series1, series2, currency)

{x11()
 matplot(cbind(series1, series2), xaxt = "n", xlab = "Time", 
         ylab = "Value", col = 1:3, ann = TRUE, type = 'l',  
         lty = 1)
 axis(1, at=seq(2,20,2), labels=format(d1y[seq(2,20,2)],"%Y"))

 legend(x = "topleft", legend = c("TR", "BA"),
        lty = 1,col = 1:3)
 dev.copy2pdf(file= currency, width = 11.69, height = 8.27)}

plot_strategy(series1, series2,
              currency= "all.pdf")

但是现在，x轴上没有值。有什么建议吗？

日期在x轴上;大数据集

0 个答案: