Ваши наборы данных имеют одинаковую структуру, поэтому их можно комбинировать по строкам с rbind
:
lst1 <- read.table(header=TRUE, stringsAsFactors=FALSE, text='
LastName FirstName CustID Event
Robson Jonson 23019 NP5
Robson Jonson 23019 RTE3')
lst2 <- read.table(header=TRUE, stringsAsFactors=FALSE, text='
LastName FirstName CustID Event
Robson Jonson 23019 GRT2')
lst <- rbind(lst1, lst2)
Тогда вам нужно объединение:
aggregate(lst$Event,
list(LastName = lst$LastName, FirstName = lst$FirstName, CustID = lst$CustID),
paste, collapse=", ")
# LastName FirstName CustID x
# 1 Robson Jonson 23019 NP5, RTE3, GRT2