School=c(10,6,6,10,7,4,7,4)
barplot(School,
        names=c("A","B","C","D","E","F","G","H"),
        xlab="School Atended",
        ylab="Count",
        main="Classical Painters School Attedndence",
        col="wheat")

plot of chunk unnamed-chunk-1