将日期转换为年份月份表示形式

问题描述

我有一个 Date ，并且有兴趣将其表示为 yyyymm 的整数。目前，我正在这样做：

I have a Date, and am interested in representing it as an integer of yyyymm form. Currently, I do:

get_year_month <- function(d) { return(as.integer(format(d, "%Y%m")))}
mydate = seq.Date(from = as.Date("2012-01-01"), to = as.Date("5012-01-01"), by = 1) 
system.time(ym <- get_year_month(mydate))
#    user  system elapsed 
#    5.972   0.974   6.951 

对于大型数据集，这非常慢。有没有更快的方法？请提供答案的时间安排，以便可以轻松比较它们。使用上面的示例。

This is very slow for large datasets. Is there a faster way? Please provide timings for your answers so they can be easily compared. Use the above example.

推荐答案

使用 lubridate 包中的函数可以几乎是函数的两倍：

Using functions from the lubridate package can be almost twice as fast as your function :

mydate = as.Date(rep("2012-01-01",1000))
library(lubridate)
library(microbenchmark)
microbenchmark(get_year_month(mydate),
               year(mydate)*100+month(mydate))

给予：

R> Unit: milliseconds
                               expr      min       lq   median       uq
             get_year_month(mydate) 2.150296 2.188370 2.218176 2.285973
 year(mydate) * 100 + month(mydate) 1.220016 1.228129 1.239704 1.284568

这篇关于将日期转换为年份月份表示形式的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！