Выделение определенных областей диаграммы рассеяния в ggplot

Мне нужно обсудить точечную диаграмму, и я хотел бы обратиться к определенным областям графика. Есть ли способ «выделить» определенные участки сюжета? Возможно, с коробками и этикетками, как показано ниже?

set.seed(1410)
dsmall<-diamonds[sample(nrow(diamonds), 100), ]
df<-data.frame("x"=dsmall$carat, "y"=dsmall$price)

p <-ggplot(df, aes(x, y)) 
p <- p + geom_point(alpha=2/10, shape=21, fill="blue", colour="black", size=5)