data.table这样做dcast的方式

Question

我有一个data.table，如下所示：

tbl
          lon lat hour ens       date value
       1: 254  31   12   0 1994010100     0
       2: 254  31   12   0 1994010200     0
       3: 254  31   12   0 1994010300     0
       4: 254  31   12   0 1994010400     0
       5: 254  31   12   0 1994010500     0
      ---                                  
40494956: 269  39   24  10 2007122700   200
40494957: 269  39   24  10 2007122800   130
40494958: 269  39   24  10 2007122900   240
40494959: 269  39   24  10 2007123000   230
40494960: 269  39   24  10 2007123100   150

和另一个看起来像：

locs
    lon lat
 1: 260  33
 2: 261  33
 3: 262  33
 4: 263  33
 5: 260  34
 6: 261  34

我目前正在使用dcast进行此操作以使其符合我需要的形状：

temp <- dcast(tbl[locs], date ~ lon + lat + hour, fun.aggregate=mean, value.var="value")

这完全符合我的要求（即使是列名！）但速度很慢。我想要一个data.table的方式，但在阅读了几个线程后，我仍然无法完成它。我最近的尝试是这样的：

temp <- tbl[locs, list(mean = mean(value), sd = sd(value)), by = list(date, lon, lat, hour)]

折叠ens变量（工作正常并注意我也在计算sd），但我不能重塑它。我的重塑尝试是：

temp[, as.list(setattr(list(mean,sd), 'names', list(lon, lat, hour))), by=list(date)]
Error in setattr(list(mean, sd), "names", list(lon, lat, hour)) : 
  'names' attribute [3] must be the same length as the vector [2]

当然，非常感谢任何帮助。谢谢。