r - ggplotの有意バーのタイプを変更するにはどうすればよいですか?

Question

下向きの括弧で意味を表示するggplotがありますが、上司はそれらに上下の目盛りを付けたいと思っています（下の画像を参照）。また、上司は「ns」を大文字にしたいと考えています。手動で行うことなくこれを制御する良い方法はありますか? 全部で10区画作っています。

p <- ggplot(LessCountS, aes(x=Type, y=DC)) + 
  geom_dotplot(aes(fill= Type), binwidth = 4.5,
               binaxis = "y", 
               stackdir = "center",
               color = "black" 
  ) +
  theme_gray ()+
  labs(x="", y = "Cell Count (cells/uL")+
  ggtitle("Dendritic cells") +
  scale_x_discrete(labels=c("HC" = "Controls", "IN" = "Inpatients",
                            "OUT" = "Outpatients")) +
  theme(plot.title = element_text(hjust = 0.5, size = 14), legend.text=element_text(size=12), 
        legend.position = "none", text = element_text(family = "Calibri"), axis.text = element_text(size=14),
        axis.title = element_text(size = 14)) +
  #scale_fill_brewer(palette="Purples") +
  scale_fill_manual(values=c("#CCCCCC", "#990066", "#3366CC")) +
  stat_summary(fun.y = median, fun.ymin = median, fun.ymax = median,
               geom = "crossbar", width = 0.35) +
  stat_compare_means(comparisons = my_comparisons, label.y = , label = "p.signif", size = 5)
p

プロットを次のようにしたいと思います。

有意性の表示の違いに注意してください。樹状突起プロットを好中球プロットのように見せたいと思います。

よろしくお願いします、S