Error using facet_wrap & geom_signif : "Replacement has X rows..." about ggsignif HOT 2 OPEN

# Create plot
p = ggplot(Data, aes(x = Data[[X]], y = Data[[Y]], fill=Data[[X]])) +
  geom_violin() +
  geom_boxplot(width = 0.15, fill = "grey", na.rm=T, outlier.shape = NA)  +
  geom_jitter(size = 3, width = 0.15, height = 0, alpha = 0.5) +
  labs(x = X, y = Y, title=Title, 
       caption = "[+]p<.1; [*]p<.05; [**]p<.01; [***]p<.001") +
  theme_bw() +
  ylim(min(Data[[Y]], na.rm=T),max(Data[[Y]], na.rm=T)+YLimSupp) 

# Facetting the plot if required  
if (dim(Stats)[1]>1){p = p + facet_wrap(.~Measurement, scales="free_y")} # FIXED HERE

# Add the significance bars
# https://cran.r-project.org/web/packages/ggsignif/vignettes/intro.html
Steps = 0.04
NAIdx = !is.na(Annot)
Annot = Annot[NAIdx]
Groups = unique(Data[[Z]])[NAIdx]
AnnotationDF = data.frame(color = Groups,
                          start = rep(Levels[1], sum(NAIdx)),
                          end = rep(Levels[2], sum(NAIdx)),
                          y = rep(max(Data[[Y]], na.rm=T)+Steps*max(Data[[Y]], na.rm=T),sum(NAIdx)),
                          label = Annot)

p = p + geom_signif(data = AnnotationDF,
                    aes(xmin = AnnotationDF$start, xmax = AnnotationDF$end, annotations = AnnotationDF$label, y_position = AnnotationDF$y),
                    vjust = 0.3, tip_length = 0, size = 1.5, textsize = 10, manual=T)

plot(p)