可以使用lubridate包中的week()函数来筛选数据,示例代码如下:
#导入lubridate包 library(lubridate)
#创建一个数据框 df <- data.frame( date = seq(as.Date("2020-01-01"), as.Date("2020-12-31"), by = "day"), value = rnorm(366, 50, 10) )
#筛选第1周的数据 df_week1 <- df[week(df$date) == 1, ]
#筛选前10周的数据 df_weeks1to10 <- df[week(df$date) %in% 1:10, ]
#显示筛选结果 head(df_week1) head(df_weeks1to10)
上一篇:按周期将数据分组在数据框中
下一篇:按周数分组Excel文件