Re: [R] Combine colors and shading lines

From: jim holtman <jholtman_at_gmail.com>
Date: Sat, 21 Jun 2008 08:14:13 -0400

You can play around with something like this to control the plots and to add color to them:

data(HairEyeColor)
a <- as.table( apply(HairEyeColor, c(1,2), sum) ) a1<-a[1:2,]

library(lattice)
library(reshape)

x <- melt(a1)

p1 <- barchart(value ~ Eye, group=Hair, data=x) p2 <- barchart(value ~ Hair, group=Eye, data=x)

print(p1, split=c(1,1,1,2), more=TRUE)
print(p2, split=c(1,2,1,2))

On Fri, Jun 20, 2008 at 12:55 PM, Josh Roofchop <josh_at_roofchop.com> 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-tp18033630p18033630.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help_at_r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> and provide commented, minimal, self-contained, reproducible code.
>

```--
Jim Holtman
Cincinnati, OH
+1 513 646 9390

What is the problem you are trying to solve?

______________________________________________
R-help_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help