search for: table_3

...uot;) >> >> table_1 <- gather(table_1, "Foo", "Item") %>% >> filter(!is.na(Item)) >> >> table_1 <- separate(table_1, col = "Item", into = c("Quantity", "Item"), >> sep = " ") >> >> table_3 <- left_join(table_1, table_2, by = "Item") %>% >> mutate(Item = paste(Quantity, Item)) %>% >> select(-Quantity) >> >> table_3 %>% >> group_by(Foo, Category) %>% >> summarise(Item = paste(Item, collapse = ", ")) %>% &...

...le_1, "Foo", "Item") %>% >>>> filter(!is.na(Item)) >>>> >>>> table_1 <- separate(table_1, col = "Item", into = c("Quantity", >>>> "Item"), sep = " ") >>>> >>>> table_3 <- left_join(table_1, table_2, by = "Item") %>% >>>> mutate(Item = paste(Quantity, Item)) %>% >>>> select(-Quantity) >>>> >>>> table_3 %>% >>>> group_by(Foo, Category) %>% >>>> summarise(Item =...

...table_1 <- gather(table_1, "Foo", "Item") %>% >>> filter(!is.na(Item)) >>> >>> table_1 <- separate(table_1, col = "Item", into = c("Quantity", "Item"), >>> sep = " ") >>> >>> table_3 <- left_join(table_1, table_2, by = "Item") %>% >>> mutate(Item = paste(Quantity, Item)) %>% >>> select(-Quantity) >>> >>> table_3 %>% >>> group_by(Foo, Category) %>% >>> summarise(Item = paste(Item, collapse = &...

Hey PIKAL, It's not a homework neithe that is the real dataset i have signer NDA for my company so that i can share the original data file, Actually I'm working on a market basket analysis task but not able to convert my existing data table to appropriate format so that i can apply Apriori algorithm using R, and this is very important me to get it done because I'm an intern and if i