ggplot layering multiple geom_points on top of each other with specific order

Question

ID <- rep(c(\'A\',\'B\'),each = 10)
x <- rep(1,10)
y <- 1:10
have <- tibble(x, y)
have <- cbind(ID,rbind(have,have))

have %>%
  ggplot(aes(x, y, color