question geom_bar empilés avec barres empilées et étiquettes mal placé

Question

J'ai cette barre graphique:

group = c("A","A","B","B") 
value = c(25,-75,-40,-76) 
day = c(1,2,1,2) 
dat = data.frame(group = group , value = value, day = day) 

ggplot(data = dat, aes(x = group, y = value, fill = factor(day))) + 
    geom_bar(stat = "identity", position = "identity")+ 
    geom_text(aes(label = round(value,0)), color = "black", position = "stack") 

et je voudrais les barres empilées et les valeurs à se manifester. Quand je cours le code ci-dessus le -76 n'est pas dans l'emplacement correct (et le 75 ne semble pas non plus).

Une idée de comment obtenir les numéros à apparaître dans l'emplacement correct?

Answer 1

ggplot(data=dat, aes(x=group, y=value, fill=factor(day))) + 
    geom_bar(stat="identity", position="identity")+ 
    geom_text(label =round(value,0),color = "black")+ 
    scale_y_continuous(breaks=c(-80,-40,0)) 

Answer 2

Empilement un mélange de valeurs négatives et positives est difficile pour ggplot2. Le plus simple est de diviser le jeu de données en deux, un pour les positifs et un pour les négatifs, puis d'ajouter des couches de barres séparément. Un exemple classique est here.

Vous pouvez faire la même chose avec le texte, en ajoutant un calque de texte pour les valeurs y positives et un pour les négatifs.

dat1 = subset(dat, value >= 0) 
dat2 = subset(dat, value < 0) 

ggplot(mapping = aes(x = group, y = value, fill = factor(day))) + 
    geom_bar(data = dat1, stat = "identity", position = "stack")+ 
    geom_bar(data = dat2, stat = "identity", position = "stack") + 
    geom_text(data = dat1, aes(label = round(value,0)), color = "black", position = "stack") + 
    geom_text(data = dat2, aes(label = round(value,0)), color = "black", position = "stack") 

Si vous utilisez la version actuellement semble développement de ggplot2 (2.1.0.9000), l'empilement ne pas fonctionner correctement dans geom_text pour les valeurs négatives. Vous pouvez toujours calculer les positions de texte "à la main" si nécessaire.

library(dplyr) 
dat2 = dat2 %>% 
    group_by(group) %>% 
    mutate(pos = cumsum(value)) 

ggplot(mapping = aes(x = group, y = value, fill = factor(day))) + 
    geom_bar(data = dat1, stat = "identity", position = "stack")+ 
    geom_bar(data = dat2, stat = "identity", position = "stack") + 
    geom_text(data = dat1, aes(label = round(value,0)), color = "black") + 
    geom_text(data = dat2, aes(label = round(value,0), y = pos), color = "black")