根据R中的日期顺序填充行

Question

我有一个数据行，每行都有一个特定的日期范围。

  stuID stdID  roleStart    roleEnd
1     1      7 2010-11-18 2020-06-14
2     2      2 2012-08-13 2014-04-01
3     2      4 2014-04-01 2015-10-01
4     2      3 2015-10-01 2018-10-01
5     2      6 2018-10-01 2020-06-14
6     3      4 2014-03-03 2015-10-01

我需要根据日期的几周生成行。确切地说，我需要根据给定数据框中两个日期之间的星期来填充行。

我尝试使用以下代码来实现这一点

extendedData <- reshape2::melt(setNames(lapply(1:nrow(df), function(x) seq.Date(df[x, "roleStart"],
                                                                      df[x, "roleEnd"], by = "1 week")),df$stuID))

但是执行此操作时，出现错误信息

Error in seq.int(0, to0 - from, by) : wrong sign in 'by' argument

这是数据框的结构

'data.frame':   350 obs. of  4 variables:
 $ stuID    : int  1 2 2 2 2 3 3 3 4 4 ...
 $ stdID   :  int  7 2 4 3 6 4 3 6 1 2 ...
 $ roleStart: Date, format: "2010-11-18" "2012-08-13" "2014-04-01" "2015-10-01" ...
 $ roleEnd  : Date, format: "2020-06-14" "2014-04-01" "2015-10-01" "2018-10-01" ...

谁能说出代码有什么问题吗？

提前感谢！

Answer 1

这里是使用tidyverse函数的一种方法：