R help - Mar 2010 - Bar plots with bars made of stacked text

I would like to make bar plots where the bars are composed of text like this:
http://www.thomaslevine.com/lowres/text_bars.png

Is there a package that will help me with this? Thanks

Tom

Here is a start:

mydat <- list( Morning=c('Billy','Katy','Jonny'), 
	Noon=c('Billy','Patty','Suzie','Tom','Vicky'),
	Evening=c('Amy','Jonny','Sally') )

sx <- rep( seq_along(mydat), sapply(mydat, length) )
sy <- unlist( lapply( mydat, seq_along ) )

plot(sx, sy, xlab='', ylab='', xaxt='n',
yaxt='n', type='n',
	xlim=c(0, max(sx)+1), ylim=c(0,max(sy)+1)) 
text(sx, sy, unlist(mydat), adj=0.5)
axis(1, at=unique(sx), lab=names(mydat) )

now just adjust the size of the plot (or change xlim and ylim) to get the
spacing that you want.

-- 
Gregory (Greg) L. Snow Ph.D.
Statistical Data Center
Intermountain Healthcare
greg.snow at imail.org
801.408.8111

> -----Original Message-----
> From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-
> project.org] On Behalf Of Thomas Levine
> Sent: Wednesday, March 31, 2010 12:09 PM
> To: r-help at r-project.org
> Subject: [R] Bar plots with bars made of stacked text
> 
> I would like to make bar plots where the bars are composed of text like
> this:
> http://www.thomaslevine.com/lowres/text_bars.png
> 
> Is there a package that will help me with this? Thanks
> 
> Tom
> 
> ______________________________________________
> R-help at 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.

On 04/01/2010 05:09 AM, Thomas Levine wrote:
> I would like to make bar plots where the bars are composed of text like
this:
> http://www.thomaslevine.com/lowres/text_bars.png
>
> Is there a package that will help me with this? Thanks
>
Hi Tom,
Suppose you have a data frame like this:

zoodat
   names morning noon evening
1   Amy       0    0       1
2 Billy       1    1       0
3 Jonny       1    0       1
4  Katy       1    0       0
5 Patty       0    1       0
6 Sally       0    0       1
7 Suzie       0    1       0
8   Tom       0    1       0
9 Vicky       0    1       0

You can get something like your example with this:

textBarPlot<-function(labels,flags,main="",cex=1) {
  nbars<-length(flags)
  showlabels<-sapply(flags,function(x) x>0)
  plot(0,xlim=c(0,nbars+1),ylim=c(0,max(colSums(showlabels))),
   xlab="",ylab="",type="n",axes=FALSE)
  labelheight<-strheight("Oy",cex=cex)*2
  for(stack in 1:nbars) {
   ypos<-(1:sum(showlabels[,stack])-0.5)*labelheight
   text(stack,ypos,labels[showlabels[,stack]],cex=cex)
  }
  axis(1,at=1:nbars,labels=names(flags))
  box()
}

textBarPlot(zoodat[,1],zoodat[,2:4],
  main="People at the zoo",cex=1.5)

but you will probably want to fool around with the plot dimensions to 
make it neater.

Jim