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

我希望情节看起来更像这样：

注意显着性表示的差异，我想让树突图看起来像中性粒细胞图。

在此先感谢，