Значительные буквы под geom_bars

Question

Это штрих-диаграмма набора данных iris. Буквы над каждой линией обозначают существенные различия, полученные из теста kruskal-wallis. Хотя они не слишком грязны в этом примере, мои реальные данные имеют значительно большие бары ошибок и различия в длинах штрихов. Таким образом, буквы повсюду, и их становится трудно читать. Мне интересно, возможно ли, чтобы буквы были расположены под каждым баром, чуть выше оси х. Таким образом, все они будут выровнены и будут легко читаться. Что ты считаешь?

Код:

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