I made box plots with dots but the dots are too scattred around. Is there anyway to move them more into middle of box ?

My code is as this :

p<-ggplot(data, aes(x=Genus, y=Relative_abundance, fill=Group)) + 
geom_boxplot(position = position_dodge(width = 0.8), alpha = 0.8) +
  labs(title = "Relative Abundance Comparison",
       x = "Genus",
       y = "Relative Abundance",
       fill = "Group") +

  theme_minimal() +

  scale_fill_manual(values = c(Stray = "blue", Pet = "red"))

p + geom_jitter(shape=16, height=0.0001)

Please help me !