如何结合行与某些条件？

Question

我有这样的数据集，

> data
    ID    AccessTime   ReferrerCode
    101   01:17:40     910
    103   01:27:53     135
    103   01:33:12     222
    202   02:04:11     921
    202   03:40:30     106 
    103   03:45:02     734

我想像这样转换我的数据集，

> data
ID   ReferrerCode
101   910
103   135 222
202   921
202   106
103   734

我的条件是，如果数据具有相同的ID和相同的AccessTime小时，则ReferrerCode将被合并。 我应该怎么做才能做到这一点？

Answer 1

这是一个base R解决方案，带有aggregate()和sub()来从AccessTime提取小时。

aggregate(ReferrerCode ~ ID + sub(':.*$', '', AccessTime), c, data=data)[,-2]
#   ID ReferrerCode
#1 101          910
#2 103     135, 222
#3 202          921
#4 103          734
#5 202          106

Answer 2

如果要在ReferrerCode中将结果作为character获取，请使用以下命令：

aggregate(ReferrerCode ~ ID + hour(AccessTime), data, FUN=function(x) paste(x, collapse=" "))[,c(1,3)]
       ID ReferrerCode
1 101          910
2 103      135 222
3 202          921
4 103          734
5 202          106

我假设AccessTime是POSIXlt格式。 从character可以转换为

data$AccessTime <- as.POSIXlt(data$AccessTime, format="%H:%M:%S")