0

这是我的目标输出，z它将提供我的带有 x 轴的图。

z<-c("2014-01", "", "", "2014-04", "", "", "2014-07", "", "","2014-10", "", "", "2015-01")

该图将每月制作一次，我的目标是自动创建轴。2015-01 是我最后一个可用的数据点，该图将显示从 2014-01 开始的 1 年跨度。下一次更新会让我想将情节设置为 2015-02 到 2014-02。

可以看出，轴的标记以 3 个月的步长返回，中间的刻度为空。

我可以通过只提供最新的标签 2015-02 来自动化这个过程，其余的会被 R 以某种方式扣除吗？

我在想也许将我的起点 2015-01 转换为日期格式并将其排序回 2014-01。然后再次使其成为角色并将其用作轴...

myz <- as.Date(c("2014-01", "2015-01"), "%Y - %m")

但是 myz 是空的。而且空勾的问题还远未解决。

有什么建议吗？

4

1 回答 1

0

这可能会更有效，但这里有一个解决方案：

version <- "201701"
endDate = as.Date(paste0(version,"01"), "%Y%m%d")

startDateString = paste0(as.integer(substr(version, 1, 4)) - 3, substr(version, 5, 6))
startDate = as.Date(paste0(startDateString,"01"), "%Y%m%d")

rngx <- format(seq(startDate, endDate, "3 months"), "%Y-%m")


output = c()
for(i in 1:(length(rngx)-1)) {
  output = c(output, rngx[i], "", "")
}
output = c(output, rngx[length(rngx)])

version <- "201701"标记开始日期（也用于脚本中的其他部分，例如setwd()

于 2017-02-02T13:56:25.107 回答