Histogramme en R lors de l'utilisation d'une valeur binaire

Question

J'ai des données d'étudiants de plusieurs écoles. Je veux montrer un histogramme du pourcentage de tous les élèves qui ont réussi le test dans chaque école, en utilisant R. Mes données ressemble à ceci (id, école, passé/échec):

432342 école1 passé

454233 School2 a échoué

543245 école1 n'a pas

etc »

(le point est que je ne suis intéressé par le pour cent des étudiants qui ont passé, évidemment ceux qui ne sont pas transmises ont échoué. Je veulent avoir une colonne pour chaque école qui montre le pour cent des élèves dans cette école qui a passé)

Merci

Answer 1

il y a beaucoup de façons de le faire. on est:

df<-data.frame(ID=sample(100), 
school=factor(sample(3,100,TRUE),labels=c("School1","School2","School3")), 
result=factor(sample(2,100,TRUE),labels=c("passed","failed"))) 

p<-aggregate(df$result=="passed"~school, mean, data=df) 
barplot(p[,2]*100,names.arg=p[,1]) 

Answer 2

Ma réponse précédente ne va pas tout le chemin. Voici un refaire. L'exemple est celui de la réponse de @ eyjo.

students <- 400 
schools <- 5 

df <- data.frame(
    id = 1:students, 
    school = sample(paste("school", 1:schools, sep = ""), size = students, replace = TRUE), 
    results = sample(c("passed", "failed"), size = students, replace = TRUE, prob = c(.8, .2))) 

r <- aggregate(results ~ school, FUN = table, data = df) 
r <- do.call(cbind, r) # "flatten" the result 
r <- as.data.frame(cbind(r, sum = rowSums(r))) 

r$perc.passed <- round(with(r, (passed/sum) * 100), 0) 

library(ggplot2) 

ggplot(r, aes(x = school, y = perc.passed)) + 
    theme_bw() + 
    geom_bar(stat = "identity") 

Answer 3

Puisque vous avez des enregistrements individuels (id) et je vous suggère voulez calculer fonction de l'indice (école) tapply pour cela.

students <- 400 
schools <- 5 

df <- data.frame("id" = 1:students, 
    "school" = sample(paste("school", 1:schools, sep = ""), 
     size = students, replace = TRUE), 
    "results" = sample(c("passed", "failed"), 
     size = students, replace = TRUE, prob = c(.8, .2))) 

p <- tapply(df$results == "passed", df$school, mean) * 100 

barplot(p)