search for: ggdata

...apply(diamonds$price, diamonds$cut, mean);meanprice cut <- factor(levels(diamonds$cut), levels = levels(diamonds$cut)) qplot(cut, meanprice, geom="bar", stat="identity", fill = I("grey50")) dev.new() # create a new graph to compare with qplot # Example using ggplot ggdata <- data.frame(meanprice,cut);ggdata ggplot(ggdata,aes(y=meanprice,x=cut)) + geom_bar(fill="grey50",stat='identity') Felipe D. Carrillo Supervisory Fishery Biologist Department of the Interior US Fish & Wildlife Service California, USA --- On Fri, 9/11/09, Andreas...