Here is an example, twice, with and without jitter
library(tidyverse)
df <- data.frame(x=rep(c("a", "b","c"),10)
,y=sample.int(9,30,replace=TRUE))
ggplot(data=df,
mapping=aes(x=x,y=y)) + geom_point()
ggplot(data=df,
mapping=aes(x=x,y=y)) + geom_jitter(width=.1)