png(filename.count, width=8, height=6, unit="in", res=200)
p <- qplot(day.of.week, data=d, fill=as.factor(rating), geom="bar", main=y)
png(filename.count, width=8, height=6, unit="in", res=200)
p <- qplot(day.of.week, data=d, fill=as.factor(rating), geom="bar", main=y)