Displaying 1 result from an estimated 1 matches for "xdodge".
Did you mean:
dodge
2009 Apr 23
1
ggplot2/aesthetic plotting advice
...,x))
means <- with(dat,tapply(y,list(g,x),mean))
limits <- aes(ymax=means+se,ymin=means-se)
gg <- factor(rep(1:ngrp,nx))
xx <- rep(1:nx,each=ngrp)
p <- ggplot(dat,aes(y=c(means),x=xx,
group=gg,colour=gg))
p + geom_pointrange(aes(ymin=c(means-se),ymax=c(means+se)))
xdodge <- xx + rep(seq(-0.1,0.1,length=ngrp),nx)
p + geom_line() + geom_pointrange(aes(x=xdodge,
ymin=c(means-se),
ymax=c(means+se))) +
scale_x_continuous(name="Year",breaks=1:3) +
scale_y_continuous(name="Wh...