Создать последовательность строк

Question

Предоставлено набора данных аналогичны следующие

dat = structure(list(OpportunityId = c("006a000000zLXtZAAW", "006a000000zLXtZAAW", 
           "006a000000gst", "006a000000gstg", "006a000000gstg", 
           "006a000000zLXtZAAW"), IsWon = c(1, 1, 1, 1, 1, 1), 
        sequence = c("LLLML", "LHHHL", "LLLML", "HMLLL", "LLLLL", "LLLLL")), 
       .Names = c("OpportunityId","IsWon", "sequence"), row.names = c(NA, 6L), class = "data.frame") 

dat 

Как бы один идти о добавлении каждой последовательности, которая связана с определенным идентификатором возможностей, так что окончательные выглядит.

oppid sequence 
006... LLL, LML, MMM 
007... MMM, MML, MMH, LLL, HHH 
007... LML, MMM 

Любые идеи?

Answer 1

Мы можем paste в 'последовательность' после того, как группировка по '' OpportunityId

library(data.table) 
setDT(dat)[, .(sequence = toString(unique(sequence))) , 
       by = .(oppid = OpportunityId)] 

Answer 2

Возможно сочетание aggregate и unique может помочь.

aggregate(sequence ~ OpportunityId, dat, unique) 
#  OpportunityId   sequence 
#1  006a000000gst    LLLML 
#2  006a000000gstg  HMLLL, LLLLL 
#3 006a000000zLXtZAAW LLLML, LHHHL, LLLLL 

Как указано @akrun в комментарии, столбец последовательностей хранится как список в этом случае.

В случае необходимости, список в sequence столбце могут быть преобразованы в формат символов (одну строку для каждой строки) с помощью:

dat$sequence <- sapply(dat$sequence, paste, collapse=", ") 

Answer 3

С dplyr

library(dplyr) 
dat_new <- dat %>% 
    group_by(OpportunityId) %>% 
    summarise(sequence = toString(sequence)) %>% 
    distinct(.keep_all = TRUE) 

Выход

#  OpportunityId IsWon   sequence 
# 1 006a000000zLXtZAAW  1 LLLML, LHHHL, LLLLL 
# 2  006a000000gst  1    LLLML 
# 3  006a000000gstg  1  HMLLL, LLLLL