在ggplot中的barplot中添加重要恒星-通过线连接

如何解决在ggplot中的barplot中添加重要恒星-通过线连接

我进行了t检验，其p值表明结果之间的差异是显着的。我想使用ggplot上的星星来形象地看到这一点。

这就是我的数据的样子：

> dput(DF_tot)
structure(list(Names = c("Mark","Nate","Stuart"),Area = c(5.125,176.115,7.44),SD = c(1.87,3.14,5.151)),row.names = 4:6,class = "data.frame")

这是我用来创建ggplot的代码：

p <- ggplot(DF_tot,aes(x=Names,y=Area,fill=Names)) + 
  geom_bar(stat="identity",fill="gray12",position=position_dodge()) +
  geom_errorbar(aes(ymin=Area-SD,ymax=Area+SD),width=.2,position=position_dodge(.9)) 

p + 
  theme_bw() + 
  theme(panel.border = element_blank(),panel.grid.major = element_blank(),panel.grid.minor = element_blank(),axis.line = element_line(colour = "black")) +
  labs(x = "",y = "")+
  theme(axis.text=element_text(size=13))

下面，我展示了我想要实现的目标：

当然，这样的线条和星星也应该移到左侧的条形图上。如果我可以轻松修改星数，那将是很好的。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com(将#修改为@）