我有一些股票回报每日数据需要变成每周格式。如您所知，仅在周一至周五进行股票交易，我需要将每天的回报加起来以获得累积的每周回报。
我考虑过使用rubridate的周函数，但是lubridate如何知道本周的开始时间是什么时候？如何让lubridate使用工作日功能识别周，即＆＃34;星期一＆＃34;到＆＃34;星期五＆＃34;是一周？
我考虑过写一个循环，例如：如果＆＃34;星期一＆＃34;到＆＃34;星期五＆＃34;在数据中，我会打电话给这一周。但是对于第二周，我应该用R来知道我们进入第二周了吗？然后，当我们到达年底并且我们有52周时，如何重置周数以便我们进入下一年？
这是dput：
dat = structure(list(date = structure(c(4019, 4022, 4023, 4024, 4025,
4026, 4029, 4030, 4031, 4032, 4033, 4036, 4037, 4038, 4039, 4040,
4043, 4044, 4045, 4046, 4047, 4050, 4051, 4052, 4053, 4054, 4057,
4058, 4059, 4060, 4061, 4065, 4066, 4067, 4068, 4071, 4072, 4073,
4074, 4075), class = "Date"), weekday = c("Friday", "Monday",
"Tuesday", "Wednesday", "Thursday", "Friday", "Monday", "Tuesday",
"Wednesday", "Thursday", "Friday", "Monday", "Tuesday", "Wednesday",
"Thursday", "Friday", "Monday", "Tuesday", "Wednesday", "Thursday",
"Friday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday",
"Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Tuesday",
"Wednesday", "Thursday", "Friday", "Monday", "Tuesday", "Wednesday",
"Thursday", "Friday"), COMP = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L
), week = c(1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4,
4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 8, 8,
9, 9), RET = c(-0.005435, 0.040984, -0.015748, -0.021333, 0.002725,
0.01087, 0.024194, -0.002625, 0.013158, 0.033766, 0, -0.007538,
-0.005063, 0, -0.002545, 0.015306, 0.017588, -0.007407, 0.024876,
-0.009709, 0, -0.029412, 0.010101, 0.0075, -0.004963, 0.027431,
-0.002427, 0.007299, -0.009662, -0.004878, 0.014706, -0.004831,
0.004854, -0.009662, -0.021951, -0.014963, 0.005063, -0.005038,
0.010127, 0)), .Names = c("date", "weekday", "COMP", "week",
"RET"), row.names = c(NA, -40L), class = c("data.table", "data.frame"
))
library(data.table)
setDT(dat)
以下是公司1日常回报的1981-01-02至1981-02-27两个月的数据。让我们忽略计算当前的回报，并首先关注时间。
周列由week（）函数生成。如你所见，周不是我想要的，它从周三开始到周三结束。
工作日由weekdays（）函数生成。
我想制作，例如1981-01-02作为第1周（因为我们这里只有星期五），1981-01-05到1981-01-09作为第2周反之亦然。
答案 0 :(得分：3)
使用lubridate，您可以使用isoweek来定义周列。
library(lubridate)
df[, wk := isoweek(date)]
哪个给你
# date weekday COMP week RET wk
# 1: 1981-01-02 Friday 1 1 -0.005435 1
# 2: 1981-01-05 Monday 1 1 0.040984 2
# 3: 1981-01-06 Tuesday 1 1 -0.015748 2
# 4: 1981-01-07 Wednesday 1 1 -0.021333 2
# 5: 1981-01-08 Thursday 1 2 0.002725 2
# 6: 1981-01-09 Friday 1 2 0.010870 2
# 7: 1981-01-12 Monday 1 2 0.024194 3
# 8: 1981-01-13 Tuesday 1 2 -0.002625 3
# 9: 1981-01-14 Wednesday 1 2 0.013158 3
# 10: 1981-01-15 Thursday 1 3 0.033766 3
# 11: 1981-01-16 Friday 1 3 0.000000 3
# 12: 1981-01-19 Monday 1 3 -0.007538 4
# 13: 1981-01-20 Tuesday 1 3 -0.005063 4
# 14: 1981-01-21 Wednesday 1 3 0.000000 4
# 15: 1981-01-22 Thursday 1 4 -0.002545 4
# 16: 1981-01-23 Friday 1 4 0.015306 4
# 17: 1981-01-26 Monday 1 4 0.017588 5
# 18: 1981-01-27 Tuesday 1 4 -0.007407 5
# 19: 1981-01-28 Wednesday 1 4 0.024876 5
# 20: 1981-01-29 Thursday 1 5 -0.009709 5
使用dplyr，您可以使用
添加周列library(dplyr)
df %>%
mutate(wk = isoweek(date))
答案 1 :(得分：1)
如果您想从数据集开始以来计算星期一......
DT[, wk := {
w = DT[weekday == "Monday"][DT, on=.(date), roll=TRUE, which = TRUE]
if (anyNA(w))
1L + replace(w, is.na(w), 0L)
else
w
}]
工作原理
我们正在DT的每一行滚动连接到DT的子集，其中weekday == "Monday"滚动到子集（on = .(date), roll = TRUE）中的最新日期，并且确定我们落在的子集中的哪些行号（which = TRUE）。
如果第一天不是星期一，我们将丢失值（对于第一个星期一之前的所有日期），并且希望将它们替换为1并将所有其他行号递增1。
哦，我猜还有
DT[, wk := (first(weekday) != "Monday") + cumsum(weekday == "Monday")]
...因为逻辑条件first(weekday) != "Monday"如果为FALSE则为0，如果为TRUE则为1。
答案 2 :(得分：1)
dat[, wk := .GRP, cut(date, 'week')]
head(dat, 20)
# date weekday COMP week RET wk
# 1: 1981-01-02 Friday 1 1 -0.005435 1
# 2: 1981-01-05 Monday 1 1 0.040984 2
# 3: 1981-01-06 Tuesday 1 1 -0.015748 2
# 4: 1981-01-07 Wednesday 1 1 -0.021333 2
# 5: 1981-01-08 Thursday 1 2 0.002725 2
# 6: 1981-01-09 Friday 1 2 0.010870 2
# 7: 1981-01-12 Monday 1 2 0.024194 3
# 8: 1981-01-13 Tuesday 1 2 -0.002625 3
# 9: 1981-01-14 Wednesday 1 2 0.013158 3
# 10: 1981-01-15 Thursday 1 3 0.033766 3
# 11: 1981-01-16 Friday 1 3 0.000000 3
# 12: 1981-01-19 Monday 1 3 -0.007538 4
# 13: 1981-01-20 Tuesday 1 3 -0.005063 4
# 14: 1981-01-21 Wednesday 1 3 0.000000 4
# 15: 1981-01-22 Thursday 1 4 -0.002545 4
# 16: 1981-01-23 Friday 1 4 0.015306 4
# 17: 1981-01-26 Monday 1 4 0.017588 5
# 18: 1981-01-27 Tuesday 1 4 -0.007407 5
# 19: 1981-01-28 Wednesday 1 4 0.024876 5
# 20: 1981-01-29 Thursday 1 5 -0.009709 5
注意：这与dt[, wk := lubridate::isoweek(date)]的结果相同，除非数据未按日期排序。在这种情况下，我的解决方案以相同的方式对周数进行分组，但wk不会按升序排列。第一周可能会获得6等等。
答案 3 :(得分：0)
这是一个更简单的方法（我想更容易理解）来解决这个问题：
<!--new file-->
<logger name="org.MailServiceImpl" additivity="false">
<level value="INFO" />
<appender-ref ref="DEBUG_FILE" />
</logger>
<!--Already existing file-->
<logger name="org.ProductServiceImpl" additivity="false">
<level value="INFO" />
<appender-ref ref="DEBUG_FILE" />
</logger>
---------------------------------------------
I am getting log messages for old(prodcutServiceImpl) file as ever.But When I included log4j configration, those log messages are not coming into "application_debug.log" file
Why I am not getting log messages?