Hi,

I wanted to generate a plot which is almost like the plot generated by the
following codes.

category <- paste("Geographical Category", 1:10)
grp1 <- rnorm(10, mean=10, sd=10)
grp2 <- rnorm(10, mean=20, sd=10)
grp3 <- rnorm(10, mean=15, sd=10)
grp4 <- rnorm(10, mean=12, sd=10)

mydat <- data.frame(category,grp1,grp2,grp3,grp4)

dat.m <- melt(mydat)

p <- qplot(1,value, data=dat.m, geom="bar",  xlab="",ylab="Percentage of eco
change",stat="identity",fill=variable, position="dodge")
p + coord_flip()+ facet_grid(category ~ .,
space="free")+scale_x_discrete(breaks=c(2,4))+opts(strip.text.y =
theme_text(hjust = 0))


Now the only modification I need from this plot is that I want the grid
labels (text) on the left hand side with right justification and white
background. My prospective plot should have labels like the the plot
generated by the codes below. The reason why I don't like the plot below is
that it does not show separate grid for each category.

p <- qplot(category,value, data=dat.m, geom="bar",  ylab="Percentage of eco
change",stat="identity",fill=variable, position="dodge")
p + coord_flip()

Can you help me generate my vision plot?

-- 
Mahbub Majumder
Graduate Student
Dept. of Statistics
Iowa State University

	[[alternative HTML version deleted]]

