[R] Aligning barplot

[darnold]

Hmmm....

This worked this time. And I didn't use the transform t.

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)
tblA <- c(tblA,0)
names(tblA) <- c(names(table(BagA)),"1000")

tblB <- table(BagB)
tblB <- c(0,tblB)
names(tblB) <- c("-1000",names(table(BagB)))

layout(c(2,1))

barplot(tblB, main="Bag B")
barplot(tblA, main="Bag A")

D.


David Winsemius wrote
> 
> 
> 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:
>> 
>> 
> 
> Try using t(tmp) when plotting. When you started mucking with that
> table-object, it got converted (effectively) to a one row matrix (even
> though it retained it "table"-class attribute)  and you need to make it a
> one column matrix to get the desired results with barplot().
> 
>> tmpB <- table(BagB)
>> tmpB <- c(0, tmpB)
>> names(tmpB) <- c(-1000, names(table(BagB)) )
> 
>> barplot( t(tmpB) )
>> barplot( t(tmp) )
> 
> 
> -- 
> David (W.)
> 




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