Javascript Array Reduce Group By Function In R