ggplot étiquettes sur la position bargraph

Question

Je suis vraiment désolé si c'est une question répétée. Mais pour une raison quelconque, les réponses données précédemment ne fonctionnaient pas pour moi. J'ai la df suivante:

Country<-c("Chile", "Chile", "Finland","Finland") 
Taxa<-c("Mammalia","Amphibia","Mammalia","Amphibia") 
Loss<-c(0.15, 1, 0.2, 0.75) 
df<-data.frame(Country, Taxa, Loss) 

Je veux afficher un classement et ajouter lables. Voici ce que j'ai obtenu:

ggplot(df,aes(x=reorder(Country, Loss), y=Loss)) + 
    geom_bar(aes(fill = Taxa), position="dodge", stat="identity") + 
    labs(x = "", y = "")+ 
    ylim(0,1)+ 
    theme (legend.position="top", legend.title = element_blank(),legend.text = element_text(size = 17), 
     axis.text.x = element_text(size=17), 
     axis.text.y = element_text(size=17), axis.title.y=element_text(size=17))+ 
    geom_text(aes(label = Loss), position=position_dodge(width=1))+ 
    coord_flip() 

Cela fonctionne très bien! Seulement que je ne peux pas positionner les étiquettes comme je le veux. Je préfère que les étiquettes soient à côté de la barre. J'ai essayé de jouer avec le width et aussi quelques vjust et hjust mais la position n'a jamais changé ... Qu'est-ce que je fais mal?

Merci d'avance !!!

Answer 1

Une autre solution à l'aide vjust et hjust, comme vous le mentionnais.

How to use vjust and hjust

Je suppose que vous voulez une étiquette par barre, utilisez group = Taxa dans le geom_text(aes()).

ggplot(df,aes(x=reorder(Country, Loss), y=Loss)) + 
geom_bar(aes(fill = Taxa), position="dodge", stat="identity") + 
labs(x = "", y = "")+ ylim(0,1)+ theme (legend.position="top", 
legend.title = element_blank(),legend.text = element_text(size = 17), 
axis.text.x = element_text(size=17), axis.text.y = element_text(size=17), 
axis.title.y=element_text(size=17))+ 
geom_text(aes(x = reorder(Country, Loss), label = Loss, group = Taxa), 
position=position_dodge(width=1), hjust = -1) 
+ coord_flip() 

Answer 2

Idée provenant ?geom_text:

ggplot(df, aes(x=reorder(Country, Loss), y=Loss, label = Loss, fill = Taxa)) + 
    geom_bar(position="dodge", stat="identity") + 
    geom_text(aes(y = Loss + 0.02), position = position_dodge(0.9), vjust = 0) + 
    coord_flip()