av_data1_all<-s_complete %>% group_by(Gender_SNB, num_SNB)%>% dplyr::summarize(prop=mean(num_SNB), synch = sum(num_SNB), n = n(), .groups='drop') d<- av_data1_all %>% ggplot( aes(x=num_SNB, y=prop, color=Age_SNB, group=Age_SNB))+ geom_smooth(av_data1_all,method=glm, method.args= list(family = binomial(logit)), mapping = aes(y=prop,group=Age_SNB),linetype="dashed", position ="identity",se = FALSE)+ #mapping = aes(y=prop,group=Age, col='average'),linetype="dashed", position ="identity",se = FALSE)+ geom_smooth(method=glm, method.args= list(family = binomial(logit)), se = FALSE) + geom_point() + #geom_point(aes(shape = block)) + xlab('Delay (ms)') + ylab('Prop. of Synch Responses') + #ggtitle("Session 2")+ theme_bw()+ # removes background theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())+ #removes grid facet_wrap(~ID)+ scale_colour_manual(values = c("red", "blue", "black"))+ theme(axis.text.x = element_text(angle = 90, hjust=1))+ scale_x_continuous(breaks=c(0, 33, 83, 167, 333, 500, 750)) plot(d) can you plese fix this plot code?

{r av_data1_all}
av_data1_all<-s_complete %>% 
  group_by(Gender_SNB, num_SNB)%>% 
  dplyr::summarize(prop=mean(num_SNB), synch = sum(num_SNB),
                   n = n(), .groups='drop')

d<-
  av_data1_all %>% ggplot( aes(x=num_SNB, y=prop, color=Age_SNB, group=Age_SNB))+  
  geom_smooth(av_data1_all,method=glm, method.args= list(family = binomial(logit)),
              mapping = aes(y=prop,group=Age_SNB),linetype="dashed", position ="identity",se = FALSE)+ #mapping = aes(y=prop,group=Age, col='average'),linetype="dashed", position ="identity",se = FALSE)+
  geom_smooth(