Here is the new code. It works just like I wanted.
dev.new(width=6, height=6.5,mar=c(0,0,0,0))
par(mfrow=c(5,1),mar=c(.5, .5, 1.5, .5), oma=c(.4, 0,.5, 0))
barplot(c(1,1,1,1,1),col=c("white","white","red","white","white"), axes =
FALSE,border=NA)
barplot(c(1,1,1,1,1),col=c("orange","white","white","white","yellow"), axes
= FALSE,border=NA)
barplot(c(1,1,1,1,1),col=c("white","white","white","white","white"), axes =
FALSE,border=NA)
barplot(c(1,1,1,1,1),col=c("blue","white","white","white","green"), axes =
FALSE,border=NA)
barplot(c(1,1,1,1,1),col=c("white","white","brown","white","white"), axes =
FALSE,border=NA)
-----
In theory, practice and theory are the same. In practice, they are not - Albert
Einstein
--
View this message in context:
http://r.789695.n4.nabble.com/barplot-in-hexagram-layout-tp3807600p3807953.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.
