Объединить столбцы в разных таблицах на основе критериев

Question

Я ищу способ объединения идентификаторов продаж в столбец позиций продаж.

#4 items that are for sale 
SaleItems<-data.frame(Appliance=c("Radio", "Laptop", "TV", "Fridge"))

#sales IDs for these 4 items
SalesIDs<-data.frame(Appliance=rep(c("Radio", "Laptop", "TV", "Fridge"), times=c(5,5,5,5)), ID=c(120:139))

Результат, который я хочу (для целей презентации), состоит в объединении идентификаторов продаж в устройстве SaleItems $.столбец (между скобками) в соответствии с приведенным ниже примером:

SaleItemsIDs<-data.frame(Appliance=c("Radio (120, 121, 122, 123, 124)", "Laptop (125, 126, 127, 128, 129)", "TV (130,131,132,133,134)", "Fridge (135, 136, 137, 138, 139)"))

Кто-нибудь может помочь?

Answer 1

Мы можем сначала сгруппировать 'Appliance' и paste 'ID' вместе, затем paste 'Appliance', чтобы создать единственную строку

library(dplyr)
SalesIDs %>%
   group_by(Appliance) %>% 
   summarise(ID = toString(ID)) %>%
   transmute(Appliance = paste(Appliance, " (", ID, ")", sep=""))