How to make geom_errorbar() the same color as the fill of points when using border customizable pch in ggplot R?

Question

I\'m using the special pch (21-25) to make a scatter plot with ggplot since I want the fill of the points to vary with factor levels, but I also want the border