Question

我试图创建一个将两个月之间的所有月份都列入列表的函数：

date1<- 201305
date2<- 201511

months <- function(date1,date2){}

我希望它返回一个这样的列表：

Answer 1

首先，我们需要创建日期。你提供的东西还不是一个错过一天的日期 - 所以我们加一个：

R> d1 <- as.Date(paste0("201305","01"), "%Y%m%d")
R> d2 <- as.Date(paste0("201511","01"), "%Y%m%d")

鉴于两个日期，获取一系列日期非常简单：拨打seq()。同样可以按照您想要的方式进行格式化：

R> dat <- format(seq(d1,d2,by="month"), "%Y%m")

我们检查开头和结尾：

R> head(dat)
[1] "201305" "201306" "201307" "201308" "201309" "201310"
R> tail(dat)
[1] "201506" "201507" "201508" "201509" "201510" "201511"
R>

现在，作为一个功能：

datseq <- function(t1, t2) { 
   format(seq(as.Date(paste0(t1,"01"), "%Y%m%d"), 
              as.Date(paste0(t2,"01"), "%Y%m%d"),by="month"), 
          "%Y%m") 
}

Answer 2

这可以使用zoo包中的yearmon类来完成：

library(zoo)

ym1 <- as.yearmon(as.character(date1), "%Y%m") # convert to yearmon
ym2 <- as.yearmon(as.character(date2), "%Y%m") # ditto
s <- seq(ym1, ym2, 1/12) # create yearmon sequence
as.numeric(format(s, "%Y%m")) # convert to numeric yyyymm

，并提供：

[1] 201305 201306 201307 201308 201309 201310 201311 201312 201401 201402
[11] 201403 201404 201405 201406 201407 201408 201409 201410 201411 201412
[21] 201501 201502 201503 201504 201505 201506 201507 201508 201509 201510
[31] 201511

或者您可能更喜欢使用s这是一个类似于此的变量，但排序正确，可用于绘图：

> s
 [1] "May 2013" "Jun 2013" "Jul 2013" "Aug 2013" "Sep 2013" "Oct 2013"
 [7] "Nov 2013" "Dec 2013" "Jan 2014" "Feb 2014" "Mar 2014" "Apr 2014"
[13] "May 2014" "Jun 2014" "Jul 2014" "Aug 2014" "Sep 2014" "Oct 2014"
[19] "Nov 2014" "Dec 2014" "Jan 2015" "Feb 2015" "Mar 2015" "Apr 2015"
[25] "May 2015" "Jun 2015" "Jul 2015" "Aug 2015" "Sep 2015" "Oct 2015"
[31] "Nov 2015"

例如，这有效：

plot(seq(31) ~ s)

如何列出R中两个日期之间的所有月份

2 个答案: