How about this? > 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))
---------------------------------------------- David L Carlson Associate Professor of Anthropology Texas A&M University College Station, TX 77843-4352 > -----Original Message----- > From: r-help-boun...@r-project.org [mailto:r-help-bounces@r- > project.org] On Behalf Of darnold > Sent: Sunday, August 26, 2012 2:26 PM > To: r-help@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 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. > > ______________________________________________ > 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. ______________________________________________ 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.