我怎样才能把几天分成几周？

问题描述：

在R中，我如何关联日期（天）和星期的向量？我怎样才能把几天分成几周？

编辑：“周”应该是日期范围内的星期指数，而不是年内。我对这种含糊不清的道歉。

看看'lubridate'软件包，它使处理日期变得非常简单。例如'week（x）'将返回日期x的星期数。 – Ramnath

-1重新编辑 - 那么我们如何才能知道你自己的个人星期指数是如果你不先告诉我们的，并且ii）**显示**你的数据或它的一个片段？ –

@ GavinSimpson-你是对的。我应该更清楚。 – JohnRos

答

您是否希望自第一条记录以来完成7天的间隔数？

dvec <- as.Date("2001-04-01")+0:90 
dweek <- as.numeric(dvec-dvec[1]) %/% 7 
dweek[1:21] 
# [1] 0 0 0 0 0 0 0 1 1 1 1 1 1 1 2 2 2 2 2 2 2

+1为扣除 –

@GavinSimpson：我“+（） - 编辑”，因为这是您的努力，为您提供了扣除的基础。（当我输入“@Gavin”时，我现在弹出一个“Gavin Simpson”）整理。） –

你必须喜欢整数除法函数'％/％' - 我会给出另一个+1 if我可以 - 答案确实非常简洁。 –

答

strftime的是你的朋友？

? strftime # to see the help and the format 

set.seed(1) 
dates <- Sys.Date() + sample(1:365, size = 10) 

R> dates 
[1] "2012-02-11" "2012-03-21" "2012-06-01" "2012-09-30" 
[5] "2012-01-18" "2012-09-25" "2012-10-11" "2012-06-30" 
[9] "2012-06-18" "2011-11-28" 

# %j for julian day - number of the day since the 1st of january each year 

R> strftime(dates, format = "%j") # or format(dates, format = "%j") 
[1] "042" "081" "153" "274" "018" "269" "285" "182" "170" "332" 

R> strftime(dates, format = "%w") 
[1] "6" "3" "5" "0" "3" "2" "4" "6" "1" "1" 

# my locale is in French so... 
R> strftime(dates, format = "%A") 
[1] "samedi" "mercredi" "vendredi" "dimanche" "mercredi" 
[6] "mardi" "jeudi" "samedi" "lundi" "lundi"

通过你的一个月，一周或一年内平均每天，天是什么呢？

答

对于每个日期，通过format()使用%W格式的占位符的%U格式化来获取它所属的一年的周。 %U将星期天定为一周的第一天，而%W则认为星期一是本周的第一天。这里有一个例子：

now <- as.Date(Sys.time()) 
dates <- seq(now, now + 25, by = "1 day") 

dat <- data.frame(Dates = dates, Week = format(dates, format = "%W")) 
head(dat, 10)

其中给出：

> head(dat, 10) 
     Dates Week 
1 2011-11-06 44 
2 2011-11-07 45 
3 2011-11-08 45 
4 2011-11-09 45 
5 2011-11-10 45 
6 2011-11-11 45 
7 2011-11-12 45 
8 2011-11-13 45 
9 2011-11-14 46 
10 2011-11-15 46

虽然它是从你的问题不清楚你想要做什么，想以此来匹配日期的这个矢量（当然，我的数据帧dat）通过merge()。说我们有我们要匹配周的矢量和数据帧weekdat一些相关的数据：

> merge(dat, weekdat) 
    Week  Dates Price 
1 44 2011-11-06 10 
2 45 2011-11-07 20 
3 45 2011-11-08 20 
4 45 2011-11-09 20 
5 45 2011-11-10 20 
6 45 2011-11-11 20 
7 45 2011-11-12 20 
8 45 2011-11-13 20 
9 46 2011-11-14 25 
10 46 2011-11-15 25 
11 46 2011-11-16 25 
12 46 2011-11-17 25 
13 46 2011-11-18 25 
14 46 2011-11-19 25 
15 46 2011-11-20 25 
16 47 2011-11-21 30 
17 47 2011-11-22 30 
18 47 2011-11-23 30 
19 47 2011-11-24 30 
20 47 2011-11-25 30 
21 47 2011-11-26 30 
22 47 2011-11-27 30 
23 48 2011-11-28 20 
24 48 2011-11-29 20 
25 48 2011-11-30 20 
26 48 2011-12-01 20

还有其他：

weekdat <- data.frame(Week = 44:50, Price = c(10, 20, 25, 30, 20, 15, 10))

然后我们可以使用merge()为使与weekdat链接dat将日期与周数进行匹配或连接的方式，但上面应该给你一些工作。

我怎样才能把几天分成几周？

相关推荐