fusion ggplot et le tracé de graphique à barres

Question

Comment pourrais-je tracer un graphique à barres montrant le pourcentage, par sexe et pour chacun des différents niveaux de var

Les données peuvent être construites comme suit:

structure(list(var = structure(c(5L, 5L, 5L, 6L, 5L, 4L, 5L, 
6L, 6L, 6L, 5L, 5L, 5L, 6L, 6L, 5L, 6L, 5L, 6L, 5L), .Label = c("-97:\nMultiple\nResponse", 
"-99:\nRefused", "1:\nDefinitely", "2:\nProbably", "3:\nProbably\nnot", 
"4:\nDefinitely\nnot"), class = "factor"), GENDER = structure(c(1L, 
2L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 2L, 1L, 1L, 
1L, 2L, 1L), .Label = c("1: Male", "2: Female", "3: Unknown"), class = "factor")), .Names = c("var", 
"GENDER"), row.names = c(NA, 20L), class = "data.frame") 

I voulez que les barres dans gender totalisent chacune jusqu'à 100%

Answer 1

Résumez les données pour obtenir un pourcentage de GENDER dans chaque niveau de var. Ci-dessous, j'utilise dplyr pour le faire à la volée dans l'appel le ggplot. J'ai appelé votre bloc de données dat:

library(dplyr) 
library(scales) 

ggplot(dat %>% group_by(var, GENDER) %>% 
     tally %>% 
     mutate(pct=n/sum(n)), aes(var, pct, fill=GENDER)) + 
    geom_bar(stat="identity") + 
    scale_y_continuous(labels=percent_format()) 

MISE À JOUR: Pour assurer les catégories vides sont incluses:

ggplot(dat %>% group_by(var, GENDER) %>% 
     tally %>% 
     mutate(pct=n/sum(n))) + 
    geom_bar(stat="identity", aes(var, pct, fill=GENDER)) + 
    scale_y_continuous(labels=percent_format()) + 
    scale_x_discrete(drop=FALSE)