s_data$Age_SNB <- factor(s_data$Age_SNB) s_data$Gender_SNB <- factor(s_data$Gender_SNB) s_data$Handedness_SNB <- factor(s_data$Handedness_SNB) s_data$Dotcounting_SNB <- factor(s_data$Dotcounting_SNB) s_data$developmentaldisorder_SNB <- factor(s_data$developmentaldisorder_SNB) 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') please edit this code properly

Gender_SNB num_SNB prop synch n
  <fct>     <dbl> <dbl> <int> <int>
1 male         7    7   0.35    49  1
2 male        42   42   0.35    49  1
3 male        42   42   0.35    49  1
4 male        42   42   0.35    49  1
5 male        42   42   0.35    49  1
6 male        42   42   0.35    49  1
7 male        42   42   0.35    49  1
8 male        42   42   0.35    49  1
9 male        42   42   0.35    49  1
10 male        42   42   0.35    49  1
# … with 21 more rows