R數據幀：轉換絕對日期爲1天多因素

Question

我有一個數據幀的組織結構如下：

Subject ID |  Collected Date  | Value 
3933332   9/14/2004 9:38   0.576 
3933332   9/15/2004 3:48   1.164 
3933332   9/17/2004 9:38   2.112 
3933332   9/21/2004 1:00   1.547 
6955455   5/12/2011 2:11   0.012 
6955455   5/13/2011 1:31   0.023 
6955455   5/14/2011 3:11   0.112 
6955455   5/17/2011 12:11   0.342 
...    ....      ... 

我需要的是：

Subject ID |  Day     | Value 
3933332   1      0.576 
3933332   2      1.164 
3933332   4      2.112 
3933332   8      1.547 
6955455   1      0.012 
6955455   2      0.023 
6955455   3      0.112 
6955455   6      0.342 
...    ....      ... 

編輯：澄清，新的主題ID有一個新的開始日期。

我知道我可以使用as.Date格式化日期（時間與我無關）。 下一步可能是使用plyr和/或應用函數來按主體ID拆分集合，但我不知道該怎麼做。

你能幫我嗎？

Answer 1

這是一個想法。我不確定您的數據是如何組成的。因此，我決定 根據您上面的內容創建數據框。請注意0​​是character的foo。

library(dplyr) 

mutate(group_by(foo, ID), 
     Date = as.Date(Date, format = "%m/%d/%Y %H:%M"), 
     nDay = as.character(Date - Date[1] + 1)) 

#  ID  Date value nDay 
#1 3933332 2004-09-14 0.576 1 
#2 3933332 2004-09-15 1.164 2 
#3 3933332 2004-09-17 2.112 4 
#4 3933332 2004-09-21 1.547 8 
#5 6955455 2011-05-12 0.012 1 
#6 6955455 2011-05-13 0.023 2 
#7 6955455 2011-05-14 0.112 3 
#8 6955455 2011-05-17 0.342 6 

額外：這是我對上面的代碼天真的翻譯到data.table的想法。

DT = setDT(foo)[, Date := as.Date(Date, format = "%m/%d/%Y %H:%M")] 
DT[, nDay := as.character(Date - Date[1] + 1), by = ID] 

DATA

foo <- structure(list(ID = c(3933332, 3933332, 3933332, 3933332, 6955455, 
6955455, 6955455, 6955455), Date = c("9/14/2004 9:38", "9/15/2004 3:48", 
"9/17/2004 9:38", "9/21/2004 1:00", "5/12/2011 2:11", "5/13/2011 1:31", 
"5/14/2011 3:11", "5/17/2011 12:11"), value = c(0.576, 1.164, 
2.112, 1.547, 0.012, 0.023, 0.112, 0.342)), .Names = c("ID", 
"Date", "value"), row.names = c(NA, -8L), class = "data.frame")