我正在使用一個資料表，它有一列 class c("POSIXct", "POSIXt")，代表一系列日期。這些日期是為期 7 天的系列中的第一個。資料如下所示：
x <- structure(list(date = structure(c(1645747200, 1646352000, 1646956800,
1647561600, 1648166400, 1648771200, 1649376000), class = c("POSIXct",
"POSIXt"), tzone = "UTC")), row.names = c(NA, -7L), class = c("data.table",
"data.frame"))
x
# date
# 1: 2022-02-25
# 2: 2022-03-04
# 3: 2022-03-11
# 4: 2022-03-18
# 5: 2022-03-25
# 6: 2022-04-01
# 7: 2022-04-08
我想提取我擁有的每個日期之間的天數，以及按時間順序排列的 7 天數。
我可以通過以下方式獲得每日序列：
x[, seq(first(date), last(date), by = "days"), ]
但是，對于如何為他們分配“周數”，我有點困惑。
我的目標是獲得這個：
# id date
# 1: 1 2022-02-25
# 2: 1 2022-02-26
# 3: 1 2022-02-27
# 4: 1 2022-02-28
# 5: 1 2022-03-01
# 6: 1 2022-03-02
# 7: 1 2022-03-03
# 8: 2 2022-03-04
# 9: 2 2022-03-05
# 10: 2 2022-03-06
# 11: 2 2022-03-07
# 12: 2 2022-03-08
# 13: 2 2022-03-09
# 14: 2 2022-03-10
# 15: 3 2022-03-11
# 16: 3 2022-03-12
# 17: 3 2022-03-13
# 18: 3 2022-03-14
# 19: 3 2022-03-15
# 20: 3 2022-03-16
# 21: 3 2022-03-17
# 22: 4 2022-03-18
# 23: 4 2022-03-19
# 24: 4 2022-03-20
# 25: 4 2022-03-21
# 26: 4 2022-03-22
# 27: 4 2022-03-23
# 28: 4 2022-03-24
# 29: 5 2022-03-25
# 30: 5 2022-03-26
# 31: 5 2022-03-27
# 32: 5 2022-03-28
# 33: 5 2022-03-29
# 34: 5 2022-03-30
# 35: 5 2022-03-31
# 36: 6 2022-04-01
# 36: 6 2022-04-02
# 36: 6 2022-04-03
# 36: 6 2022-04-04
# 36: 6 2022-04-05
# 36: 6 2022-04-06
# 36: 6 2022-04-07
uj5u.com熱心網友回復：
您可以使用strftime rleid：
library(data.table)
x[, "week.number" := rleid(strftime(date, format = "%V"))]
輸出
data.table(date = x[, seq(first(date), last(date), by = "days"), ]
)[, "week.number" := rleid(strftime(date, format = "%V"))][]
date week.number
1: 2022-02-25 1
2: 2022-02-26 1
3: 2022-02-27 1
4: 2022-02-28 2
5: 2022-03-01 2
6: 2022-03-02 2
7: 2022-03-03 2
8: 2022-03-04 2
9: 2022-03-05 2
10: 2022-03-06 2
11: 2022-03-07 3
12: 2022-03-08 3
13: 2022-03-09 3
14: 2022-03-10 3
15: 2022-03-11 3
16: 2022-03-12 3
17: 2022-03-13 3
18: 2022-03-14 4
19: 2022-03-15 4
20: 2022-03-16 4
21: 2022-03-17 4
22: 2022-03-18 4
23: 2022-03-19 4
24: 2022-03-20 4
25: 2022-03-21 5
26: 2022-03-22 5
27: 2022-03-23 5
28: 2022-03-24 5
29: 2022-03-25 5
30: 2022-03-26 5
31: 2022-03-27 5
32: 2022-03-28 6
33: 2022-03-29 6
34: 2022-03-30 6
35: 2022-03-31 6
36: 2022-04-01 6
37: 2022-04-02 6
38: 2022-04-03 6
39: 2022-04-04 7
40: 2022-04-05 7
41: 2022-04-06 7
42: 2022-04-07 7
43: 2022-04-08 7
取決于您需要什么，但這可能更適合您的預期輸出：
data.table(date = x[, seq(first(date), last(date), by = "days"), ]
)[, "week.number" := ((rleid(date) - 1) %/% 7) 1][]
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/510302.html
標籤：r日期时间序列数据表
上一篇：在c#中以特定格式顯示當前日期