R data.table:选择组内chron的最小值

Question

对于data.table中的每个组，我想重复最小(最早)时间戳的值。考虑以下数据：

library(chron)
library(data.table)
set.seed(12349870)
time.stamp<-chron(c(10000.673,sample(10001:20000,9)))
group<-c(rep(1,5),rep(2,5))
timedata<-data.table(time.stamp=time.stamp,group=group)
timedata

#   1: (05/19/97 16:09:07)     1
#   2: (03/02/21 00:00:00)     1
#   3: (02/20/15 00:00:00)     1
#   4: (12/11/10 00:00:00)     1
#   5: (08/23/10 00:00:00)     1
#   6: (07/22/18 00:00:00)     2
#   7: (06/09/23 00:00:00)     2
#   8: (03/02/13 00:00:00)     2
#   9: (06/04/09 00:00:00)     2
#   10: (12/04/12 00:00:00)     2

运行以下代码，但当我试图查看data.table时，会得到一个错误：

timedata[,firstdata:=time.stamp[which.min(time.stamp)],by=group]
timedata
#Error in format.dates(x, format[[1]], origin. = origin., simplify = simplify) :
#unknown date format 

会话信息:r版本3.1.1，chron_2.3-45，data.table_1.9.2

Answer 1

你是说这样吗？

stopifnot(sessionInfo()$otherPkgs$data.table$Version=="1.9.4")
timedata[,firstdata:=time.stamp[which.min(time.stamp)],by=group]
timedata
#            time.stamp group           firstdata
#1: (05/19/97 16:09:07)     1 (05/19/97 16:09:07)
#2: (03/02/21 00:00:00)     1 (05/19/97 16:09:07)
#3: (02/20/15 00:00:00)     1 (05/19/97 16:09:07)
#4: (12/11/10 00:00:00)     1 (05/19/97 16:09:07)
#5: (08/23/10 00:00:00)     1 (05/19/97 16:09:07)
#6: (07/22/18 00:00:00)     2 (06/04/09 00:00:00)
#7: (06/09/23 00:00:00)     2 (06/04/09 00:00:00)
#8: (03/02/13 00:00:00)     2 (06/04/09 00:00:00)
#9: (06/04/09 00:00:00)     2 (06/04/09 00:00:00)
#10:(12/04/12 00:00:00)     2 (06/04/09 00:00:00)

Answer 2

以下是我想做的事情，尽管我更喜欢在我的问题中尝试引用赋值(例如，我必须重命名列)。

setkey(timedata,group,time.stamp)
timedata<-timedata[timedata[,.SD[1],keyby=group]]

changename<-function(dt,oldname,newname){
   nm<-names(dt)
   pos<-which(nm==oldname)
   stopifnot(length(pos)>0)
   nm[pos]<-newname
   setnames(dt,names(dt),nm)
}

changename(timedata,"time.stamp.1","firstdata")
timedata

#    group         time.stamp           firstdata
#1:     1 (05/19/97 16:09:07) (05/19/97 16:09:07)
#2:     1 (08/23/10 00:00:00) (05/19/97 16:09:07)
#3:     1 (12/11/10 00:00:00) (05/19/97 16:09:07)
#4:     1 (02/20/15 00:00:00) (05/19/97 16:09:07)
#5:     1 (03/02/21 00:00:00) (05/19/97 16:09:07)
#6:     2 (06/04/09 00:00:00) (06/04/09 00:00:00)
#7:     2 (12/04/12 00:00:00) (06/04/09 00:00:00)
#8:     2 (03/02/13 00:00:00) (06/04/09 00:00:00)
#9:     2 (07/22/18 00:00:00) (06/04/09 00:00:00)
#10:    2 (06/09/23 00:00:00) (06/04/09 00:00:00)