How to make geom_path correspond to geom_beeswarm points

Question

I\'ve been trying to visualize the association of several characteristics in a small sample.

Here is an example data:

set.seed(309)
dat <- data.frame(id