R 我们能从日期中提取周数吗
我得到了一个数据帧df。是否有办法填充周数(如数据框中的第二列所示)。我的意思是周数应该是连续的。比如说R 我们能从日期中提取周数吗,r,R,我得到了一个数据帧df。是否有办法填充周数(如数据框中的第二列所示)。我的意思是周数应该是连续的。比如说 df <- structure(list(Date = structure(c(1527120000, 1527206400, 1527292800, 1527379200, 1527465600, 1527552000, 1527638400, 1527724800, 1527811200, 1527897600, 1527984000, 1528070400, 15281568
df <- structure(list(Date = structure(c(1527120000, 1527206400, 1527292800,
1527379200, 1527465600, 1527552000, 1527638400, 1527724800, 1527811200,
1527897600, 1527984000, 1528070400, 1528156800, 1528243200, 1528329600,
1528416000, 1528502400, 1528588800, 1528675200, 1528761600, 1528848000,
1528934400, 1529020800, 1529107200, 1529193600, 1529280000, 1529366400,
1529452800, 1529539200, 1529625600, 1529712000, 1529798400, 1529884800,
1529971200, 1530057600, 1530144000), class = c("POSIXct", "POSIXt"
), tzone = "UTC"), Week = c(1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2,
2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5,
5, 5, 5, 6)), row.names = c(NA, -36L), class = c("tbl_df", "tbl",
"data.frame"))
df我们可以使用gl
library(dplyr)
df %>%
mutate(Week = as.integer(gl(n(), 7, n())))
日期值基本上是自特定日期起的秒数。在这里,我们可以用一点模数学计算周偏移量
df %>%
mutate(NewWeek = as.numeric(Date-min(Date)) %/% (60*60*24*7) + 1)
我们减去第一个日期,然后看看已经过去了多少个七天周期。您可以使用lubridate
:
library(lubridate)
df$Data <- trunc((ymd(df$Date) - min(ymd(df$Date)))/dweeks(1)) + 1
库(lubridate)
df$Data您也可以尝试:
df %>%
mutate(Week = ceiling(row_number()/7))
Date Week
<dttm> <dbl>
1 2018-05-24 00:00:00 1
2 2018-05-25 00:00:00 1
3 2018-05-26 00:00:00 1
4 2018-05-27 00:00:00 1
5 2018-05-28 00:00:00 1
6 2018-05-29 00:00:00 1
7 2018-05-30 00:00:00 1
8 2018-05-31 00:00:00 2
9 2018-06-01 00:00:00 2
10 2018-06-02 00:00:00 2
谢谢我知道这个答案:)。但是周数从1开始(您可以参考我的数据帧(第2列))。我知道实际的周数是21,但我的意图不是这样。它应该从1开始。它应该是(1,1,1,1,1,1,1,2,2,2,2,3,3,3,3,3,3等等)…但是我没有得到as.integer(gl(n(),7,n())
code@DevP它是在每7行创建一个分组索引,即对于前7行,它将是1,然后是2,以此类推。。直到最后..使用模块化算法的优雅解决方案
ceiling(1:NROW(df)/7)
[1] 1 1 1 1 1 1 1 2 2 2 2 2 2 2 3 3 3 3 3 3 3 4 4 4 4 4 4 4 5 5 5 5 5 5 5 6