histogramme/ggplot avec x et y et Vrai ou faux

Question

Je suis en train de faire un histogramme avec l'axe x que l'âge et de l'axe y 0 ou 1 (vrai ou faux)

person = c(1:50) 
age = sample(1:5,50,replace=T) 
drunk = sample(0:1,50,replace=T) 
df = data.frame(person,age,drunk) 

#plots that I tried: 
ggplot(df, aes(x = age, y = drunk)) + 
    geom_bar(stat="identity") 

hist(df$age) 

barplot(df$drunk, names.arg=df$age) 

Ces parcelles sont ne travaille pas pour moi. Ce que je suis en train de faire est: l'axe X devrait ressembler à 50 numéros allant de 1-5 et l'axe Y doit être 0 ou 1 (Vrai ou faux)

df$drunk <- as.character(df$drunk) 
df$drunk[df$drunk == "0"] <- "False" 
df$drunk[df$drunk == "1"] <- "True" 

I Tried utilisant le code ci-dessus faire un complot avec, mais ça ne marche pas.

http://i.imgur.com/c2DoEha.png par exemple. Chaque personne a un âge aléatoire dans l'intrigue et sa montre s'il est/était ivre (0 - 1 ou true/false)

Answer 1

Vous devez:

1. changement x dans votre aes-person
2. ajouter à votre factor(drunk) y en aes
3. ajouter scale_y_discrete à l'étiquette de l'axe y avec VRAI et FAUX au lieu de 1 et de 0.

4. ajouter scale_x_discrete à modifier l'étiquette de tique person au correspondant age en utilisant une fonction d'assistance en label, et en définissant les limites de la gamme de la variable person en df.

   ggplot(df, aes(x = person, y = factor(drunk))) + 
       geom_bar(stat="identity") + 
       labs(x = "Age", y = "Drunk") + 
       scale_y_discrete(labels = c("FALSE","TRUE")) + 
       scale_x_discrete(limits = seq(min(df$person), max(df$person)), labels = function(x) df[df$person == x,]$age) 
   

Answer 2

Est-ce que ce travail pour vous

ggplot(df,aes(x=person,y=age,fill=factor(drunk))) + geom_bar(stat='identity')