Josh,
Check into "add=TRUE" :-)
All you need to do is insert "add=TRUE" to the second
chart to superimpose it on the first chart. You might also
consider making the second bar a different shade of color
rather than using shadding lines, then it would only be one
plot.
data(HairEyeColor)
a <- as.table( apply(HairEyeColor, c(1,2), sum) )
a1<-a[1:2,]
barplot(a1,
type="n",
col=c("red","red","blue","blue","purple","purple","green","green"),
beside = TRUE )
barplot(a1,
col=1,
density=c(0,7,0,7,0,7,0,7),
beside = TRUE, add=TRUE )
Josh Roofchop wrote:
>
> Hi, basically I am trying to create a grouped bar graph with each group a
> different color and a bar in each group to have shading lines. Basically
> combine the 2 graphs created below.
> Thanks,
> Josh
>
> data(HairEyeColor)
> a <- as.table( apply(HairEyeColor, c(1,2), sum) )
> a1<-a[1:2,]
>
> par(mfcol=c(1,2), bg="white")
>
> barplot(a1,
> type="n",
> col=c(2,2,4,4,6,6,3,3),
> beside = TRUE, )
>
> barplot(a1,
> col=1,
> density=c(0,7,0,7,0,7,0,7),
> beside = TRUE, )
>
> http://www.nabble.com/file/p18033630/graph.JPG graph.JPG
>
--
View this message in context:
http://www.nabble.com/Combine-colors-and-shading-lines-tp18033630p18035111.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.
