Mean of List of Coordinates

Question

Imagine I have the following list

l = {{1, 2}, {1, 3}, {2, 4}, {2, 2}, {2, 3}}

I want to take the mean only regarding the second element. That is, I want to find the coordinates of the points corresponding to

{{1, 2.5}, {2, 3}}

What is the easiest way to achieve this? In other words, how can I easily compute the mean points (in red) from a list of coordinates

My approach: Mean /@ Split[Sort@l, Last[#2] >= Last[#1] &]. Could this be improved?

Answer 1

Given

alist = {{1, 2}, {1, 3}, {2, 4}, {2, 2}, {2, 3}}

then

groupedMeans = GroupBy[alist, First -> Last, Mean]

gives

<|1 -> 5/2, 2 -> 3|>

To recover the data as coordinates, you could do this:

KeyValueMap[List, groupedMeans]

{{1, 5/2}, {2, 3}}