ggplot: add border with given width to geom_point()

Question

The plot below shows circles whose size and grey transparency is given, and with a red border.

d_test <- data.frame(x=c(1,2,3,4,4,5,4,3,5,2.5),