geom _точка :Поместить перекрывающиеся точки с наибольшими значениями поверх других

Я визуализирую набор панельных данных с geom_point, где y = var1, x = yearи color = var2. Проблема в том, что есть много перекрывающихся точек, даже с горизонтальным дрожанием.

Уменьшение размера точки или установка низкого значения альфа-канала нежелательны, потому что и то, и другое уменьшает визуальное воздействие второй переменной, которая имеет очень длинный наклон вправо. Я хотел бы, чтобы ggplot размещал точки с самыми высокими значениями var2поверх всех других перекрывающихся точек.

Воспроизводимый пример:

df <- data.frame(diamonds)

ggplot(data = df,aes(x=factor(cut),y=carat,colour=price)) + 
  geom_point(position=position_jitter(width=.4))+
  scale_colour_gradientn(colours=c("grey20","orange","orange3"))

Как разместить точки с наибольшими значениями в df$priceна вершине перекрывающейся стопки точек?