Question

我正在尝试编写一个基于两个数据帧中找到的两列合并的函数。其中一列是标识符字符串，另一列是日期。

第一个df（＆＃34;型号＆＃34;）包括标识符，开始日期和其他一些相关信息。

第二个df（＆＃34; futurevalues＆＃34;）是一个融合的df，包括标识符，每个标识符的多个月，以及每个标识符 - 月对的相关值。

我想根据将来某段时间合并每个标识符的值。例如，对于Identifier = Mary和起始月=＆＃34; 2005-01-31＆＃34; in＆＃34; model＆＃34;我想在下个月和之后的11个月内提取相关值（因此，玛丽从开始月份的1个月开始12个数据点：开始月份+12个月）。

我可以通过两列合并我的dfs来获取as-of date值（见下文），但这不是我需要的。

testmerge=merge(model,futurevalues,by=c("month","identifier"),all=TRUE)

要解决这个问题，我正在尝试使用lubridate日期函数。例如，下面的函数将允许我输入一个月（然后在df中翻译）以获得每个起始月份的值（在df中变化，这意味着它不是标准时间段整个事情）。

monthiterate=function (x) {
 x %m+% months(1:12) 
}

非常感谢你的帮助。

编辑：添加玩具数据（第一个是模型，第二个是未来值）

structure(list(month = structure(c(12814, 12814, 12814, 12814, 
12814, 12814, 12814, 12814, 12814, 12814), class = "Date"), identifier = structure(c(1L, 
3L, 2L, 4L, 5L, 7L, 8L, 6L, 9L, 10L), .Label = c("AB1", "AC5", 
"BB9", "C99", "D81", "GG8", "Q11", "R45", "ZA1", "ZZ9"), class = "factor"), 
value = c(0.831876072999969, 0.218494398256579, 0.550872926656984, 
1.81882711231324, -0.245597705276932, -0.964277509916354, 
-1.84714556574606, -0.916239506529079, -0.475649743547525, 
-0.227721186387637)), .Names = c("month", "identifier", "value"
 ), class = "data.frame", row.names = c(NA, 10L))

 structure(list(identifier = structure(c(1L, 3L, 2L, 4L, 5L, 7L, 
 8L, 6L, 9L, 10L), .Label = c("AB1", "AC5", "BB9", "C99", "D81", 
 "GG8", "Q11", "R45", "ZA1", "ZZ9"), class = "factor"), month = structure(c(12814, 
 13238, 12814, 12814, 12964, 12903, 12903, 12842, 13148, 13148
 ), class = "Date"), futurereturns = c(-0.503033205660682, 1.22446988772542, 
 -0.825490985851348, 1.03902417581908, 0.172595565260429, 0.894967582911769, 
 -0.242324006922964, 0.415520398113024, -0.734437328639625, 2.64184935856802
 )), .Names = c("identifier", "month", "futurereturns"), class = "data.frame", row.names      
 = c(NA, 10L))

Answer 1

您需要创建一个包含所需ID和月份组合的表格。从每个ID及其起始月份的表开始：

library(lubridate)
set.seed(1834)
# 3 people, each with a different starting month
x <- data.frame(id = sample(LETTERS, 3)
                , month = ymd("2005-01-01") + months(sample(0:11, 3)) - days(1))

> x
  id      month
1  D 2005-03-31
2  R 2005-07-31
3  Y 2005-02-28

现在为每个ID添加以下两个月的行。我使用dplyr来做这种事情。

library(dplyr)
y <- x %>%
  rowwise %>%
  do(data.frame(id = .$id
                , month = seq(.$month + days(1)
                              , by = "1 month"
                              , length.out = 3) - days(1)))

> y
Source: local data frame [9 x 2]
Groups: <by row>

  id      month
1  D 2005-03-31
2  D 2005-04-30
3  D 2005-05-31
4  R 2005-07-31
5  R 2005-08-31
6  R 2005-09-30
7  Y 2005-02-28
8  Y 2005-03-31
9  Y 2005-04-30

现在，您可以使用merge()（或left_join()中的dplyr）从完整数据集中检索所需的行。

使用lubridate按月迭代并合并

1 个答案: