barplot(df$Freq, names.arg = df$Var1,
        col=c(2:5), 
        cex.axis=0.8, cex.names=0.8)