I now realise I should have started this with "it's too bad there's no way to do a fuzzy group_by() in R" 

¯⁠\⁠_⁠(⁠ツ⁠)⁠_⁠/⁠¯