разделение geom_point на подгруппы

Question

У меня есть набор данных, образец которого:

       KO: WT, WT, 13-1,13-1,13-2,WT,13-1,13-1,13-2,13-2
Rep: A,A,A,A,A,B,B,B,B,B
Day: 1,2,3,4,5,1,2,3,4,5
NewLeaf:2,5,4,7,4,1,3,5,3,2

• ggplot2: версия 3.3.2
• R версия 4.0.2

Я хотел бы создать коробчатую диаграмму, где KO разделены подгруппами дней, а джиттер должен соответствовать этим разделениям (также известным как 3 в каждой группе KO). Однако это не так. Как я могу это исправить?

       #Jitter
ggplot(Data_1,aes(x=KO,y=NewLeaf,fill=Day))+geom_boxplot()+ 
  geom_jitter(aes(fill=Day)+
  scale_x_discrete(limits=c("WT", "13-1", "13-2"))+ 
  scale_fill_brewer(palette = "Dark2")+
theme_classic()+
  labs(title="Number of New Leaves by Genotype",x="Genotype", y = "Number of New Leaves")