Группировка элементов по метке времени

Question

У меня есть фрейм данных с уникальными строками, такими как:

df <- unique(data.frame(Timestamp=as.POSIXct(strptime(c('2018-01-08 13:26:53', 
                                                 '2018-01-08 13:33:33', 
                                                 '2018-01-08 13:45:12', 
                                                 '2018-01-08 13:45:12', 
                                                 '2018-01-08 14:28:34', 
                                                 '2018-01-08 14:31:32',
                                                 '2018-01-08 14:31:32',
                                                 '2018-01-08 15:13:16',
                                                 '2018-01-08 15:25:19',
                                                 '2018-01-08 15:25:19',
                                                 '2018-01-08 15:25:19',
                                                 '2018-01-08 15:25:19'), "%Y-%m-%d %H:%M:%OS")),
                 Text=c('A', 'B', 'C', 'A', 'B', 'A', 'C', 'D', 'A', 'A', 'B', 'C')))

Вывод:

             Timestamp Text
1  2018-01-08 13:26:53    A
2  2018-01-08 13:33:33    B
3  2018-01-08 13:45:12    C
4  2018-01-08 13:45:12    A
5  2018-01-08 14:28:34    B
6  2018-01-08 14:31:32    A
7  2018-01-08 14:31:32    C
8  2018-01-08 15:13:16    D
9  2018-01-08 15:25:19    A
11 2018-01-08 15:25:19    B
12 2018-01-08 15:25:19    C

Я хотел бы сгруппировать элементы, которые имеют одинаковую метку времени и всегда сохраняют один и тот же порядоксгруппированных предметов, если он появился один раз.Поэтому мой результат должен выглядеть следующим образом:

            Timestamp Text
1 2018-01-08 13:26:53    A
2 2018-01-08 13:33:33    B
3 2018-01-08 13:45:12    C | A
5 2018-01-08 14:28:34    B
7 2018-01-08 14:31:32    C | A
8 2018-01-08 15:13:16    D
9 2018-01-08 15:25:19    C | A | B

Есть ли эффективные предложения?Заранее спасибо!

Answer 1

вы можете сделать это, используя базу R

df <- unique(data.frame(Timestamp=as.POSIXct(strptime(c('2018-01-08 13:26:53', 
                                                        '2018-01-08 13:33:33', 
                                                        '2018-01-08 13:45:12', 
                                                        '2018-01-08 13:45:12', 
                                                        '2018-01-08 14:28:34', 
                                                        '2018-01-08 14:31:32',
                                                        '2018-01-08 14:31:32',
                                                        '2018-01-08 15:13:16',
                                                        '2018-01-08 15:25:19',
                                                        '2018-01-08 15:25:19',
                                                        '2018-01-08 15:25:19',
                                                        '2018-01-08 15:25:19'), "%Y-%m-%d %H:%M:%OS")),
                        Text=c('A', 'B', 'C', 'A', 'B', 'A', 'C', 'D', 'A', 'A', 'B', 'C')))



agg<- aggregate(df[,2], list(df[,1]), function(x) paste0(unique(x)))