Etiquetas de texto fora de ordem no gráfico de barras da pilha (ggplot)

Estou tentando fazer um gráfico de barras empilhadas com rótulos de texto, este é um exemplo de dados / código:

library(reshape2)

ConstitutiveHet <- c(7,13)
Enhancer <- c(12,6)
FacultativeHet <- c(25,39)
LowConfidence <- c(3,4)
Promoter <- c(5,4)
Quiescent <- c(69,59)
RegPermissive <- c(23,18)
Transcribed <- c(12,11)
Bivalent <- c(6,22)
group <- c("all","GWS")

meanComb <- data.frame(ConstitutiveHet,Enhancer,LowConfidence,Promoter,Quiescent,RegPermissive,Transcribed,Bivalent,group)
meanCombM <- melt(meanComb,id.vars = "group")

ggplot(meanCombM,aes(group,value,label=value)) +
     geom_col(aes(fill=variable))+
     geom_text(position = "stack")+
     coord_flip()

Os rótulos de texto aparecem fora de ordem, parecem ser a imagem espelhada da ordem pretendida. (você tem o mesmo problema com ou sem ocoord_flip())

Um pôster teve um problema semelhante aqui:ggplot2: adicione rótulos de categoria ordenada ao gráfico de barras empilhadas

Uma resposta ao seu post propôs reverter a ordem dos valores nos grupos, que eu tentei (veja abaixo), a ordem resultante no gráfico não é uma que eu consegui descobrir. Além disso, essa abordagem parece hacky, existe um bug aqui ou estou faltando alguma coisa?

x <- c(rev(meanCombM[meanCombM$group=="GWS",]$value),rev(meanCombM[meanCombM$group=="all",]$value))

ggplot(meanCombM,aes(group,value,label=x)) +
geom_col(aes(fill=variable))+
geom_text(position = "stack")+
coord_flip()

questionAnswers(1)

yourAnswerToTheQuestion