position_jitternudge: Simultaneously nudge and jitter
In sdamr: Statistics: Data analysis and modelling

Simultaneously nudge and jitter

position_jitternudge(
  jitter.width = NULL,
  jitter.height = 0,
  nudge.x = 0,
  nudge.y = 0,
  seed = NA
)

`jitter.width`	degree of jitter in x direction. Defaults to 40% of the resolution of the data.
`jitter.height`	degree of jitter in y direction. Defaults to 0.
`nudge.x`	the amount to nudge in the x direction.
`nudge.y`	the amount to nudge in the y direction.
`seed`	Optional seed for the random jitter

library(ggplot2)
dsub <- diamonds[ sample(nrow(diamonds), 1000), ]
ggplot(dsub, aes(x = cut, y = carat, fill = clarity)) +
  geom_boxplot(outlier.size = 0) +
  geom_point(pch = 21, position = position_jitterdodge())