Affichage des valeurs de données sur un diagramme à barres empilées en ggplot2

Question

J'aimerais afficher des valeurs de données sur un diagramme à barres empilées en ggplot2. Voici le code que j'ai essayé d'utiliser

Year      <- c(rep(c("2006-07", "2007-08", "2008-09", "2009-10"), each = 4))
Category  <- c(rep(c("A", "B", "C", "D"), times = 4))
Frequency <- c(168, 259, 226, 340, 216, 431, 319, 368, 423, 645, 234, 685, 166, 467, 274, 251)
Data      <- data.frame(Year, Category, Frequency)
library(ggplot2)
p <- qplot(Year, Frequency, data = Data, geom = "bar", fill = Category,     theme_set(theme_bw()))
p + geom_text(aes(label = Frequency), size = 3, hjust = 0.5, vjust = 3, position =     "stack") 

J'aimerais afficher ces valeurs de données au milieu de chaque partie. Toute aide à cet égard sera très appréciée. Merci

Answer 1

Desde ggplot 2.2.0 Les étiquettes peuvent facilement être empilées en utilisant position = position_stack(vjust = 0.5) en geom_text .

ggplot(Data, aes(x = Year, y = Frequency, fill = Category, label = Frequency)) +
  geom_bar(stat = "identity") +
  geom_text(size = 3, position = position_stack(vjust = 0.5))

Notez également que " position_stack() y position_fill() empile désormais les valeurs dans l'ordre inverse du regroupement, ce qui fait que l'ordre d'empilement par défaut correspond à la légende."

---

Réponse valable pour les anciennes versions de ggplot :

Voici une approche qui consiste à calculer les points médians des barres.

library(ggplot2)
library(plyr)

# calculate midpoints of bars (simplified using comment by @DWin)
Data <- ddply(Data, .(Year), 
   transform, pos = cumsum(Frequency) - (0.5 * Frequency)
)

# library(dplyr) ## If using dplyr... 
# Data <- group_by(Data,Year) %>%
#    mutate(pos = cumsum(Frequency) - (0.5 * Frequency))

# plot bars and add text
p <- ggplot(Data, aes(x = Year, y = Frequency)) +
     geom_bar(aes(fill = Category), stat="identity") +
     geom_text(aes(label = Frequency, y = pos), size = 3)

Answer 2

Comme l'a mentionné hadley, il existe des moyens plus efficaces de communiquer votre message que des étiquettes dans des diagrammes à barres empilées. En fait, les diagrammes à barres empilées ne sont pas très efficaces car les barres (chaque catégorie) ne partagent pas un axe, ce qui rend la comparaison difficile.

Il est presque toujours préférable d'utiliser deux graphiques dans ces cas, partageant un axe commun. Dans votre exemple, je suppose que vous voulez montrer le total général, puis les proportions de la contribution de chaque catégorie pour une année donnée.

library(grid)
library(gridExtra)
library(plyr)

# create a new column with proportions
prop <- function(x) x/sum(x)
Data <- ddply(Data,"Year",transform,Share=prop(Frequency))

# create the component graphics
totals <- ggplot(Data,aes(Year,Frequency)) + geom_bar(fill="darkseagreen",stat="identity") + 
  xlab("") + labs(title = "Frequency totals in given Year")
proportion <- ggplot(Data, aes(x=Year,y=Share, group=Category, colour=Category)) 
+ geom_line() + scale_y_continuous(label=percent_format())+ theme(legend.position = "bottom") + 
  labs(title = "Proportion of total Frequency accounted by each Category in given Year")

# bring them together
grid.arrange(totals,proportion)

Vous obtiendrez ainsi un affichage à deux panneaux comme celui-ci :

Si vous voulez ajouter des valeurs de fréquence, un tableau est le meilleur format.