R lubridate cyclic_encoding 日期时间的循环编码

将日期时间对象编码到循环坐标系中，其中由相同持续时间分隔的两对日期之间的距离相同。

用法

cyclic_encoding(
  x,
  periods,
  encoders = c("sin", "cos"),
  week_start = getOption("lubridate.week.start", 7)
)

参数

x: 日期时间对象
periods: 周期的特征向量。遵循与 period 和 floor_date 函数相同的规范。
encoders: 产生编码的函数名称。默认为"sin"和"cos"。允许使用任何接受数字输入的预定义函数的名称。
week_start: 周开始日(默认为 7，周日。设置lubridate.week.start 进行覆盖)。一周中各天的完整或缩写名称可以是英文或由当前区域设置提供。

值

列数等于 length(periods) * length(types) 的数字矩阵。

细节

机器学习模型不知道 12 月 31 日和 1 月 1 日在我们人类日历意义上很接近。 cyclic_encoding 通过将日期映射到圆圈上，让机器学习者清楚地知道两个日历日期很接近。

例子


times <- ymd_hms("2019-01-01 00:00:00") + hours(0:23)
cyclic_encoding(times, c("day", "week", "month"))
#>             sin.day       cos.day  sin.week   cos.week   sin.month
#>  [1,]  0.000000e+00  1.000000e+00 0.9749279 -0.2225209 0.000000000
#>  [2,]  2.588190e-01  9.659258e-01 0.9659258 -0.2588190 0.008445041
#>  [3,]  5.000000e-01  8.660254e-01 0.9555728 -0.2947552 0.016889480
#>  [4,]  7.071068e-01  7.071068e-01 0.9438833 -0.3302791 0.025332714
#>  [5,]  8.660254e-01  5.000000e-01 0.9308737 -0.3653410 0.033774142
#>  [6,]  9.659258e-01  2.588190e-01 0.9165623 -0.3998920 0.042213161
#>  [7,]  1.000000e+00 -1.608123e-16 0.9009689 -0.4338837 0.050649169
#>  [8,]  9.659258e-01 -2.588190e-01 0.8841154 -0.4672686 0.059081565
#>  [9,]  8.660254e-01 -5.000000e-01 0.8660254 -0.5000000 0.067509747
#> [10,]  7.071068e-01 -7.071068e-01 0.8467242 -0.5320321 0.075933114
#> [11,]  5.000000e-01 -8.660254e-01 0.8262388 -0.5633201 0.084351066
#> [12,]  2.588190e-01 -9.659258e-01 0.8045978 -0.5938202 0.092763002
#> [13,] -3.216245e-16 -1.000000e+00 0.7818315 -0.6234898 0.101168322
#> [14,] -2.588190e-01 -9.659258e-01 0.7579717 -0.6522874 0.109566427
#> [15,] -5.000000e-01 -8.660254e-01 0.7330519 -0.6801727 0.117956717
#> [16,] -7.071068e-01 -7.071068e-01 0.7071068 -0.7071068 0.126338595
#> [17,] -8.660254e-01 -5.000000e-01 0.6801727 -0.7330519 0.134711462
#> [18,] -9.659258e-01 -2.588190e-01 0.6522874 -0.7579717 0.143074722
#> [19,] -1.000000e+00 -1.836970e-16 0.6234898 -0.7818315 0.151427778
#> [20,] -9.659258e-01  2.588190e-01 0.5938202 -0.8045978 0.159770033
#> [21,] -8.660254e-01  5.000000e-01 0.5633201 -0.8262388 0.168100894
#> [22,] -7.071068e-01  7.071068e-01 0.5320321 -0.8467242 0.176419766
#> [23,] -5.000000e-01  8.660254e-01 0.5000000 -0.8660254 0.184726056
#> [24,] -2.588190e-01  9.659258e-01 0.4672686 -0.8841154 0.193019171
#>       cos.month
#>  [1,] 1.0000000
#>  [2,] 0.9999643
#>  [3,] 0.9998574
#>  [4,] 0.9996791
#>  [5,] 0.9994295
#>  [6,] 0.9991086
#>  [7,] 0.9987165
#>  [8,] 0.9982532
#>  [9,] 0.9977186
#> [10,] 0.9971129
#> [11,] 0.9964361
#> [12,] 0.9956882
#> [13,] 0.9948693
#> [14,] 0.9939795
#> [15,] 0.9930187
#> [16,] 0.9919872
#> [17,] 0.9908849
#> [18,] 0.9897119
#> [19,] 0.9884683
#> [20,] 0.9871543
#> [21,] 0.9857698
#> [22,] 0.9843150
#> [23,] 0.9827901
#> [24,] 0.9811950
plot(cyclic_encoding(times, "1d"))

plot(cyclic_encoding(times, "2d"), xlim = c(-1, 1))

plot(cyclic_encoding(times, "4d"), xlim = c(-1, 1))

源代码：R/cyclic_encoding.r

相关用法

注：本文由纯净天空筛选整理自Hadley Wickham等大神的英文原创作品 Cyclic encoding of date-times。非经特殊声明，原始代码版权归原作者所有，本译文未经允许或授权，请勿转载或复制。