# Studenti iscritti a due diversi corsi di studi per provenienza
# dalle nazioni A, B, C e D
stud <- c(12, 72, 36, 40);  stud2 <- c(37, 105, 60, 28)
# Le distribuzioni percentuali
stud_p <- stud/sum(stud); stud2_p <- stud2/sum(stud2)
stud_p*100; stud2_p*100
[1]  7.5  45.0  22.5  25.0
[1] 16.08696 45.65217 26.08696 12.17391
# Uso il comando ylim per scegliere la scala verticale, invece
# che farla scegliere automaticamente al programma
barplot(stud_p*100,angle=45,density=7,ylim=c(0,50))
# Con angle e density ho specificato come tracciare dei segmenti sulle
# colonne dell'istogramma. Traccio, tratteggiate, delle tacche.
abline(h=c(10,20,30,40,50),lty=3)
# L'altro istogramma lo traccio sulla stessa scala (add=TRUE), evidenziandone
# diversamente le colonne, con bordo rosso
barplot(stud2_p*100,add=TRUE,angle=135,density=14,border="red")