Я думаю, что у этого есть несколько разных решений.Если вы просто хотите настроить непрозрачность каждой точки, вы можете:
ListPlot[data, PlotRange -> {{-130, -65}, {23.5, 50.5}},
Frame -> True, PlotStyle -> Opacity[0.5]]
Это дает эффект, очень похожий на график в вашей ссылке.
Возможны пользовательские карты цветов на основе плотностино моя реализация пока не дает симпатичных графиков.