tip_length in aes about ggsignif HOT 5 OPEN

  annotation_df <- data.frame(color=c("E", "H"),
                              start=c("Good", "Good"),
                              end=c("Very Good", "Good"),
                              y=c(max(diamonds$carat), max(diamonds$carat)),
                              label=c("Comp. 1", "Comp. 2"),
                              tip_length = c(0.2,0))

  annotation_df

  ggplot(diamonds, aes(x=cut, y=carat)) +
    geom_boxplot() +
    geom_signif(data=annotation_df,
                aes(xmin=start, xmax=end, annotations=label, y_position=y, tip_length = tip_length),
                textsize = 3, vjust = -0.2,
                manual=TRUE) +
    facet_wrap(~ color) +
    ylim(NA, 5.3)