defeitos = c(2, 3, 3, 1, 0, 0, 2, 2, 2, 2, 2, 1, 2, 3, 2, 0, 2, 0, 2, 2, 1, 3, 1, 3, 5, 0, 3, 2, 3, 2, 2, 3, 1, 3, 3, 0, 2, 2, 2,   2)

barplot(table(defeitos))

barplot(table(defeitos), xlab="Número de defeitos")

barplot(table(defeitos), xlab="Número de defeitos", ylab="Frequência absoluta")

library(plotrix)

dotplot.mtb(defeitos, xlab="Número de defeitos")