Hi, If you run the code below within a Begin-End program R block, you get this: http://nl.tinypic.com/r/28qt4qs/5 library(ggplot2) df <- spssdata.GetDataFromSPSS() attach(df) limits <- aes(ymax=UpperBound, ymin=LowerBound) p <- ggplot(df, aes(x=Group, y=Mean, fill=Group), stat="identity", position="dodge") + geom_bar() d <- position_dodge(width=2) p <- p + geom_bar(position=d) + geom_errorbar(limits, position=d, size=1, width=0.25) p + opts(title = "A neat bar chart\n") ggsave("c:/temp/barchart.png", scale=2) Cheers!! Albert-Jan ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ All right, but apart from the sanitation, the medicine, education, wine, public order, irrigation, roads, a fresh water system, and public health, what have the Romans ever done for us? ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ --- On Tue, 4/13/10, Wells, Christine <[hidden email]> wrote:
|
Free forum by Nabble | Edit this page |