Aligning barplot

grps <- unique(c(BagA, BagB))
BagA <- factor(BagA, levels=grps)
BagB <- factor(BagB, levels=grps)

layout(c(2,1))
barplot(table(BagB))
barplot(table(BagA))

-----Original Message-----
From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-
project.org] On Behalf Of darnold
Sent: Sunday, August 26, 2012 2:26 PM
To: r-help at r-project.org
Subject: Re: [R] Aligning barplot

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

aligned, the 20-bars are aligned, etc. So, I started thinking, how

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

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.