"tidylog"でtidyverseを泳ぎきれ！ R初心者への浮き輪とか補助輪とかなんかそういう感じのやつ - Qiita

uniwide <- unisales %>% mutate(title_search = regtitle(title)) %>% select(-title, -inter_id) %>% left_join(manga2id, by = "title_search") %>% left_join(id2manga, by = "inter_id") %>% select(-title_search, title) %>% filter(dist == "pubridge") %>% mutate(yearmon = floor_date(date, "1 month")) %>% group_by(yearmon, coa_id) %>% summarise(montotal = sum(sales)) %>% left_join(id2manga) %>% spread(yearm