googlegroupsformatter

hob <- table(diamonds$color)
hob.df <- as.data.frame(hob)
hob.df
#Var1  Freq
#1    D  6775
#2    E  9797
#3    F  9542
#4    G 11292
#5    H  8304
#6    I  5422
#7    J  2808
qplot(Var1, Freq, data=hob.df, geom="bar")