[R] Aligning barplot

[darnold]

I was able to do this, but kinda painful:

BagA <- c(-1000,10,10,10,10,10,10,
          10,20,20,20,20,20,20,30,
          30,40,40,50,60)


BagB <- c(10,20,30,30,40,40,50,50,
          50,50,50,50,60,60,60,60,
          60,60,60,1000)

tblA <- table(BagA)
tblAnames  <- names(tblA)
tblA <- as.vector(tblA)
tblA[8] <- 0
names(tblA) <- c(tblAnames,"1000")

tblB <- table(BagB)
tblBnames  <- names(tblB)
tblB <- as.vector(tblB)
tblB <- c(0,tblB)
names(tblB) <- c("-1000",tblBnames)

layout(c(2,1))

barplot(tblB)
barplot(tblA)

Any better ideas?


darnold wrote
> 
> All, Consider:
> 
> BagA <- c(-1000,10,10,10,10,10,10,
>           10,20,20,20,20,20,20,30,
>           30,40,40,50,60)
> 
> 
> BagB <- c(10,20,30,30,40,40,50,50,
>           50,50,50,50,60,60,60,60,
>           60,60,60,1000)
> 
> layout(c(2,1))
> 
> barplot(table(BagB))
> barplot(table(BagA))
> 
> At this point, I'd like to arrange the plots so that the 10-bars are
> aligned, the 20-bars are aligned, etc. So, I started thinking, how do I
> add an entry to a table? I tried:
> 
> tmp <- table(BagA)
> tmp[8] <- 0
> names(tmp)[8] <- "1000"
> 
> barplot(tmp)
> 
> But I got this error:
> 
>> source('~/.active-rstudio-document')
> Error in barplot.default(tmp) : 'height' must be a vector or a matrix
> 
> Makes me think I should not be telling my students to do:
> 
> barplot(table(BagA))
> 
> As it might give future troubles. 
> 
> 1. What am I missing?
> 
> 2. Can anyone propose an alternate strategy for aligning my tables?
> 
> Thanks
> 
> David Arnold
> College of the Redwoods
> 




--
View this message in context: http://r.789695.n4.nabble.com/Aligning-barplot-tp4641356p4641357.html
Sent from the R help mailing list archive at Nabble.com.