日付の時間差を年単位の時間単位認識数値ベクトルとしてビニングする

計算する必要があります「いくつの x 離れたユニット」 POSIX日付のベクトルの各要素は、指定された参照日付からのものです。ここで、

• x のような「典型的な」時間単位です月、週間、四半期 等
• 日付ベクトルは複数年にわたることができます
• 結果は numeric である必要がありますベクター

私は何かを持っていますが、一般化できる一貫したアプローチのようには感じません（2つの異なるアプローチが月  そして週間）。

おそらく何の価値もない：私は一般的に準拠するソリューションを探していますISO 8601

「一貫性のある」という意味で、理想的には、常に as.numeric(dates) を活用するソリューションを言うその後、いくつかの巧妙な「時間単位ビニング」を行います。しかし、ヶ月 各月には異なる日数が含まれているため、これがどのように達成されるかわかりません（常に安全に「1週間に7日間」と言うことができるため、数週間は機能します）。

言い換えれば：ヶ月  (as.numeric(.x) / (<something>)) のようなものを使用したい (as.numeric(.x) / (60 * 60 * 24 * 7)) を使用するようににとって週間。それは <something>  日付の違いをビニングする一般的な方法を探しています。

関数の定義：

library(magrittr)
library(purrr)
normalize_time_distance_month <- function(dates) {
  dates %>%
    as.POSIXct() %>%
    purrr::map_dbl(function(.x)
      as.numeric(format(.x, "%y")) * 12 + as.numeric(format(.x, "%m")))
}
normalize_time_distance_week <- function(dates) {
  dates %>%
    as.POSIXct() %>%
    purrr::map_dbl(function(.x)
      (as.numeric(.x) / (60 * 60 * 24 * 7)) %>%
        round())
}

月：

# Months ------------------------------------------------------------------
dates <- seq(as.POSIXct("2018-03-01"), length.out = 24, by = "month")
origin <- as.POSIXct("2018-05-01")
dates_norm <- normalize_time_distance_month(dates)
origin_norm <- normalize_time_distance_month(origin)
(time_diffs <- dates_norm - origin_norm)
#>  [1] -2 -1  0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20
#> [24] 21

週：

# Weeks -------------------------------------------------------------------
dates <- seq(as.POSIXct("2018-05-07"), length.out = 104, by = "week")
origin <- as.POSIXct("2018-05-21")
dates_norm <- normalize_time_distance_week(dates)
origin_norm <- normalize_time_distance_week(origin)
(time_diffs <- dates_norm - origin_norm)
#>   [1]  -2  -1   0   1   2   3   4   5   6   7   8   9  10  11  12  13  14
#>  [18]  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31
#>  [35]  32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48
#>  [52]  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65
#>  [69]  66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82
#>  [86]  83  84  85  86  87  88  89  90  91  92  93  94  95  96  97  98  99
#> [103] 100 101

2018-05-25に作成されたreprexパッケージ （v0.2.0）。