geom_barsの下に重要な文字

Question

これはirisデータセットの棒グラフです。各バーの上の文字は、有意差を示し、kruskal-wallis試験から得た。 このサンプルプロットではあまりにも厄介ではありませんが、私の実際のデータは、エラーバーとバー長の違いがずっと大きいです。そういうわけで、手紙はどこにでもあり、読むのが難しくなります。私は文字が各バーの下、x軸の真上に位置することが可能かどうか疑問に思います。こうすることで、彼らはすべて整列して読みやすくなります。何を考える？

コード：

library(reshape2) 
library(ggplot2) 
library(agricolae) 
library(Rmisc) 

file<-iris 

melt <- melt(file, id=c("Species")) 

x1 <- summarySE(melt, measurevar = "value", groupvars = c("variable", "Species"), na.rm=TRUE) 

d=list() 
tmp=list() 

for(i in 1:4){ 
    if(var(file[,i]) > 0){ 
    tmp<-c(tmp,colnames(file[i])) 
    krusk <- kruskal(file[,i],file[,5],group=TRUE) 
    krusk$groups<-krusk$groups[order(krusk$groups[,'trt']),] 
    d[[i]]<-as.data.frame(krusk$groups)  
    } 
} 

big_data=do.call(rbind,d) 

plot<- ggplot(x1, aes(x = variable, y = value, fill = Species)) + 
    coord_flip()+ 
    geom_bar(stat = "identity", position =position_dodge(),colour="black",width=.7,size=.5)+ 
    geom_errorbar(aes(ymin=value-se, ymax=value+se), width=.1,size=.5,position=position_dodge(.7))+ 
    theme(
    axis.text = element_text(angle=0, vjust=1,size=8,face="bold"),legend.title=element_blank(),legend.position="bottom", 
    legend.text=element_text(face="italic"))+ 
    labs(title=NULL,x=NULL,y=NULL)+ 
    geom_text(aes(label=big_data$M,colour=Species),position=position_dodge(width=1),vjust=.8,hjust=-1,size=3) 

plot 

Answer 1

このような何か：geom_textについては
、y = 0、およびhjust = 1.5を設定します。
バー、エラーバー、およびテキストの覆い焼き幅は同じであることに注意してください。また、バーの幅は覆い焼き幅に等しいので、棒は各変数内でお互いに突き合わせることに注意してください。

plot <- ggplot(x1, aes(x = variable, y = value, fill = Species)) + 
    coord_flip() + 
    geom_bar(stat = "identity", position = position_dodge(width = .7), 
    colour = "black", width = .7, size = .5) + 
    geom_errorbar(aes(ymin = value-se, ymax = value+se), position=position_dodge(width = .7), 
    width = .1, size = .5) + 
    geom_text(aes(y = 0, label = big_data$M, colour = Species), 
    position=position_dodge(width = .7), hjust = 1.5, size = 3) + 
    theme(
    axis.text = element_text(angle=0, vjust=1,size=8,face="bold"),legend.title=element_blank(),legend.position="bottom", 
    legend.text=element_text(face="italic")) + 
    labs(title=NULL,x=NULL,y=NULL) 

plot