Displaying 1 result from an estimated 1 matches for "down3".
Did you mean:
down
2008 Jun 03
0
problems on plotting adjacent bars with barplot. Help request, please
...-character(l)
labels[1:l%%2==1]<-n
xv<-barplot(both,col=rep(c(1,2,3),17),
ylim=c(0,max(y)+e[1]),names=labels)
up<-x[,1]+e
down<-x[,1]-e
arrows(xv,up,xv,down,code=3,angle=90,length=0.025)
up2<-x[,2]+e
down2<-x[,2]-e
arrows(xv,up,xv,down,code=3,angle=90,length=0.025)
up3<-x[,3]+e
down3<-x[,3]-e
arrows(xv,up,xv,down,code=3,angle=90,length=0.025)
}
i guess the "both" instruction is fake 'cause the plot
looks really wrong.
i have also tried this other one.
rm(l)
l<-17
adj.bars<-function(y,e,n,l){
both<-rep(c(1,1.5,2),l)
both[1:l%%2==1]<-y[,1]
both[1:l...