Michael,

> Try this alternative:
>
> # from http://research.microsoft.com/users/lamport/pubs/hair.pdf
> hairsex <- matrix(
>    c(46, 45, 13, 12,
>       1, 101, 0, 20), 2, 4, byrow=TRUE)
> dimnames(hairsex) <- list("Gender"=c("Female", "Male"),
> 		"Hair color"=c("Blond", "Brown", "Red", "Other") )
>
> library(vcd)
> mosaic(hairsex, shade=TRUE)
>
> There are uses for pie charts, but this isn't one of the better ones.

There are many kinds of mosaic plots, but this isn't one of the  
better ones.  A multiple barchart looks good here.  I did like your  
idea of using colours, it emphasised the number of women with dark  
blue hair.

Antony
	[[alternative HTML version deleted]]

