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.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
