r - 如何在R中 reshape 之前扩展数据

Question

我有一个看起来像这样的数据框:

as.is <- data.frame(Project = c('Proj A', 'Proj B', 'Proj C', 'Proj D'), 
               Start.Date = c('16.02.2015', '02.03.2015', '16.02.2015', '09.03.2015'), 
               Duration = c(3, 2, 2, 4),
               No.Of.Resources = c(3, 5, 2, 6))

我需要更改格式，使其看起来像这样:

to.be <- data.frame(Project = c('Proj A', 'Proj B', 'Proj C', 'Proj D'),
                '16.02.2015' = c(3, NA, 2, NA),
                '23.02.2015' = c(3, NA, 2, NA),
                '02.03.2015' = c(3, 5, NA, NA),
                '09.03.2015' = c(NA, 5, NA, 6),
                '16.03.2015' = c(NA, NA, NA, 6),
                '23.03.2015' = c(NA, NA, NA, 6),
                '30.03.2015' = c(NA, NA, NA, 6))

我不知道如何扩展日期，所以我每行得到一个，这样我就可以对数据使用 reshape2。我可以得到一份我想成为我的头衔的日期列表，但不知道如何将这些部分放在一起。

解决这个问题的正确方法是什么？

编辑:澄清一下，持续时间是周数，所以我需要生成标题为 x、x+7、x+14 的列...

Answer 1

这是一种似乎有效的方法。它使用 expandRows和 getanID从我的“splitstackshape”包，然后 dcast.data.table从“data.table”将值扩展为广泛的形式:

as.is$Start.Date <- as.Date(as.character(as.is$Start.Date), "%d.%m.%Y")

library(splitstackshape)
dcast.data.table(
  getanID(
    expandRows(as.is, "Duration"), 
    c("Project", "Start.Date"))[
      , Start.Date := Start.Date + (.id-1) * 7], 
  Project ~ Start.Date, value.var = "No.Of.Resources")
#    Project 2015-02-16 2015-02-23 2015-03-02 2015-03-09 2015-03-16 2015-03-23 2015-03-30
# 1:  Proj A          3          3          3         NA         NA         NA         NA
# 2:  Proj B         NA         NA          5          5         NA         NA         NA
# 3:  Proj C          2          2         NA         NA         NA         NA         NA
# 4:  Proj D         NA         NA         NA          6          6          6          6

在这种情况下，“dplyr”确实可以更好地阅读解决方案:

library(splitstackshape)
library(dplyr)
library(tidyr)

as.is$Start.Date <- as.Date(as.character(as.is$Start.Date), "%d.%m.%Y")
expandRows(as.is, "Duration") %>%                   # expand the data
  getanID(c("Project", "Start.Date")) %>%           # add an "id" column
  mutate(Start.Date = Start.Date + (.id-1) * 7) %>% # recalculate start dates
  select(-.id) %>%                                  # drop the "id" column
  spread(Start.Date, No.Of.Resources)               # reshape long to wide