扩大按日期排，同时保持所有其他变量

Question

我也有类似的一个问题已经被问：Given start date and end date, reshape/expand data for each day between (each day on a row)

这是我的数据的子集（而不是所有的变量都包括在内;有43个变量总数）：

start_date <- as.Date(c("1946-01-01", "1966-01-01","1979-03-01", "1966-01-01", "1988-05-01")) 
end_date <- as.Date(c("1946-03-01","1966-03-01","1979-05-01", "1966-03-01", "1988-07-01")) 
dyad_id <- c(260,260,260,306,306) 
armsproc <- c("moderate", "low", "low", "low", "low") 
gov_support <- c("explicit", "no", "no", "no", "explicit") 
terrcont <- c("yes", "no", "no", "yes", "yes") 
x <- data.frame(start_date, end_date, dyad_id, armsproc, gov_support, terrcont) 

这是我的采样数据的可视化：

start_date end_date dyad_id armsproc gov_support terrcont 

1 1946-01-01 1946-03-01  260 moderate explicit  yes 
2 1966-01-01 1966-03-01  260  low   no  no 
3 1979-03-01 1979-05-01  260  low   no  no 
4 1966-01-01 1966-03-01  306  low   no  yes 
5 1988-05-01 1988-07-01  306  low explicit  yes 

相反的数据范围的，我想具有用于每个m月度数据start_date and end_date。此外，在上面链接的问题中没有回答什么问题，我希望所有剩余列中的数据在该时间段内的所有月份都可以简单复制。要清楚，我希望这个数据复制在每个dyad_id内完成。我想要的东西，看起来像这样：

month  dyad_id armsproc gov_support terrcont 

1946-01-01 260  moderate explicit  yes 
1946-02-01 260  moderate explicit  yes 
1946-03-01 260  moderate explicit  yes 
1966-01-01 260  low   no   no 
1966-02-01 260  low   no   no 
1966-03-01 260  low   no   no 
1979-03-01 260  low   no   no 
1979-04-01 260  low   no   no 
1979-05-01 260  low   no   no 
1966-01-01 306  low   no   yes 
1966-02-01 306  low   no   yes 
1966-03-01 306  low   no   yes 
1988-05-01 306  low   explicit  yes 
1988-06-01 306  low   explicit  yes 
1988-07-01 306  low   explicit  yes 

我试着用类似于其他问题

x %>% 
    rowwise() %>% 
    do(data.frame(dyad_id=.$dyad_id, month=seq(.$start_date,.$end_date,by="1 month"))) 

建议代码，但是这仅仅得到以下数据帧只有2列：

# A tibble: 6 x 2 
    dyadid  month 
    <int>  <date> 
1 462 1946-06-01 
2 462 1946-07-01 
3 463 1952-04-01 
4 464 1967-03-01 
5 464 1967-04-01 
6 464 1967-05-01 

如果有人能够帮助我，我将不胜感激！干杯

Answer 1

我全心全意道歉，但是我发现了一个以前的问题可以回答我的问题！在发布我的问题之前，我已经在stackoverflow上搜索了好一个小时，但找不到我正在寻找的内容。此链接到相关的问题是：R -- Expand date range into panel data by group

对于任何人都可能有兴趣，我用下面的代码（注意：此代码是我复杂的数据集，而不是我在我的问题中使用的样本数据集）：

f <- function(x) with(x, data.frame(dyadid, extraterritorial, rebpolwing, 
            rebpolwinglegal, rebestimate, rebstrength, 
            centcontrol, strengthcent, mobcap, armsproc, 
            fightcap, terrcont, terrname, effterrcont, 
            conflicttype, transconstsupp, rebextpart, 
            rebpresosts, presname, rebel.support, 
            rtypesup, rsupname, gov.support, gtypesup, 
            gsupname, govextpart, 
            date = seq(start_year_month, end_year_month, by = "month"))) 

NSA2 <- do.call("rbind", by(NSA1, 1:nrow(NSA1), f))