有条件地用data替换组中的第一个值.表在R

Question

我有一个很简单的问题。我有以下格式的长数据:

ID    start.date    drug.start    drug.stop
1     01/02/2002    15/03/2004    16/04/2004
1     01/02/2002    16/04/2004    15/05/2004
...
2     05/01/2001    05/01/2001    06/02/2001
....

从上面的例子来看，ID 1的drug.start比他们的总start.date晚了2年多，而ID 2的两个日期是相同的。数据中还有一些与ID 1相同的ID

我想做的是将每个ID的第一个drug.start更改为start.date。

我当前的尝试是:

DT[, drug.start[1]:=start, by=ID]

得到以下错误:

Error in eval(expr, envir, enclos) : object 'drug.start' not found

我对data.table很陌生，不太确定如何得到我想要的。
提前感谢您的帮助

Answer 1

可以使用行索引。我们获得每个'ID'的第一个值的行索引(.I)(假设它已经排序并且列是'字符'类)，并使用该索引分配'开始'。日期'值到'drug.start'

indx <- DT[, .I[1L], by=ID]$V1
DT[indx, drug.start := start.date]
DT
#   ID start.date drug.start  drug.stop
#1:  1 01/02/2002 01/02/2002 16/04/2004
#2:  1 01/02/2002 16/04/2004 15/05/2004
#3:  2 05/01/2001 05/01/2001 06/02/2001
#4:  2 05/02/2001 05/03/2001 06/05/2001

数据

df1 <-  structure(list(ID = c(1L, 1L, 2L, 2L), 
start.date = c("01/02/2002", 
"01/02/2002", "05/01/2001", "05/02/2001"), drug.start = c("15/03/2004", 
"16/04/2004", "05/01/2001", "05/03/2001"), drug.stop = c("16/04/2004", 
"15/05/2004", "06/02/2001", "06/05/2001")), .Names = c("ID", 
"start.date", "drug.start", "drug.stop"), class = "data.frame", 
row.names = c(NA, -4L))
DT <- as.data.table(df1)